*DECK DCGEN001
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. GEN001.
*CALL COPYRIGHT 
      * THIS MODULE INITIALIZES REPORT HEADING PROCESSING 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL OTHSN 
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
*CALL     MAST3SS1
       DATA DIVISION. 
       FILE SECTION.
*CALL     MAST3FD 
*CALL GENCS 
       WORKING-STORAGE SECTION. 
       77  CURRENT-DATE PICTURE X(8). 
*CALL     MAST3DD1
       01  REPORT-TITLES. 
           03  TITLE-3                 PICTURE X(50) VALUE
          "        G E N E R A T I O N   R E P O R T         ". 
       01  PROP-MSG.
           03  FILLER PICTURE X(44) VALUE 
               "DATA CATALOGUE 2                        V2.0".
           03  FILLER PICTURE X(29) VALUE 
               SPACES.
       01  LITERAL-TABLE. 
           03  LITERAL-1               PICTURE X(24) VALUE
            "REPORT DATE-". 
           03  LITERAL-2               PICTURE X(24) VALUE
            "DATE OF LAST REVISION-". 
           03  LITERAL-3               PICTURE X(5)  VALUE
            "PAGE". 
           03  LITERAL-4               PICTURE X(31)  VALUE 
            "D A T A   C A T A L O G U E   2".
           03  LITERAL-5               PICTURE X(25)  VALUE 
            "REVISION NUMBER-". 
*CALL CURDATE 
       PROCEDURE DIVISION.
      ******************************************************* 
      * 
      *   RETRIEVE HEADING DATA FROM CONTROL FILE 
      *               AND INITIALIZE RELATED FIELDS IN TBL
      * 
      *********************************************************** 
       0000-BEGIN.
           OPEN INPUT MAST3.
*CALL ACCEPTDT
           MOVE 1 TO CON-KEY. 
           READ MAST3 INVALID KEY 
           MOVE "12" TO RETURN-CODE 
              PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT 
               STOP RUN.
           MOVE CTL-DATE-UPD TO DATE-LAST-REVISION. 
           MOVE CTL-REV-NUM TO REVISION-NUMBER. 
           MOVE SPACES TO EOP-MSG.
           MOVE CTL-LINES TO MAX-LINES. 
           SUBTRACT 1 FROM MAX-LINES. 
           MOVE CTL-LINES TO LINE-CT. 
           MOVE CTL-NAME TO CON-USER. 
           MOVE PROP-MSG TO CON-TITLE.
           CLOSE MAST3. 
      ***************************************************** 
      * 
      *       INITIALIZE OTHER PRINT CTL TABLE FIELDS 
      * 
      **********************************************************
       1000-INIT-MISC.
           MOVE CURRENT-DATE TO PRT-CURRENT-DATE. 
           MOVE ZERO TO PAGE-NO.
           MOVE SPACES TO USER-TITLE. 
           MOVE SPACES TO STD-REPORT-REC. 
           MOVE ZERO TO PRT-CTL.
           MOVE "N" TO 8BY11-FLAG.
      * 
      *     MOVE IN APPROPRIATE TITLE 
      * 
           MOVE TITLE-3 TO REPORT-TITLE-LONG. 
      ********************************************************* 
      * 
      *    INITIALIZE HEADING CONSTANTS AND INITIAL VALUES
      * 
      ********************************************************* 
       2000-INIT-CONSTANTS. 
           MOVE LITERAL-1 TO PRT-DATE1-HCON.
           MOVE LITERAL-2 TO PRT-DATE2-HCON.
           MOVE LITERAL-3 TO PRT-PAGE-HCON. 
           MOVE LITERAL-4 TO CON-DC.
           MOVE LITERAL-5 TO PRT-REV-NO-HCON. 
           MOVE ZERO TO HOF-IND.
           MOVE 1 TO SPACE-1. 
      **********************************************************
      * 
      *    RETURN TO CALLING PROGRAM
      * 
      **********************************************************
       2000-RETURN. 
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT. 
           EXIT PROGRAM.
*CALL RETCODE 
