SCHEMA IS EDML-SCHE.
AREA IS SCHEBASE CONTAINS 26 PAGES
  ;NUMBER IS 1
  ;ENCIPHERING IS NOT REQUIRED
  ;CHECKSUM IS REQUIRED
  ;JOURNAL IS NOT REQUIRED
  .
GROUP IS AREAGP
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS CALC USING AREANAME DUPLICATES NOT ALLOWED
    NUMBER IS 1
    .
    NAMESIZE; PIC X.
    AREANAME; PIC X(30).
    AREANO; PIC X.
    INVPERCT; PIC 99.
    NBROFLIN; PIC 9.
    CHECKSUM; PIC 9.
    FILPERCT; PIC 99.
    JOURNAL; PIC 9.
    ENCIPHER; PIC 9.
    INDEXIND; PIC 9.
    AOWNER; PIC 9.
    AREAFIL1; TYPE IS BINARY.
    DATAPGES; TYPE IS BINARY.
    PAGESIZE; TYPE IS BINARY.
    KEYSIZE; TYPE IS BINARY.
    RETUSERS; TYPE IS BINARY.
    UPDUSERS; TYPE IS BINARY.
    PAGEIO; TYPE IS BINARY.
    GRPSACSED; TYPE IS BINARY.
    GRPSINSD; TYPE IS BINARY.
    GRPSDLTD; TYPE IS BINARY.
    AREAFIL2; TYPE IS BINARY.
GROUP IS UNITT
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS CALC USING GROUPNO DUPLICATES NOT ALLOWED
    ;NUMBER IS 2
    .
    GROUPNO; PIC 9(4).
    LOCATMOD; PIC 9.
    INVTITEM; PIC 9.
    GRPRLOCK; PIC 999.
    GRPULOCK; PIC 999.
    STRGESET; PIC 9.
    SECINDEX; PIC 9.
    NUMKEYS; PIC 9.
    DEFRGE; PIC 9.
    GRPFLE1; TYPE IS BINARY.
    GRPSIZE; TYPE IS BINARY.
    BEGPGRGE; TYPE IS BINARY.
    ENDPGRGE; TYPE IS BINARY.
    PRIMVALU; TYPE IS BINARY.
    GRPFIL2; TYPE IS BINARY.
GROUP IS ASOWNER
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA OWNERSET
    ;NUMBER IS 3
    .
    SETFILL1; TYPE IS BINARY.
    SETNO; PIC 9(4).
    OPSTNEXT; TYPE IS BINARY.
    SETFILL2; TYPE IS BINARY.
GROUP IS ASMEMBER
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA MEMBRSET
    ;NUMBER IS 4
    .
    ORDER; PIC 9.
    GRPNOKY; PIC 9.
    DUPSIND; PIC 9.
    OPTIONAL; PIC 9.
    AUTOMANL; PIC 9.
    PRIMARY; PIC 9.
    STORAG; PIC 9.
    SETOWNER; PIC 9.
    OWNRNO; PIC 9(4).
    MEMBFIL1; TYPE IS BINARY.
    MPSTNEXT; TYPE IS BINARY.
    MPSTNPRI; TYPE IS BINARY.
    PSTNHEAD; TYPE IS BINARY.
    MEMBFIL2; TYPE IS BINARY.
GROUP IS ELEMENT
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA ITEMSET
    ;NUMBER IS 5
    .
    ITEMTYPE; PIC 9.
    LEVELNBR; PIC 999.
    OCCURCNT; PIC 999.
    ITMRLOCK; PIC 999.
    ITMULOCK; PIC 999.
    INVTDNO; PIC 999.
    DATAVLID; PIC 9.
    CONTRL;  PIC 9.
    DEFPIC; PIC 9.
    ITEMFIL1; TYPE IS BINARY.
    ITEMPSTN; TYPE IS BINARY.
    ITEMSIZE; TYPE IS BINARY.
    ITEMFIL2; TYPE IS BINARY.
    ITEMFIL3; TYPE IS BINARY.
    ITEMFIL4; TYPE IS BINARY.
GROUP IS ASCNTROL
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA CTRLSET
    ;NUMBER IS 6
    .
    MATCHIND; PIC 9.
    CTRLTYPE; PIC 9.
    CTRLFIL1; PIC 99.
GROUP IS SCHEMAHD
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS DIRECT
    ;NUMBER IS 7
    .
    COPYSWD; PIC X(8).
    ALTRSWD; PIC X(8).
    PTRSIZE; PIC 9.
    SCHFIL1; PIC XXX.
    SCHDATIM; PIC X(20).
    SCHESIZE; TYPE IS BINARY.
    NUMPSWDS; TYPE IS BINARY.
    NUMOWNRS; TYPE IS BINARY.
    NUMMBRS; TYPE IS BINARY.
GROUP IS PASWORD
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA PASSWSET
    ;NUMBER IS 8
    .
    PASSWRD; PIC X(8).
    RKEYS; TYPE IS BINARY OCCURS 8 TIMES.
    UKEYS; TYPE IS BINARY OCCURS 8 TIMES.
GROUP IS SSCHEM
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA SSCHMSET
    ;NUMBER IS 9
    .
    SUBSNAME; PIC X(30).
    ACCTNBR; PIC X(8).
    SUBSDATE; TYPE IS BINARY.
    SUBSTIME; TYPE IS BINARY.
GROUP IS INDX
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA INDEXSET
    ;NUMBER IS 10
    .
BEGPGNBR; TYPE IS BINARY.
    ENDPGNBR; TYPE IS BINARY.
    DEFNTYPE; PIC 9.
    INDXLEVL; PIC 9.
    INDXFIL1; PIC 99.
GROUP IS PICTUR
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA DESCPSET
    ;NUMBER IS 11
    .
    PICTCNT; PIC X.
    ITEMPICT; PIC X(30).
    SCALE; PIC X.
    PICFILL1; TYPE IS BINARY.
GROUP IS CHECK1
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA DESCPSET
    ;NUMBER IS 12
    .
    LOWLIT1; TYPE IS BINARY.
    HILIT1; TYPE IS BINARY.
    CK1FIL1; TYPE IS BINARY.
GROUP IS CHECK2
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA DESCPSET
    ;NUMBER IS 13
    .
    LOWLIT2; PIC X(16).
    HILIT2; PIC X(16).
    CH2FIL1; TYPE IS BINARY.
GROUP IS ALIAS
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA ALIASSET
    ;NUMBER IS 14
    .
GROUP IS GROUPRET
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA GRPRET
    ;NUMBER IS 15
    .
    DATNAME; PIC X(30).
    RTVLTYPE; PIC 9.
    GRFILL1; PIC 9.
GROUP IS NAMEGP
    ;WITHIN SCHEBASE
    ;NUMBER IS 16
    .
    NAMEVALU; PIC X(30).
    PRIMNAME; PIC 9.
    NAMETYPE; PIC 9.
    DUPNAME; PIC 9.
    NAMFIL1; PIC 9(3).
GROUP IS INAMLINK
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA INAMESET
    ;NUMBER IS 17
    .
GROUP IS GNAMLINK
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA GNAMESET
    ;NUMBER IS 18
    .
GROUP IS SNAMLINK
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA SNAMESET
    ;NUMBER IS 19
    .
GROUP IS GSTATS
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA GSTATSET
    ;NUMBER IS 20
    .
    NBRACDS; TYPE IS BINARY.
    NBRINSD; TYPE IS BINARY.
    NBRDLTD; TYPE IS BINARY.
GROUP IS SSTATS
    ;WITHIN SCHEBASE
    ;LOCATION MODE IS VIA SSTATSET
    ;NUMBER IS 21
    .
    HEADACCS; TYPE IS BINARY.
    NEXTACCS; TYPE IS BINARY.
    PRIRACCS; TYPE IS BINARY.
/*     SETS     */
SET IS PASSWSET
    ;OWNER IS SCHEMAHD
    ;ORDER IS SORTED
    .
    MEMBER IS PASWORD
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;ASCENDING KEY IS PASSWRD DUPLICATES NOT ALLOWED
         .
SET IS SSCHMSET
    ;OWNER IS SCHEMAHD
    ;ORDER IS SORTED
    .
    MEMBER IS SSCHEM
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;ASCENDING KEY IS SUBSNAME DUPLICATES NOT ALLOWED
         .
SET IS AREASET
    ;OWNER IS SCHEMAHD
    ;ORDER IS LAST
    .
    MEMBER IS AREAGP
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS NAMESET
    ;ORDER IS FIRST
    .
    MEMBER IS INAMLINK
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
    MEMBER IS GNAMLINK
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
    MEMBER IS SNAMLINK
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS GROUPC
    ;OWNER IS AREAGP
    ;ORDER IS LAST
    .
    MEMBER IS UNITT
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS INDEXSET
    ;OWNER IS AREAGP
    ;ORDER IS LAST
    .
    MEMBER IS INDX
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS GRPRET
    ;OWNER IS UNITT
    ;ORDER IS LAST
    .
    MEMBER IS GROUPRET
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS ITEMSET
    ;OWNER IS UNITT
    ;ORDER IS LAST
    .
    MEMBER IS ELEMENT
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS MEMBRSET
    ;OWNER IS UNITT
    ;ORDER IS LAST
    .
    MEMBER IS ASMEMBER
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS OWNERSET
    ;OWNER IS UNITT
    ;ORDER IS LAST
    .
    MEMBER IS ASOWNER
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS DESCPSET
    ;OWNER IS ELEMENT
    ;ORDER IS LAST
    .
    MEMBER IS PICTUR
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
    MEMBER IS CHECK1
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
    MEMBER IS CHECK2
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS MODFYSET
    ;OWNER IS ELEMENT
    ;ORDER IS LAST
    .
    MEMBER IS ASCNTROL
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS SETLINK
    ;OWNER IS ASOWNER
    ;ORDER IS LAST
    .
    MEMBER IS ASMEMBER
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS CTRLSET
    ;OWNER IS ASMEMBER
    ;ORDER IS LAST
    .
    MEMBER IS ASCNTROL
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS ALIASSET
    ;OWNER IS ASMEMBER
    ;ORDER IS LAST
    .
    MEMBER IS ALIAS
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS INAMESET
    ;OWNER IS ELEMENT
    ;ORDER IS LAST
    .
    MEMBER IS INAMLINK
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS GNAMESET
    ;OWNER IS UNITT
    ;ORDER IS LAST
    .
    MEMBER IS GNAMLINK
         ;INCLUSION IS AUTOMATIC
         ;LINKED TO OWNER
         .
SET IS SNAMESET
    ;OWNER IS ASOWNER
    ;ORDER IS LAST
    .
    MEMBER IS SNAMLINK
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS GSTATSET
    ;OWNER IS UNITT
    ;ORDER IS FIRST
    .
    MEMBER IS GSTATS
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS SSTATSET
    ;OWNER IS ASOWNER
    ;ORDER IS FIRST
    .
    MEMBER IS SSTATS
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
SET IS MKALTSET
    ;OWNER IS ELEMENT
    ;ORDER IS LAST
    .
    MEMBER IS ALIAS
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS ALNAMSET
    ;OWNER IS NAMEGP
    ;ORDER IS LAST
    .
    MEMBER IS ALIAS
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         ;LINKED TO OWNER
         .
SET IS HDRSET
    ;OWNER IS SCHEMAHD
    ;ORDER IS LAST
    .
    .
    MEMBER IS ASOWNER
         ;INCLUSION IS AUTOMATIC
         ;SELECTION IS CURRENT
         .
END.
SUBSCHEMA NAME IS EDML-SUB OF SCHEMA EDML-SCHE
    ;COBOL COPY IS EDML-COPY
    ;COMPONENTS ARE ALL.
END.
