*COMDECK GENCS
       COMMON-STORAGE SECTION.
       77  RETURN-CODE PIC XX.
       01  QUERY-REQUEST. 
           03  QRY-X PIC X(360).
           03  QRY-HOLD REDEFINES QRY-X PICTURE X(72) OCCURS 5 TIMES. 
           03 QRY-WORK REDEFINES QRY-X PICTURE X(72) OCCURS 5 TIMES.
       01  ERROR-CODES. 
           03  ERROR-BUILD PIC XX OCCURS 20 TIMES.
           03  ERROR-COUNT PIC 99.
           03  ERROR-CHECK             PICTURE X. 
  
*CALL GENTBL
       01  LOG-OPTIONS. 
           03  LOG-OPT                 PICTURE X(4).
           03  LOG-OUT                 PICTURE X(3).
       01  PRINT-PAGE-MESSAGES. 
           03  DATE-SAVE PICTURE X(8).
           03  NUM-REV-SAVE PIC S9(5) COMP-1. 
           03  HOLD-FIRST-PREFIX PIC X(9).
           03  FIRST-PREFIX-SW PICTURE X. 
*CALL WKPRINT 
           10  STMT-LINE REDEFINES STD-REPORT-REC.
               12  USER-STMT PIC X(80). 
               12  FILLER PIC X(52).
           10  STD-RPT-MSG REDEFINES STD-REPORT-REC.
               15  PRINT-MESSAGE-NUMBER PIC X(11).
               15  FILLER PIC X.
               15  PRINT-ERROR-LITERAL PIC X(6).
               15  FILLER PIC X.
               15  PRINT-ERROR-MESSAGE PIC X(52). 
               15  FILLER PIC X(61).
           10  PRINT-ERROR-REC REDEFINES STD-REPORT-REC.
               15  FILLER PIC XX. 
               15  ERROR-MSG-ID PIC X(6). 
               15  ERROR-MSG-NUM PIC X(6).
               15  ERROR-MSG-WORD PICTURE X(7). 
               15  ERROR-MSG PIC X(11). 
               15  ERROR-MSG-KEY PIC X(32). 
               15  FILLER PIC X(68).
*CALL MAST1LK 
  
      *    CATNAMES OF SELECTED SCHEMA OR SELECTED SUBSCHEMA AND ITS
      *    PARENT SCHEMA. 
      * 
       01  SCHEMA-CATNAME              PICTURE X(32). 
       01  SUBSCH-CATNAME              PICTURE X(32). 
  
      *    PARAMETERS TO CMM CALLS. 
      * 
       01  BLK-FWA                PICTURE 9(10)  USAGE COMP-1.
       01  BLK-SIZE               PICTURE 9(10)  USAGE COMP-1.
       01  GRP-ID                 PICTURE 9(10)  USAGE COMP-1.
       01  GRP-TYPE               PICTURE 9(10)  USAGE COMP-1.
       01  SIZE-CODE              PICTURE 9(10)  USAGE COMP-1.
  
      *    MISCELLANEOUS COMMON FIELDS
       01  DMS-MISC.
  
      *    CURRENT SEQUENCE NUMBER -- TO BE INSERTED IN CARD-IMAGE. 
           03  SEQ-NO                  PICTURE 9(6).
  
      *    FLAG FOR MAST1 READ:   "N" - INVALID KEY IS AN ERROR 
      *                           "Y" - DATANAME ALLOWED, SO INVALID
      *                                 KEY IS OK 
      *                           "F" - RETURN FLAG THAT DATANAME FOUND 
           03  DATANAME-OK             PICTURE X. 
