*COMDECK QRYCS
       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-XX REDEFINES QRY-X.
               05  QRY-WORK PICTURE X OCCURS 213 TIMES. 
               05  FILLER PICTURE X(147). 
       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  STMT-LINE REDEFINES STD-REPORT-REC.
               12  USER-STMT PIC X(80). 
               12  FILLER PIC X(52).
           10  STD-RPT-TX REDEFINES STD-REPORT-REC. 
               12  STD-RPT-IMAGE PIC X(80). 
               12  FILLER PIC X(52).
           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 SHOWLINE
