*COMDECK RETSCS 
       COMMON-STORAGE SECTION.
       77  RETURN-CODE PIC XX.
       01  PRINT-CTL-TBL. 
           03  TYPE-OUTPUT-CODE PICTURE X.
*CALL WKPRINT 
               10  STMT-LINE REDEFINES STD-REPORT-REC.
                 12  USER-STMT PICTURE X(80). 
                 12  FILLER   PICTURE X(52).
               10  STD-RPT-TX REDEFINES STD-REPORT-REC. 
                   15  STD-RPT-IMAGE PICTURE X(80). 
                   15  FILLER    PICTURE X(52). 
               10  STD-XXX-MSG REDEFINES STD-REPORT-REC.
                   15  PRINT-MESSAGE-NUMBER PICTURE X(11).
                   15  FILLER PICTURE X.
                   15  PRINT-ERROR-LITERAL PICTURE X(6).
                   15  FILLER PICTURE X.
                   15  PRINT-ERROR-MESSAGE PICTURE X(52). 
                   15  FILLER PICTURE X(61).
      * 
      *    ERROR CODES HOLD AREA
      * 
       01  ERROR-CODES. 
           03  ERROR-BUILD PICTURE XX OCCURS 20 TIMES.
           03  ERROR-COUNT PICTURE 99.
           03  ERROR-CHECK PICTURE X. 
           03  LINKAGE-COUNT PICTURE 99.
      * 
      *  QUERY REQUEST HOLD AREA
      * 
       01  QUERY-REQUEST. 
           03  QRY-X PICTURE X(2952). 
           03  QRY-HOLD REDEFINES QRY-X PIC X(72) OCCURS 41 TIMES.
           03  QRY-WORK REDEFINES QRY-X PICTURE X(72) OCCURS 41 TIMES.
       01  TITLE-LINKAGE. 
           03  TITLE-LINK-HOLD PICTURE X(50). 
       01  SYNTAX-ERRORS. 
           03  SYNTAX-WORD PICTURE X(12) OCCURS 20 TIMES. 
           03  ERROR-SELECT.
               05  SEL-ERR PICTURE XX OCCURS 10 TIMES.
           03  ERROR-OUTPUT.
           05  OUTPUT-ERRORS PICTURE XX OCCURS 9 TIMES. 
*CALL RPTREQWA
*CALL QTBL2 
*CALL RTBL
*CALL EXTTBL
