*DECK DCCVTHDR
       IDENTIFICATION DIVISION. 
       PROGRAM-ID.    CVTHDR. 
*CALL COPYRIGHT 
      * THIS PROGRAM GENERATES TRANSACTIONS FOR THE UPDATE FROM 
      * COBOL, TOTAL DBDL.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SYSPRINT ASSIGN TO "OUTPUT".
           SELECT MAST3 ASSIGN TO "MAST3" 
               ORGANIZATION IS RELATIVE 
               ACCESS MODE IS RANDOM
               RELATIVE KEY IS CON-KEY
               USE "PRUF=YES".
       DATA DIVISION. 
       FILE SECTION.
*CALL SYSPRTFD
*CALL MAST3FD 
*CALL CVTCOM
       01  PRINT-AREA.
*CALL WKPRINT 
               10  ERROR-REC REDEFINES STD-REPORT-REC.
                   15  FILLER          PICTURE XX.
                   15  ERROR-POS1      PICTURE X(6).
                   15  ERROR-POS2      PICTURE X(50). 
*CALL WRKFHDR 
*CALL PNCHCOM 
*CALL WRKSTG77
*CALL CURDATE 
       01  CON-KEY                     PICTURE 9(3).
       01  WORK-AREAS.
           05  BAD-KEY                 PICTURE X(50)    VALUE 
               "950-F *ERROR MAST3-READ CLIENT RECORD". 
           05  PROP-MSG.
               10  FILLER              PICTURE X(44)    VALUE 
               "DATA CATALOGUE 2                        V2.0".
               10  FILLER              PICTURE X(29)    VALUE 
*CALL LEVEL 
           05  PROG-ID                 PICTURE X(6)     VALUE "DCCVT-". 
           05  DC-CON                PICTURE X(31)      VALUE 
               "D A T A   C A T A L O G U E   2". 
           05  RPT-TIT               PICTURE X(50)      VALUE 
           "C O N V E R S I O N   C O N T R O L   R E P O R T". 
       PROCEDURE DIVISION.
       BEGIN-PARA.
*CALL ACCEPTDT
           OPEN OUTPUT SYSPRINT.
           OPEN INPUT MAST3.
           MOVE ZERO TO RETURN-CODE.
           MOVE 1 TO CON-KEY. 
           READ MAST3 
               INVALID KEY MOVE BAD-KEY TO ERROR-POS2 
               GO TO CVT-ABORT. 
           MOVE CURRENT-DATE TO PRT-CURRENT-DATE. 
           MOVE RPT-TIT TO REPORT-TITLE-LONG. 
           MOVE CTL-DATE-UPD TO DATE-LAST-REVISION. 
           MOVE CTL-REV-NUM TO REVISION-NUMBER. 
           MOVE CTL-EOP-MSG TO EOP-MSG. 
           MOVE CTL-LINES TO LINE-CT. 
           SUBTRACT 1 FROM LINE-CT GIVING MAX-LINES.
           MOVE 1 TO PRT-CTL. 
           MOVE ZERO TO PAGE-NO.
           MOVE "N" TO 8BY11-FLAG.
           MOVE 1 TO SPACE-1. 
           MOVE ZERO TO HOF-IND.
           MOVE SPACES TO STD-REPORT-REC. 
           MOVE "PAGE" TO PRT-PAGE-HCON.
           MOVE "REPORT DATE-" TO PRT-DATE1-HCON. 
           MOVE "REVISION NUMBER-" TO PRT-REV-NO-HCON.
           MOVE "DATE OF LAST REVISION-" TO PRT-DATE2-HCON. 
           MOVE DC-CON TO CON-DC. 
           MOVE SPACE TO USER-TITLE.
           MOVE PROP-MSG TO CON-TITLE.
           MOVE CTL-NAME TO CON-USER. 
           CLOSE MAST3. 
           CLOSE SYSPRINT.
           EXIT PROGRAM.
       CVT-ABORT. 
           CLOSE MAST3. 
           MOVE PROG-ID TO ERROR-POS1.
           PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.
           CLOSE SYSPRINT.
           MOVE 12 TO RETURN-CODE.
           EXIT PROGRAM.
*CALL DISPLAYLN 
*CALL WRITELN 
*CALL USERROUT
  
