*COMDECK RPTCS
       COMMON-STORAGE SECTION.
       77  RETURN-CODE PIC XX.
*CALL RTBL
*CALL MAST1LK 
*CALL CATLINK 
*CALL RPTTBL
       01  PRINT-CTL-TBL. 
           03  TYPE-OUTPUT-CODE PICTURE X.
*CALL WKPRINT2
*CALL ERPTTBL 
