ADD TABLE "Person"
  AREA "Schema Area"
  LABEL "Person"
  DESCRIPTION "Individuals within the system."
  DUMP-NAME "person"

ADD FIELD "PersonID" OF "Person" AS character 
  FORMAT "x(8)"
  INITIAL ""
  LABEL "PersonID"
  POSITION 2
  SQL-WIDTH 16
  COLUMN-LABEL "PersonID"
  ORDER 10

ADD FIELD "FirstName" OF "Person" AS character 
  FORMAT "x(8)"
  INITIAL ""
  LABEL "FirstName"
  POSITION 3
  SQL-WIDTH 16
  COLUMN-LABEL "FirstName"
  ORDER 20

ADD FIELD "LastName" OF "Person" AS character 
  FORMAT "x(8)"
  INITIAL ""
  LABEL "LastName"
  POSITION 4
  SQL-WIDTH 16
  COLUMN-LABEL "LastName"
  ORDER 30

ADD FIELD "AddressID" OF "Person" AS character 
  FORMAT "x(8)"
  INITIAL ""
  LABEL "AddressID"
  POSITION 5
  SQL-WIDTH 16
  COLUMN-LABEL "AddressID"
  ORDER 40

ADD FIELD "ContactID" OF "Person" AS character 
  FORMAT "x(8)"
  INITIAL ""
  LABEL "ContactID"
  POSITION 6
  SQL-WIDTH 16
  COLUMN-LABEL "ContactID"
  ORDER 50

ADD INDEX "key1" ON "Person" 
  AREA "Schema Area"
  UNIQUE
  PRIMARY
  INDEX-FIELD "PersonID" ASCENDING 

ADD INDEX "key2" ON "Person" 
  AREA "Schema Area"
  INDEX-FIELD "AddressID" ASCENDING 

ADD INDEX "key3" ON "Person" 
  AREA "Schema Area"
  INDEX-FIELD "ContactID" ASCENDING 

.
PSC
cpstream=ISO8859-1
.
0000001227