*COMDECK DATAIO 
  
      ******************************************************************
      * 
      * VALUES USED THROUGHOUT THE DMS GENERATION UTILITIES.
  
      ******************************************************************
      * 
      * CATEGORY-ID OF EVERY CATEGORY USED. 
      * 
       01  CAT-NOS. 
           03  CAT-NO-ACC         PICTURE X(3)   VALUE "425". 
           03  CAT-NO-AKEY        PICTURE X(3)   VALUE "500". 
           03  CAT-NO-ALIAS       PICTURE X(3)   VALUE "211". 
           03  CAT-NO-ATT         PICTURE X(3)   VALUE "210". 
           03  CAT-NO-BOND        PICTURE X(3)   VALUE "550". 
           03  CAT-NO-CTL         PICTURE X(3)   VALUE "010". 
           03  CAT-NO-JOB         PICTURE X(3)   VALUE "475". 
           03  CAT-NO-JOIN        PICTURE X(3)   VALUE "575". 
           03  CAT-NO-MDI         PICTURE X(3)   VALUE "450". 
           03  CAT-NO-NAMES       PICTURE X(3)   VALUE "200". 
           03  CAT-NO-OTHER       PICTURE X(3)   VALUE "900". 
           03  CAT-NO-PRO         PICTURE X(3)   VALUE "400". 
           03  CAT-NO-SSREL       PICTURE X(3)   VALUE "525". 
           03  CAT-NO-STC         PICTURE X(3)   VALUE "300". 
           03  CAT-NO-UNIT        PICTURE X(3)   VALUE "220". 
           03  CAT-NO-VAL         PICTURE X(3)   VALUE "110". 
  
      ******************************************************************
      * 
      * ENTITY-ID OF EVERY ENTITY USED. 
      * 
       01  ENT-IDS. 
           03  ENT-ID-AREA        PICTURE 99     VALUE 22.
           03  ENT-ID-DBP         PICTURE 99     VALUE 03.
           03  ENT-ID-ELEM        PICTURE 99     VALUE 05.
           03  ENT-ID-FILE        PICTURE 99     VALUE 20.
           03  ENT-ID-GROUP       PICTURE 99     VALUE 10.
           03  ENT-ID-REC         PICTURE 99     VALUE 13.
  
      ******************************************************************
      * 
      * POSSIBLE VALUES FOR "DATA-RETURN-CODE". 
      * 
       01  DR-CODE-VALUES.
           03  END-OF-CAT         PICTURE X      VALUE "2". 
           03  END-OF-ENTRY       PICTURE X      VALUE "1". 
  
      ******************************************************************
      * 
      * ALL OF THE "FOUND-XXX" ITEMS HAVE THE VALUE "Y" IF THE SUBJECT
      * HAS BEEN ENCOUNTERED -- "N" IF IT HAS NOT.
      * 
       01  FOUND-FLAGS. 
           03  FOUND-AREA         PICTURE X.
           03  FOUND-CAT          PICTURE X.
           03  FOUND-CODE         PICTURE X.
           03  FOUND-ENTITY       PICTURE X.
           03  FOUND-FILE         PICTURE X.
           03  FOUND-GRP          PICTURE X      OCCURS 48 TIMES. 
           03  FOUND-ITEM         PICTURE X.
           03  FOUND-MASTER       PICTURE X.
           03  FOUND-RCODE        PICTURE X.
           03  FOUND-RECORD       PICTURE X.
           03  FOUND-RELN         PICTURE X.
           03  FOUND-USING        PICTURE X.
           03  FOUND-VALUE        PICTURE X.
           03  FOUND-VERSION      PICTURE X.
  
      ******************************************************************
      * 
      * ITEMS USED BY MAST1 MANIPULATION ROUTINES.
  
       01  MAST1-FIELDS.
  
      * INDEX WITHIN "DATA-DTL".
           03  COLUMN-IN          PICTURE 9(4). 
  
      * LENGTH OF DETAIL LINE IN "CAT-DETAIL".
           03  DETAIL-LEN         PICTURE 999.
           03  DTL-HDR-LEN        PICTURE 99     VALUE 15.
  
      * SET TO "Y" TO IGNORE COMMENTS -- "N" TO PRINT THEM. 
           03  SKIP-COMMENTS      PICTURE X      VALUE "N". 
  
      ******************************************************************
      * 
      * ITEMS USED BY THE OUTPUT UTILITIES. 
  
      * HOLDING AREA FOR OUTPUT LINE WHILE BEING GENERATED.  THE RENAME 
      * LINK IS FOR USE ONLY BY THE SUBSCHEMA.
       01  DMS-LINE.
           03  DMS-STMT           PICTURE X(72).
           03  DMS-SEQNO          PICTURE 9(8). 
           03  RENAME-LINK        PICTURE 9(10).
  
       01  SCHEMA-COMMENT.
           03  FILLER             PICTURE X(3)   VALUE "/* ". 
           03  SCHEMA-CMNT        PICTURE X(66).
           03  FILLER             PICTURE X(3)   VALUE " */". 
           03  SCH-CMNT-SEQNO     PICTURE 9(8). 
       01  SUBSCH-COMMENT.
           03  FILLER             PICTURE X(6). 
           03  FILLER             PICTURE X(2)   VALUE "* ".
           03  SUBSCH-CMNT        PICTURE X(64).
           03  SUB-CMNT-SEQNO     PICTURE 9(8). 
       01  FILE-COMMENT.
           03  FILLER             PICTURE X      VALUE "*". 
           03  FILE-CMNT          PICTURE X(79).
  
       01  COMMENT-PTRS.
           03  COMMENT-LEN        PICTURE 999.
           03  COMMENT-COL        PICTURE 99. 
  
       01  OUTPUT-FIELDS. 
  
      * FIELD TO BE MOVED TO OUTPUT LINE AND ITS LENGTH.
           03  OUT-FIELD          PICTURE X(72).
           03  OUT-LEN            PICTURE 99. 
           03  OUT-START          PICTURE 99. 
           03  OUT-CLAUSE         PICTURE X      VALUE "N". 
           03  OUT-QUOTE          PICTURE X      VALUE "N". 
  
      * INDEX WITHIN "DMS-LINE" -- POINTER TO NEXT AVAILABLE COLUMN.
           03  COLUMN-OUT         PICTURE 99. 
  
      * STARTING COLUMN FOR OUTPUT LINE.
           03  INDENT             PICTURE 99. 
           03  LEVEL-NO           PICTURE 99. 
           03  FIND-IDX           PICTURE 99. 
           03  TEMP-LEN           PICTURE 99. 
  
      ******************************************************************
      * 
      * GENERAL ERROR MESSAGES GENERATED FOR DMS. 
      * 
       01  MESSAGE-TEXTS. 
           03  MSG-500. 
               05  IDX-500        PICTURE 99     VALUE 01.
               05  FILLER         PICTURE X(6)   VALUE "500-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " HAS NO DATA".
           03  MSG-520. 
               05  IDX-520        PICTURE 99     VALUE 02.
               05  FILLER         PICTURE X(6)   VALUE "520-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT A DBPROC ENTITY". 
           03  MSG-525. 
               05  IDX-525        PICTURE 99     VALUE 03.
               05  FILLER         PICTURE X(6)   VALUE "525-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT A GROUP OR ELEMENT ENTITY". 
           03  MSG-528. 
               05  IDX-528        PICTURE 99     VALUE 04.
               05  FILLER         PICTURE X(6)   VALUE "528-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT A GROUP OR RECORD ENTITY".
           03  MSG-530. 
               05  IDX-530        PICTURE 99     VALUE 05.
               05  FILLER         PICTURE X(6)   VALUE "530-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT A RECORD ENTITY". 
           03  MSG-532. 
               05  IDX-532        PICTURE 99     VALUE 06.
               05  FILLER         PICTURE X(6)   VALUE "532-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT A FILE ENTITY". 
           03  MSG-535. 
               05  IDX-535        PICTURE 99     VALUE 07.
               05  FILLER         PICTURE X(6)   VALUE "535-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT AN AREA ENTITY".
           03  MSG-538. 
               05  IDX-538        PICTURE 99     VALUE 08.
               05  FILLER         PICTURE X(6)   VALUE "538-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " IS NOT A SUBSCHEMA ENTITY".
           03  MSG-550. 
               05  IDX-550        PICTURE 99     VALUE 09.
               05  FILLER         PICTURE X(6)   VALUE "550-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   "GROUP LEVEL EXCEEDS LIMIT". 
           03  MSG-600. 
               05  IDX-600        PICTURE 99     VALUE 10.
               05  FILLER         PICTURE X(6)   VALUE "600-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   " HAS NO STRUCTURE". 
           03  MSG-700. 
               05  IDX-700        PICTURE 99     VALUE 11.
               05  FILLER         PICTURE X(6)   VALUE "700-I ".
               05  FILLER         PICTURE X(35)  VALUE
                   "BLANK CATNAME IN STRUCTURE LINE ".
           03  MSG-705. 
               05  IDX-705        PICTURE 99     VALUE 12.
               05  FILLER         PICTURE X(6)   VALUE "705-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   "INVALID LINE SEQUENCE IN CATEGORY: ". 
           03  MSG-710. 
               05  IDX-710        PICTURE 99     VALUE 13.
               05  FILLER         PICTURE X(6)   VALUE "710-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   "REQUIRED FIELD IS MISSING: ". 
           03  MSG-715. 
               05  IDX-715        PICTURE 99     VALUE 14.
               05  FILLER         PICTURE X(6)   VALUE "715-S ".
               05  FILLER         PICTURE X(35)  VALUE
                   "INVALID VALUE FOR FIELD: ". 
           03  MSG-720. 
               05  IDX-720        PICTURE 99     VALUE 15.
               05  FILLER         PICTURE X(6)   VALUE "720-S". 
               05  FILLER         PICTURE X(35)  VALUE
                   "REQUIRED ALIAS LINE MISSING FROM: ".
           03  MSG-725. 
               05  IDX-725        PICTURE 99     VALUE 16.
               05  FILLER         PICTURE X(6)   VALUE "725-S". 
               05  FILLER         PICTURE X(35)  VALUE
                   "REQUIRED LINETYPE MISSING FROM: ".
           03  MSG-730. 
               05  IDX-730        PICTURE 99     VALUE 17.
               05  FILLER         PICTURE X(6)   VALUE "730-S". 
               05  FILLER         PICTURE X(35)  VALUE
                   "AREA VERSION OUT OF ORDER, IGNORED:". 
           03  MSG-735. 
               05  IDX-735        PICTURE 99     VALUE 18.
               05  FILLER         PICTURE X(6)   VALUE "735-S". 
               05  FILLER         PICTURE X(35)  VALUE
                   "FILE TYPE DOES NOT MATCH USAGE: ".
           03  MSG-900. 
               05  IDX-900        PICTURE 99     VALUE 19.
               05  FILLER         PICTURE X(6)   VALUE "900-F ".
               05  FILLER         PICTURE X(35)  VALUE
                   "MAST1 READ ERROR".
  
       01  ERROR-TEXTS            REDEFINES MESSAGE-TEXTS.
           03  ERROR-MESSAGES     OCCURS 19 TIMES.
               05  FILLER         PICTURE 99. 
               05  MSG-NUM        PICTURE X(6). 
               05  MSG-TEXT       PICTURE X(35).
  
      ******************************************************************
      * 
      * OUTPUT LINE FOR ERROR MESSAGES. 
      * 
       01  DIAG-LINE. 
           03  FILLER             PICTURE X(10)  VALUE SPACES.
           03  FILLER             PICTURE X(6)   VALUE "DCGEN-".
           03  DIAG-NUM           PICTURE X(6). 
           03  FILLER             PICTURE X(9)   VALUE " *ERROR  ". 
           03  DIAG-TEXT          PICTURE X(75).
           03  DIAG-TYPE1         REDEFINES DIAG-TEXT.
               05  DIAG-NAME1     PICTURE X(32).
               05  DIAG-TEXT1     PICTURE X(43).
           03  DIAG-TYPE2         REDEFINES DIAG-TEXT.
               05  DIAG-TEXT2     PICTURE X(35).
               05  DIAG-NAME2     PICTURE X(40).
           03  DIAG-TYPE3         REDEFINES DIAG-TEXT.
               05  DIAG-TEXT3     PICTURE X(32).
               05  DIAG-LINE3     PICTURE X(4). 
               05  DIAG-OF3       PICTURE X(4). 
               05  DIAG-NAME3     PICTURE X(35).
           03  FILLER             PICTURE X(26)  VALUE SPACES.
  
       01  MSG-IDX                PICTURE 99. 
       01  MSG-LINE               PICTURE X(4). 
       01  MSG-NAME               PICTURE X(40).
