UPDATE DATABASE "?"

ADD TABLE "DS"
  AREA "Schema Area"
  LABEL "DS"
  DESCRIPTION "Table used for various data structures"
  DUMP-NAME "ds"

ADD FIELD "DSID" OF "DS" AS character 
  DESCRIPTION "Uniqiuely identifies the record"
  FORMAT "x(8)"
  INITIAL ""
  LABEL "DSID"
  POSITION 2
  SQL-WIDTH 16
  COLUMN-LABEL "DSID"
  ORDER 10

ADD FIELD "Name" OF "DS" AS character 
  DESCRIPTION "Name data structure referred by"
  FORMAT "x(8)"
  INITIAL ""
  LABEL "Name"
  POSITION 3
  SQL-WIDTH 16
  COLUMN-LABEL "Name"
  ORDER 20

ADD FIELD "DataID" OF "DS" AS character 
  DESCRIPTION "Unique relation to record holding data being structured"
  FORMAT "x(8)"
  INITIAL ""
  LABEL "DataID"
  POSITION 4
  SQL-WIDTH 16
  COLUMN-LABEL "DataID"
  ORDER 30

ADD FIELD "NextDSID" OF "DS" AS character 
  DESCRIPTION "Next record in structure"
  FORMAT "x(8)"
  INITIAL ""
  LABEL "NextDSID"
  POSITION 5
  SQL-WIDTH 16
  COLUMN-LABEL "NextDSID"
  ORDER 40

ADD FIELD "PrevDSID" OF "DS" AS character 
  DESCRIPTION "Previous record in structure"
  FORMAT "x(8)"
  INITIAL ""
  LABEL "PrevDSID"
  POSITION 6
  SQL-WIDTH 16
  COLUMN-LABEL "PrevDSID"
  ORDER 50

ADD FIELD "ParentDSID" OF "DS" AS character 
  DESCRIPTION "Used for trees"
  FORMAT "x(8)"
  INITIAL ""
  LABEL "ParentDSID"
  POSITION 9
  SQL-WIDTH 16
  COLUMN-LABEL "ParentDSID"
  ORDER 60

ADD INDEX "pukey" ON "DS" 
  AREA "Schema Area"
  UNIQUE
  PRIMARY
  INDEX-FIELD "Name" ASCENDING 
  INDEX-FIELD "DSID" ASCENDING 

ADD INDEX "key1" ON "DS" 
  AREA "Schema Area"
  INDEX-FIELD "Name" ASCENDING 
  INDEX-FIELD "NextDSID" ASCENDING 

ADD INDEX "key2" ON "DS" 
  AREA "Schema Area"
  INDEX-FIELD "Name" ASCENDING 
  INDEX-FIELD "PrevDSID" ASCENDING 

ADD INDEX "key3" ON "DS" 
  AREA "Schema Area"
  INDEX-FIELD "Name" ASCENDING 
  INDEX-FIELD "ParentDSID" ASCENDING 

.
PSC
cpstream=ISO8859-1
.
0000001830