*DECK     DCRET001
00002  IDENTIFICATION DIVISION.                                         DCRET001
       PROGRAM-ID. RET001.
*CALL COPYRIGHT 
      * THIS MODULE INITIALIZES REPORT HEADING PROCESSING 
00009  ENVIRONMENT DIVISION.                                            DCRET001
00010  CONFIGURATION SECTION.                                           DCRET001
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL OTHSN 
00013  INPUT-OUTPUT SECTION.                                            DCRET001
00014  FILE-CONTROL.                                                    DCRET001
*CALL     MAST3SS1                                                         CL**5
00016  DATA DIVISION.                                                   DCRET001
00017  FILE SECTION.                                                    DCRET001
*CALL     MAST3FD                                                          CL**5
*CALL RETSCS
00019  WORKING-STORAGE SECTION.                                         DCRET001
       77  CURRENT-DATE PIC X(8). 
*CALL     MAST3DD1                                                         CL**5
00021  01  REPORT-TITLES.                                               DCRET001
00022      03  TITLE-1                 PICTURE X(50) VALUE              DCRET001
00023     "    Q U E R Y   R E S P O N S E   R E P O R T".                 CL**2
00024      03  TITLE-2                 PICTURE X(50) VALUE              DCRET001
00025     "R E P O R T  R E Q U E S T  A U D I T".                      DCRET001
00026      03  TITLE-3                 PICTURE X(50) VALUE              DCRET001
00027     "        G E N E R A T I O N   R E P O R T         ".            CL**2
00028      03  TITLE-4                 PICTURE X(50) VALUE                 CL**2
00029     "  I M S   G E N E R A T I O N   R E P O R T   ".                CL**2
00030      03  TITLE-5                 PICTURE X(50) VALUE                 CL**2
00031     "  B A L   G E N E R A T I O N   R E P O R T   ".                CL**2
00032      03  TITLE-6                 PICTURE X(50) VALUE                 CL**2
00033     "  P L 1   G E N E R A T I O N   R E P O R T   ".                CL**2
00034      03  TITLE-7           PICTURE X(50) VALUE                       CL**2
00035        "F I L E   R E Q U E S T   A U D I T".                        CL**2
00036  01  PROP-MSG.                                                       CL**2
00037      03  FILLER PICTURE X(44) VALUE                                  CL**2
               "DATA CATALOGUE 2                       V2.0". 
00039      03  FILLER PICTURE X(29) VALUE                                  CL**2
*CALL LEVEL 
00041  01  CERR110                     PICTURE X(49) VALUE                 CL**2
00042            "DCQRY-110-F * ERROR MAST3 CLIENT RECORD NOT FOUND".      CL**2
00043  01  LITERAL-TABLE.                                                  CL**2
00044      03  LITERAL-1               PICTURE X(24) VALUE                 CL**2
            "REPORT DATE-". 
00046      03  LITERAL-2               PICTURE X(24) VALUE                 CL**2
00047       "DATE OF LAST REVISION-".                                      CL**2
00048      03  LITERAL-3               PICTURE X(5)  VALUE                 CL**2
00049       "PAGE".                                                        CL**2
00050      03  LITERAL-4               PICTURE X(31)  VALUE                CL**2
00051       "D A T A   C A T A L O G U E   2".                             CL**2
00052      03  LITERAL-5               PICTURE X(25)  VALUE                CL**2
00053       "REVISION NUMBER-".                                            CL**2
*CALL CURDATE 
00058  PROCEDURE DIVISION.                                                 CL**2
00060 *******************************************************           DCRET001
00061 *                                                                 DCRET001
00062 *   RETRIEVE HEADING DATA FROM CONTROL FILE                       DCRET001
00063 *               AND INITIALIZE RELATED FIELDS IN TBL              DCRET001
00064 *                                                                 DCRET001
00065 ***********************************************************          CL**2
00066  0000-BEGIN.                                                      DCRET001
00067      OPEN INPUT MAST3.                                            DCRET001
           MOVE 1 TO CON-KEY. 
00069      READ MAST3 INVALID KEY                                       DCRET001
00070      MOVE "12" TO RETURN-CODE                                        CL**2
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT
00071          STOP RUN.                                                DCRET001
00072      MOVE CTL-DATE-UPD TO DATE-LAST-REVISION.                     DCRET001
00073      MOVE CTL-REV-NUM TO REVISION-NUMBER.                         DCRET001
00074      MOVE SPACES TO EOP-MSG.                                         CL**2
00075      MOVE CTL-LINES TO MAX-LINES.                                 DCRET001
00076      SUBTRACT 1 FROM MAX-LINES.                                   DCRET001
00077      MOVE CTL-LINES TO LINE-CT.                                   DCRET001
00078      MOVE CTL-NAME TO CON-USER.                                      CL**2
00079      MOVE PROP-MSG TO CON-TITLE.                                     CL**2
00080      CLOSE MAST3.                                                 DCRET001
00081 *****************************************************             DCRET001
00082 *                                                                 DCRET001
00083 *       INITIALIZE OTHER PRINT CTL TABLE FIELDS                   DCRET001
00084 *                                                                 DCRET001
00085 **********************************************************        DCRET001
00086  1000-INIT-MISC.                                                  DCRET001
*CALL ACCEPTDT
00087      MOVE CURRENT-DATE TO PRT-CURRENT-DATE.                       DCRET001
00088      MOVE ZERO TO PAGE-NO.                                        DCRET001
00089      MOVE SPACES TO USER-TITLE.                                   DCRET001
00090      MOVE SPACES TO STD-REPORT-REC.                               DCRET001
00091      MOVE ZERO TO PRT-CTL.                                        DCRET001
00092      MOVE "N" TO 8BY11-FLAG.                                      DCRET001
00093 *                                                                 DCRET001
00094 *     MOVE IN APPROPRIATE TITLE                                   DCRET001
00095 *                                                                 DCRET001
00096      IF TYPE-OUTPUT-CODE EQUAL TO "Q"                             DCRET001
00097          MOVE TITLE-1 TO REPORT-TITLE-LONG.                       DCRET001
00098      IF TYPE-OUTPUT-CODE EQUAL TO "R"                             DCRET001
00099          MOVE TITLE-2 TO REPORT-TITLE-LONG.                       DCRET001
00100      IF TYPE-OUTPUT-CODE EQUAL TO "G"                             DCRET001
00101          MOVE TITLE-3 TO REPORT-TITLE-LONG.                       DCRET001
00102      IF TYPE-OUTPUT-CODE EQUAL TO "I"                                CL**2
00103          MOVE TITLE-4 TO REPORT-TITLE-LONG.                          CL**2
00104      IF TYPE-OUTPUT-CODE EQUAL TO "B"                                CL**2
00105          MOVE TITLE-5 TO REPORT-TITLE-LONG.                          CL**2
00106      IF TYPE-OUTPUT-CODE EQUAL TO "P"                                CL**2
00107          MOVE TITLE-6 TO REPORT-TITLE-LONG.                          CL**2
00108      IF TYPE-OUTPUT-CODE EQUAL TO "F"                                CL**2
00109          MOVE TITLE-7 TO REPORT-TITLE-LONG.                          CL**2
00110 *********************************************************            CL**2
00111 *                                                                    CL**2
00112 *    INITIALIZE HEADING CONSTANTS AND INITIAL VALUES                 CL**2
00113 *                                                                    CL**2
00114 *********************************************************            CL**2
00115  2000-INIT-CONSTANTS.                                                CL**2
00116      MOVE LITERAL-1 TO PRT-DATE1-HCON.                               CL**2
00117      MOVE LITERAL-2 TO PRT-DATE2-HCON.                               CL**2
00118      MOVE LITERAL-3 TO PRT-PAGE-HCON.                                CL**2
00119      MOVE LITERAL-4 TO CON-DC.                                       CL**2
00120      MOVE LITERAL-5 TO PRT-REV-NO-HCON.                              CL**2
00121      MOVE ZERO TO HOF-IND.                                           CL**2
00122      MOVE 1 TO SPACE-1.                                              CL**2
00123 **********************************************************        DCRET001
00124 *                                                                 DCRET001
00125 *    RETURN TO CALLING PROGRAM                                    DCRET001
00126 *                                                                 DCRET001
00127 **********************************************************        DCRET001
00128  2000-RETURN.                                                     DCRET001
           EXIT PROGRAM.
*CALL RETCODE 
