*COMDECK,ISFILFD
       FD  IS-FILE
           LABEL RECORDS ARE OMITTED. 
      * 
      *    BASIC HEADER INFORMATION 
      * 
       01  IS-REC.
           03  IS-PKEY. 
               05  IS-CATNAME              PICTURE X(32). 
               05  IS-ALIAS-NO             PICTURE 9(4).
               05  IS-SEQ-NO               PICTURE 9(4).
           03  IS-ALTKEY. 
               05  IS-ENTITY-TYPE          PICTURE XX.
               05  IS-SCHEMA-ORDINAL       PICTURE 9999.
               05  IS-CDCS-NAME            PICTURE X(30). 
      * 
      *    DBPROC RECORD, IS-ENTITY-TYPE = 03 
      * 
       01  IS-DBP-REC.
           03  FILLER                      PICTURE X(76). 
      * 
      *    ELEMENT RECORD, IS-ENTITY-TYPE = 05
      * 
       01  IS-ELE-REC.
           03  FILLER                      PICTURE X(76). 
           03  IS-ELE-SSCH-ORDINAL         PICTURE 9999.
      *        =0 FOR SCHEMA ELEMENT
           03  IS-ELE-RECORD-CATNAME       PICTURE X(32). 
           03  IS-ELE-PARENT-CATNAME       PICTURE X(32). 
           03  IS-ELE-LEVEL-NO             PICTURE 99.
           03  IS-ELE-ATTRIBUTE.
               05  IS-ELE-LENGTH           PICTURE X(10). 
               05  IS-ELE-FORMAT           PICTURE XXX. 
               05  IS-ELE-PICTURE          PICTURE X(25). 
               05  IS-ELE-JUST             PICTURE X. 
               05  IS-ELE-SYNC             PICTURE X. 
           03  IS-ELE-PRO-VAL              PICTURE X. 
      *        =T IF ELEMENT HAS PROCESS OR VALUE CATEGORY INFORMATION
           03  IS-ELE-LEVEL88              PICTURE X. 
      *        =T IS ELEMENT HAS OTHER (LEVEL 88) CATEGORY INFORMATION
           03  IS-ELE-EALIASOF-FLAG        PICTURE X. 
      * 
      *    ONE SCHEMA ELEMENT MAY NOT BE ALIAS OF ANOTHER 
      *    SCHEMA ELEMENT OR USE ANOTHER SCHEMA ELEMENT'S 
      *    ELEMENT ENTITY IF EITHER ELEMENT HAS ANY INFO
      *    IN THE PROCESS OR VALUE CATEGORIES 
      * 
      *    GROUP RECORD, IS-ENTITY-TYPE = 10
      * 
       01  IS-GRP-REC.
           03  FILLER                      PICTURE X(76). 
           03  IS-GRP-SSCH-ORDINAL         PICTURE 9999.
      *        =0 FOR SCHEMA GROUP
           03  IS-GRP-RECORD-CATNAME       PICTURE X(32). 
           03  IS-GRP-PARENT-CATNAME       PICTURE X(32). 
           03  IS-GRP-LEVEL-NO             PICTURE 99.
      * 
      *    RECORD RECORD, IS-ENTITY-TYPE = 13 
      * 
       01  IS-REC-REC.
           03  FILLER                      PICTURE X(76). 
           03  IS-REC-SSCH-ORDINAL         PICTURE 9999.
      *        =0 FOR SCHEMA RECORD 
           03  IS-REC-OUT-STCR             PICTURE S9(7). 
      *    VALUE STORED IN OUT-STCR IN OUT-AREAS-REC. 
      *    USED TO SORT OUT-AREAS-REC AND OUT-AREAS-RCVALUE-REC 
      *    TOGETHER PROPERLY. 
           03  IS-REC-PARENT-CATNAME       PICTURE X(32). 
      * 
      *    FILE RECORD, IS-ENTITY-TYPE = 20 
      * 
       01  IS-FILE-REC. 
           03  FILLER                      PICTURE X(76). 
      * 
      *    AREA RECORD, IS-ENTITY-TYPE = 22 
      * 
       01  IS-AREA-REC. 
           03  FILLER                      PICTURE X(76). 
           03  IS-AREA-SSCH-ORDINAL        PICTURE 9999.
      *        =0 FOR SCHEMA AREA 
           03  IS-AREA-MASTER              PICTURE X. 
      *        =M FOR SCHEMA AREA OF MASTER VERSION 
           03  IS-AREA-XN-CATNAME          PICTURE X(32). 
      *        ONLY SET IF IS-AREA-MASTER=M.  IF SET
      *        =CATNAME OF FILE ENTITY OF MASTER INDEX FILE, IF ANY 
      * 
      *    SUBSCHEMA RECORD, IS-ENTITY-TYPE = 24
      * 
       01  IS-SSCH-REC. 
           03  FILLER                      PICTURE X(76). 
           03  IS-SSCH-SSCH-ORDINAL        PICTURE 9999.
      * 
      *    SCHEMA RECORD, IS-ENTITY-TYPE = 26 
      * 
       01  IS-SCH-REC.
           03  FILLER                      PICTURE X(76). 
  
