*COMDECK QRYCSA 
       COMMON-STORAGE SECTION.
       77  RETURN-CODE PIC XX.
       01  QUERY-REQUEST. 
           03  QRY-X PICTURE X(360).
           03  QRY-HOLD REDEFINES QRY-X PIC X(71) OCCURS 3 TIMES. 
           03  QRY-WORK REDEFINES QRY-X PIC X(72) OCCURS 5 TIMES. 
       01  ERROR-CODES. 
           03  ERROR-BUILD PIC XX OCCURS 20 TIMES.
           03  ERROR-COUNT PIC 99.
           03  LAST-WORD PIC X(32). 
           03  ERROR-X REDEFINES LAST-WORD. 
               05  ERROR-CHECK PIC X. 
               05  LINKAGE-COUNT PIC 99.
               05  FILLER PIC  X(29). 
*CALL QTBL2A
*CALL HITLINKT
       01  LOG-OPTIONS. 
           03  LOG-OPT PIC XXXX.
           03  LOG-SIZE PIC 999.
       01  PRINT-PAGE-MESSAGES. 
           03  DATE-SAVE PICTURE X(8).
           03  NUM-REV-SAVE PIC S9(5) COMP-1. 
           03  HOLD-FIRST-PREFIX PICTURE X(9).
           03  FIRST-PREFIX-SW PICTURE X. 
       01  PRINT-CTL-TBL. 
           03  TYPE-OUTPUT-CODE PIC X.
*CALL WKPRINT 
           10  STD-RPT-TX REDEFINES STD-REPORT-REC. 
               15  STD-RPT-IMAGE PIC X(80). 
               15  FILLER PIC X(52).
           10  STD-RPT-MSG REDEFINES STD-REPORT-REC.
               15  PRINT-MESSAGE-NUMBER PICTURE X(12).
               15  PRINT-ERROR-LITERAL PIC X. 
               15  FILLER PIC X(6). 
               15  PRINT-ERROR-MESSAGE PIC X(52). 
               15  FILLER PIC X(61).
*CALL MAST1LK 
