ADD TABLE "Contact"
  AREA "Schema Area"
  LABEL "Contact"
  DESCRIPTION "Contact information for a person or company, etc."
  DUMP-NAME "contact"

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

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

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

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

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

ADD FIELD "Pager" OF "Contact" AS character 
  FORMAT "x(8)"
  INITIAL ""
  LABEL "Pager"
  POSITION 7
  SQL-WIDTH 16
  COLUMN-LABEL "Pager"
  ORDER 60

ADD INDEX "key1" ON "Contact" 
  AREA "Schema Area"
  UNIQUE
  PRIMARY
  INDEX-FIELD "ContactID" ASCENDING 

.
PSC
cpstream=ISO8859-1
.
0000001186