*DECK     DCCBL300
00001  IDENTIFICATION DIVISION.                                         09/27/78
       PROGRAM-ID. CBL300.
*CALL COPYRIGHT 
      *    THIS MODULE CONTROLS THE CALLING OF THE COBOL GENERATION 
      *    MODULES AND DOES I/O FOR THE PRINTER AND CARD OUTPUT FILE
00010  ENVIRONMENT DIVISION.                                            DCCBL300
00011  CONFIGURATION SECTION.                                           DCCBL300
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL OTHSN 
00014  INPUT-OUTPUT SECTION.                                            DCCBL300
00015  FILE-CONTROL.                                                    DCCBL300
           SELECT MAST1 ASSIGN TO "MAST1" 
               ACCESS MODE IS RANDOM
               ORGANIZATION IS DIRECT 
               RECORD KEY IS DATA-KEY-2.
           SELECT MAST3 ASSIGN TO "MAST3" 
               ORGANIZATION IS RELATIVE 
               ACCESS MODE IS RANDOM
               RELATIVE KEY IS CON-KEY
               USE "PRUF = YES".
           SELECT SYSPRINT ASSIGN TO "OUTPUT".
           SELECT PUNCH-FILE ASSIGN TO PNCHFIL
               USE "RT=Z".
00024  DATA DIVISION.                                                   DCCBL300
00025  FILE SECTION.                                                    DCCBL300
*CALL     MAST1FD2                                                         CL**5
*CALL     MAST3FD                                                          CL**5
*CALL     SYSPRTFD                                                         CL**5
*CALL     SYSPUNFD                                                         CL**5
*CALL GENCS 
*CALL     WRKSTG77                                                         CL**5
*CALL     MAST3DD1                                                         CL**5
00033  01  CBLGEN-WORK-AREAS.                                              CL**2
00034      03  LINE-SUB                  PICTURE S99 COMP SYNC.            CL**2
00039      03  COLUMN-LINE1.                                               CL**2
00040          05  FILLER              PICTURE X(107)                      CL**2
00041          VALUE "                                      1   1   2      CL**2
00042 -        "2   2           4                                7         CL**2
00043 -        "8".                                                        CL**2
00044      03  COLUMN-LINE2.                                               CL**2
00045          05 FILLER               PICTURE X(107)                      CL**2
00046          VALUE "          CARD IMAGE       1......8...2...6...0...   CL**2
00047 -        "4...8...........0................................3......   CL**2
00048 -        "0".                                                        CL**2
00049      03  FIRST-TIME-SW           PICTURE X VALUE "Y".                CL**2
00050      03  COMMENT-1.                                                  CL**2
00051          05  FILLER              PICTURE X VALUE "*".                CL**2
00052          05  DSNAME-COMMENT      PICTURE X(32).                      CL**2
00053          05  FILLER              PICTURE X(29) VALUE                 CL**2
00054      "*DEFINITION CREATED FROM DC2 ".                                CL**2
00055      03  COMMENT-2.                                                  CL**2
00056          05  FILLER              PICTURE X(21) VALUE                 CL**2
00057      "*DATE OF GENERATION: ".                                        CL**2
00058          05  DATE-TODAY          PICTURE X(10).                      CL**2
00059      03  COMMENT-3.                                                  CL**2
00060          05  FILLER              PICTURE X(30) VALUE                 CL**2
00061      "*MASTER FILE REVISION NUMBER= ".                               CL**2
00062          05  REV-NUM             PICTURE X(5).                       CL**2
00063      03  COMMENT-4.                                                  CL**2
00064          05  FILLER              PICTURE X(24) VALUE                 CL**2
00065      "*DATE OF LAST REVISION= ".                                     CL**2
00066          05  REV-DATE-LAST       PICTURE X(8).                       CL**2
00067      03  COMMENT-5.                                                  CL**2
00068          05  FILLER              PICTURE X VALUE "*".                CL**2
00069      03  HOLD-COMMENT-IMAGE.                                         CL**2
00070          05  FILLER              PICTURE X(26).                      CL**2
00071          05  CARD-IMAGE.                                             CL**2
00072              07  MSG-SEQNO       PICTURE X(6).                       CL**2
00073              07  COMMENT-SAVE    PICTURE X(66).                      CL**2
00074              07  MSG-IDEN        PICTURE X(8).                       CL**2
00077      03  MAST1-ERR-MSG           PICTURE X(36) VALUE                 CL**2
00078         "DCGEN-900-F ERROR * MAST1 READ ERROR".                      CL**2
00079      03  MAST3-ERR-MSG           PICTURE X(45) VALUE                 CL**2
00080         "DCGEN-950-F ERROR * MAST3 READ CLIENT RECORD".              CL**2
00081  01  START-HOLD-NUMBER.                                              CL**2
00082      03  INCREMENT-START         PICTURE 9(6).                       CL**2
*CALL CURDATE 
00088                                                                    DCCBL30
00089  PROCEDURE DIVISION.                                              DCCBL300
00091 ********************************************************          DCCBL300
00092 ********************************************************          DCCBL300
00093 *                                                                 DCCBL300
00094 *     INITIALIZE                                                  DCCBL300
00095 *                                                                 DCCBL300
00096 ********************************************************          DCCBL300
00097 ********************************************************          DCCBL300
00098  0000-START.                                                      DCCBL300
00099      OPEN INPUT MAST1.                                               CL**2
00100      OPEN INPUT MAST3.                                               CL**2
00101      OPEN OUTPUT SYSPRINT.                                        DCCBL300
           OPEN EXTEND PUNCH-FILE.
00103 *                                                                    CL**2
00104 *     GET DATA FILE PRIME NUMBER                                     CL**2
00105 *                                                                    CL**2
00110      MOVE GTBL-OPT-STARTSEQNO TO INCREMENT-START.                    CL**2
00111 *                                                                    CL**2
00112 *      OUTPUT HEADINGS FOR GENERATION REPORT                         CL**2
00113 *                                                                    CL**2
00114  0100-START-REQ.                                                     CL**2
00115      MOVE "Y" TO FIRST-TIME-SW.                                      CL**2
00116      MOVE 99 TO LINE-CT.                                             CL**2
00117      MOVE SPACES TO STD-REPORT-REC.                                  CL**2
00118      MOVE SPACES TO PRINT-LINE.                                   DCCBL300
00119      IF GTBL-OPT-LIST EQUAL "Y"                                      CL**2
00120          PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT                  CL**2
00121          GO TO 0150-INIT-TABLE.                                      CL**2
00122          IF GTBL-OPT-PUNCH EQUAL "Y"                                 CL**2
00123          PERFORM CREATION-COMMENT THRU CREATION-COMMENT-XIT.         CL**2
00124  0150-INIT-TABLE.                                                    CL**2
00125 *      INITIALIZE TABLE AND COUNT                                 DCCBL300
00126      MOVE ZERO TO GTBL-COUNT.                                        CL**2
00127      MOVE ZERO TO GTBL-MOD-REQ.                                   DCCBL300
00128      MOVE SPACES TO GTBL-OUTPUT-TABLE.                               CL**2
00129 *********************************************************         DCCBL300
00130 *********************************************************         DCCBL300
00131 *                                                                 DCCBL300
00132 *    CALL THE GENERATION MODULES AND RESPOND TO THEIR REQUESTS    DCCBL300
00133 *                                                                 DCCBL300
00134 *********************************************************         DCCBL300
00135      IF GTBL-SEL-TYPE EQUAL "15" OR "13"                             CL**2
00136          GO TO 0500-RECORD-REQ.                                   DCCBL300
00137 **********************************************************        DCCBL300
00138 *                                                                 DCCBL300
00139 *    PROCESS FILE LEVEL GENERATION REQUEST                        DCCBL300
00140 *                                                                 DCCBL300
00141 **********************************************************        DCCBL300
00142  0200-FILE-REQ.                                                   DCCBL300
00143      MOVE ZERO TO GTBL-MOD-REQ.                                   DCCBL300
00144  0210-FILE-RETURN.                                                DCCBL300
           CALL "CBL320". 
00147 *      RESPOND TO MODULE REQUESTS                                 DCCBL300
00148 *                                                                 DCCBL300
00149      IF GTBL-MOD-REQ EQUAL TO "9"                                 DCCBL300
00150          MOVE 4 TO GTBL-MOD-REQ                                      CL**2
00151          PERFORM 5000-OUTPUT-REQ THRU 5599-OUTPUT-REQ-XIT            CL**2
00152          GO TO 0500-RECORD-REQ.                                   DCCBL300
00153      IF GTBL-MOD-REQ EQUAL TO "8"                                 DCCBL300
00154          MOVE 4 TO GTBL-MOD-REQ                                      CL**2
00155          PERFORM 5000-OUTPUT-REQ THRU 5599-OUTPUT-REQ-XIT            CL**2
00156          GO TO 8000-ABORT.                                        DCCBL300
00157      PERFORM 5000-OUTPUT-REQ THRU 5599-OUTPUT-REQ-XIT.               CL**2
00158      GO TO 0210-FILE-RETURN.                                      DCCBL300
00159 ***********************************************************       DCCBL300
00160 *                                                                 DCCBL300
00161 *    PROCESS RECORD LEVEL GENERATION REQUEST                      DCCBL300
00162 *                                                                 DCCBL300
00163 **********************************************************        DCCBL300
00164  0500-RECORD-REQ.                                                 DCCBL300
00165      MOVE ZERO TO GTBL-MOD-REQ.                                   DCCBL300
00166  0510-RECORD-RETURN.                                              DCCBL300
           CALL "CBL315". 
00168 *                                                                 DCCBL300
00169 *       RESPOND TO MODULE REQUESTS                                DCCBL300
00170 *                                                                 DCCBL300
00171      IF GTBL-MOD-REQ EQUAL TO "9"                                 DCCBL300
00172          MOVE 4 TO GTBL-MOD-REQ                                      CL**2
00173          PERFORM 5000-OUTPUT-REQ THRU 5599-OUTPUT-REQ-XIT            CL**2
00174          GO TO 1000-REQ-FINI.                                     DCCBL300
00175      IF GTBL-MOD-REQ EQUAL TO "8"                                 DCCBL300
00176          MOVE 4 TO GTBL-MOD-REQ                                      CL**2
00177          PERFORM 5000-OUTPUT-REQ THRU 5599-OUTPUT-REQ-XIT            CL**2
00178          GO TO 8000-ABORT.                                        DCCBL300
00179      PERFORM 5000-OUTPUT-REQ THRU 5599-OUTPUT-REQ-XIT.               CL**2
00180      GO TO 0510-RECORD-RETURN.                                    DCCBL300
00181 *                                                                 DCCBL300
00182 *    COBOL STRUCTURE GENERATED-CHECK FOR MULTIPLE COPIES          DCCBL300
00183 *                                                                 DCCBL300
00184  1000-REQ-FINI.                                                   DCCBL300
00185      IF GTBL-OPT-SUFFIX1 NOT EQUAL TO SPACES                         CL**2
00186          GO TO 1075-REQUEST-FINI.                                    CL**2
00187      IF GTBL-OPT-SUFFIX2 NOT EQUAL TO SPACES                         CL**2
00188          GO TO 1075-REQUEST-FINI.                                    CL**2
00189      IF GTBL-OPT-PREFIX2 EQUAL SPACES                             DCCBL300
00190          GO TO 1050-CHANGE-PREFIX.                                   CL**2
00191      MOVE GTBL-OPT-PREFIX1 TO HOLD-FIRST-PREFIX.                     CL**2
00192      MOVE "Y" TO FIRST-PREFIX-SW.                                    CL**2
00193      MOVE GTBL-OPT-PREFIX2 TO GTBL-OPT-PREFIX1.                      CL**2
00194      MOVE SPACES TO GTBL-OPT-PREFIX2.                                CL**2
00195      MOVE INCREMENT-START TO GTBL-OPT-STARTSEQNO.                    CL**2
00196      GO TO 0100-START-REQ.                                           CL**2
00197  1050-CHANGE-PREFIX.                                                 CL**2
00198      IF FIRST-PREFIX-SW EQUAL "N"                                    CL**2
00199          GO TO 1100-END-GENERATION.                                  CL**2
00200      MOVE "N" TO FIRST-PREFIX-SW.                                    CL**2
00201      MOVE GTBL-OPT-PREFIX1 TO GTBL-OPT-PREFIX2.                      CL**2
00202      MOVE HOLD-FIRST-PREFIX TO GTBL-OPT-PREFIX1.                     CL**2
00203      MOVE SPACES TO HOLD-FIRST-PREFIX.                               CL**2
00204      GO TO 1100-END-GENERATION.                                      CL**2
00205  1075-REQUEST-FINI.                                                  CL**2
00206      IF GTBL-OPT-SUFFIX2 EQUAL TO SPACES                             CL**2
00207          GO TO 1090-CHANGE-SUFFIX.                                   CL**2
00208      MOVE GTBL-OPT-SUFFIX1 TO HOLD-FIRST-PREFIX.                     CL**2
00209      MOVE "Y" TO FIRST-PREFIX-SW.                                    CL**2
00210      MOVE GTBL-OPT-SUFFIX2 TO GTBL-OPT-SUFFIX1.                      CL**2
00211      MOVE SPACES TO GTBL-OPT-SUFFIX2.                                CL**2
00212      MOVE INCREMENT-START TO GTBL-OPT-STARTSEQNO.                    CL**2
00213      GO TO 0100-START-REQ.                                           CL**2
00214  1090-CHANGE-SUFFIX.                                                 CL**2
00215      IF FIRST-PREFIX-SW EQUAL TO "N"                                 CL**2
00216          GO TO 1100-END-GENERATION.                                  CL**2
00217      MOVE "N" TO FIRST-PREFIX-SW.                                    CL**2
00218      MOVE GTBL-OPT-SUFFIX1 TO GTBL-OPT-SUFFIX2.                      CL**2
00219      MOVE HOLD-FIRST-PREFIX TO GTBL-OPT-SUFFIX1.                     CL**2
00220      MOVE SPACES TO HOLD-FIRST-PREFIX.                               CL**2
00221 **************************************************                   CL**2
00222 **************************************************                   CL**2
00223 *                                                                    CL**2
00224 *     END OF REQUEST PROCESSING                                      CL**2
00225 *                                                                    CL**2
00226 ****************************************************                 CL**2
00227 ****************************************************                 CL**2
00228  1100-END-GENERATION.                                             DCCBL300
00229      CLOSE MAST1.                                                    CL**2
00230      CLOSE MAST3.                                                    CL**2
00231      CLOSE SYSPRINT.                                              DCCBL300
00232      CLOSE PUNCH-FILE.                                            DCCBL300
           EXIT PROGRAM.
00234                                                                    DCCBL30
00235 *******************************************************           DCCBL300
00236 *******************************************************           DCCBL300
00237 *                                                                 DCCBL300
00238 *                                                                    CL**2
00239 *     RESPOND TO I/O REQUESTS                                        CL**2
00240 *                                                                    CL**2
00241 *                                                                 DCCBL300
00242 *******************************************************           DCCBL300
00243 *******************************************************           DCCBL300
00244  5000-OUTPUT-REQ.                                                 DCCBL300
00245      IF GTBL-MOD-REQ EQUAL "1"                                       CL**2
00246          GO TO 5200-MAST1-READ.                                      CL**2
00247 *                                                                    CL**2
00248 *    OUTPUT COBOL STATEMENTS AND ERROR MESSAGES                      CL**2
00249 *                                                                    CL**2
00250      IF GTBL-COUNT EQUAL ZERO                                        CL**2
00251          GO TO 5599-OUTPUT-REQ-XIT.                                  CL**2
00252      MOVE 1 TO LINE-SUB.                                          DCCBL300
00253  5010-NEXT-LINE.                                                  DCCBL300
00254      IF GTBL-OUTPUT-IND (LINE-SUB) NOT EQUAL "E"                     CL**2
00255          GO TO 5015-OUT-COBOL.                                       CL**2
00256      IF GTBL-OPT-LIST EQUAL "N"                                      CL**2
00257          GO TO 5100-CHECK-END                                        CL**2
00258      ELSE                                                            CL**2
00259          MOVE GTBL-OUTPUT-ENTRY (LINE-SUB) TO STD-REPORT-REC         CL**2
00260          PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT               DCCBL300
00261          GO TO 5100-CHECK-END.                                    DCCBL300
00262 *                                                                 DCCBL300
00263 *        OUTPUT COBOL STATMENTS                                   DCCBL300
00264 *                                                                 DCCBL300
00265  5015-OUT-COBOL.                                                     CL**2
00266      IF GTBL-OPT-LIST EQUAL "Y"                                   DCCBL300
00267          MOVE GTBL-OUTPUT-ENTRY (LINE-SUB) TO STD-REPORT-REC         CL**2
00268          PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.              DCCBL300
00269      IF GTBL-OPT-PUNCH EQUAL "Y"                                  DCCBL300
00270          MOVE GTBL-CARD-IMAGE (LINE-SUB) TO PUNCH-CARD            DCCBL300
00271          WRITE PUNCH-CARD.                                        DCCBL300
00272  5100-CHECK-END.                                                  DCCBL300
00273      IF LINE-SUB EQUAL GTBL-COUNT                                 DCCBL300
00274          GO TO 5150-OUTPUT-RESET.                                 DCCBL300
00275      ADD 1 TO LINE-SUB.                                           DCCBL300
00276      GO TO 5010-NEXT-LINE.                                        DCCBL300
00277  5150-OUTPUT-RESET.                                               DCCBL300
00278      MOVE SPACES TO GTBL-OUTPUT.                                  DCCBL300
00279      GO TO 5599-OUTPUT-REQ-XIT.                                      CL**2
00280  5200-MAST1-READ.                                                    CL**2
00281 *                                                                    CL**2
00282 *      PHYSICAL READ OF DATA FILE (PASS INFO IN LINKAGE)             CL**2
00283 *                                                                    CL**2
           MOVE DATA-KEY TO DATA-KEY-2. 
00285      READ MAST1 INVALID KEY                                          CL**2
             IF DATANAME-OK = "N" 
             THEN 
               GO TO 9010-MAST1-READ-ERROR
             ELSE 
               MOVE "F" TO DATANAME-OK
               GO TO 5599-OUTPUT-REQ-XIT
             END-IF.
00287      MOVE MAST1-RECORD TO DATA-RECORD.                               CL**2
00288  5599-OUTPUT-REQ-XIT.                                                CL**2
00289      EXIT.                                                        DCCBL300
00290 ********************************************************             CL**2
00291 ********************************************************             CL**2
00292 *                                                                    CL**2
00293 *     ERROR ROUTINES                                                 CL**2
00294 *                                                                    CL**2
00295 ********************************************************             CL**2
00296 ********************************************************             CL**2
00297  8000-ABORT.                                                         CL**2
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT. 
00298      STOP RUN.                                                       CL**2
*CALL RETCODE 
00299 *                                                                    CL**2
00300 *   CONTROL FILE READ ERROR                                          CL**2
00301 *                                                                    CL**2
00302  9000-MAST3-READ-ERROR.                                              CL**2
00303      MOVE MAST3-ERR-MSG TO STD-REPORT-REC.                           CL**2
00304      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00305      GO TO 8000-ABORT.                                               CL**2
00306 *                                                                    CL**2
00307 *   DATA FILE READ ERROR                                             CL**2
00308 *                                                                    CL**2
00309  9010-MAST1-READ-ERROR.                                              CL**2
00310      MOVE MAST1-ERR-MSG TO STD-REPORT-REC.                           CL**2
00311      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00312      GO TO 8000-ABORT.                                               CL**2
00313                                                                    DCCBL30
00314 *******************************************************              CL**2
00315 *******************************************************              CL**2
00316 *                                                                    CL**2
00317 *     COMMON SUBROUTINES                                             CL**2
00318 *                                                                    CL**2
00319 ********************************************************             CL**2
00320 ********************************************************             CL**2
00321 *                                                                    CL**2
00322 *   OUTPUT GENERATION CARD COLUMN SUB HEADINGS                       CL**2
00323 *      ROUTINE IS ENTERED FROM DISPLAY-LINE                          CL**2
00324 *                                                                    CL**2
00325  USER-ROUTINE.                                                       CL**2
00326      MOVE COLUMN-LINE1 TO PRINT-LINE.                                CL**2
00327      MOVE 2 TO PRT-CTL.                                              CL**2
00328      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00329      MOVE COLUMN-LINE2 TO PRINT-LINE.                                CL**2
00330      MOVE 1 TO PRT-CTL.                                              CL**2
00331      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00332      MOVE SPACES TO PRINT-LINE.                                      CL**2
00333      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00334      IF FIRST-TIME-SW NOT EQUAL "Y"                                  CL**2
00335          GO TO USER-ROUTINE-XIT.                                     CL**2
00336      MOVE "N" TO FIRST-TIME-SW.                                      CL**2
00337      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00338      PERFORM CREATION-COMMENT THRU CREATION-COMMENT-XIT.             CL**2
00339  USER-ROUTINE-XIT.                                                   CL**2
00340      EXIT.                                                           CL**2
00341  CREATION-COMMENT.                                                   CL**2
00342      MOVE SPACES TO HOLD-COMMENT-IMAGE.                              CL**2
00343      MOVE GTBL-SEL-CNAME TO DSNAME-COMMENT.                          CL**2
00344      MOVE COMMENT-1 TO COMMENT-SAVE.                                 CL**2
00345      PERFORM MSG-OUT THRU MSG-OUT-XIT.                               CL**2
*CALL ACCEPTDT
00346      MOVE CURRENT-DATE TO DATE-TODAY.                                CL**2
00347      MOVE COMMENT-2 TO COMMENT-SAVE.                                 CL**2
00348      PERFORM MSG-OUT THRU MSG-OUT-XIT.                               CL**2
00349      MOVE REVISION-NUMBER TO REV-NUM.                                CL**2
00350      MOVE COMMENT-3 TO COMMENT-SAVE.                                 CL**2
00351      PERFORM MSG-OUT THRU MSG-OUT-XIT.                               CL**2
00352      MOVE DATE-LAST-REVISION TO REV-DATE-LAST.                       CL**2
00353      MOVE COMMENT-4 TO COMMENT-SAVE.                                 CL**2
00354      PERFORM MSG-OUT THRU MSG-OUT-XIT.                               CL**2
00355      MOVE COMMENT-5 TO COMMENT-SAVE.                                 CL**2
00356      PERFORM MSG-OUT THRU MSG-OUT-XIT.                               CL**2
00357  CREATION-COMMENT-XIT.                                               CL**2
00358      EXIT.                                                           CL**2
00359  MSG-OUT.                                                            CL**2
00360      IF GTBL-OPT-SEQCOL EQUAL TO SPACES                              CL**2
00361          GO TO MSG-OUT2.                                             CL**2
00362      IF GTBL-OPT-SEQCOL EQUAL TO "01" OR " 1" OR "1 "                CL**2
00363          GO TO MSG-OUT2.                                             CL**2
00364      MOVE GTBL-OPT-STARTSEQNO TO MSG-IDEN.                           CL**2
00365      MOVE SPACES TO MSG-SEQNO.                                       CL**2
00366      ADD GTBL-OPT-INCSEQNO TO GTBL-OPT-STARTSEQNO.                   CL**2
00367      GO TO MSG-OUT-LIST.                                             CL**2
00368  MSG-OUT2.                                                           CL**2
00369      MOVE GTBL-OPT-STARTSEQNO TO MSG-SEQNO.                          CL**2
00370      ADD GTBL-OPT-INCSEQNO TO GTBL-OPT-STARTSEQNO.                   CL**2
00371      MOVE GTBL-OPT-IDEN TO MSG-IDEN.                                 CL**2
00372  MSG-OUT-LIST.                                                       CL**2
00373      IF GTBL-OPT-LIST EQUAL "Y"                                      CL**2
00374          MOVE HOLD-COMMENT-IMAGE TO PRINT-DATA                       CL**2
00375          MOVE 1 TO PRT-CTL                                           CL**2
00376         ADD 1 TO LINE-CT                                             CL**2
00377          PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                     CL**2
00378      IF GTBL-OPT-PUNCH EQUAL "Y"                                     CL**2
00379          MOVE CARD-IMAGE TO PUNCH-CARD                               CL**2
00380          WRITE PUNCH-CARD.                                           CL**2
00381      MOVE SPACES TO HOLD-COMMENT-IMAGE.                              CL**2
00382  MSG-OUT-XIT.                                                        CL**2
00383      EXIT.                                                           CL**2
*CALL     DISPLAYLN                                                        CL**5
*CALL     WRITELN                                                          CL**5
