*COMDECK  CBLOUT
00001 ******************************************************************09/27/78
00002 *                                                                *CBLOUT
00003 *   TABLE COBOL CARD IMAGES AND MESSAGES                             LV002
00004 *        40 ENTRIES ARE TABLED BEFORE RETURN                         CL**2
00005 *        RETURN TO CONTROL PROGRAM                                   CL**2
00006 *                                                                *CBLOUT
00007 ******************************************************************CBLOUT
00008  CBL-OUT.                                                         CBLOUT
00009      ADD 1 TO GTBL-COUNT.                                            CL**2
00010 *                                                                    CL**2
00011 *     OUTPUT ERROR MESSAGE                                           CL**2
00012 *                                                                    CL**2
00013      IF MSG-SWITCH EQUAL TO "Y"                                      CL**2
00014          MOVE ERROR-LINE TO GTBL-OUTPUT-ENTRY (GTBL-COUNT)           CL**2
00015          MOVE "E" TO GTBL-OUTPUT-IND (GTBL-COUNT)                    CL**2
00016          MOVE "N" TO MSG-SWITCH                                      CL**2
00017          GO TO CBL-OUT-CHECK.                                        CL**2
00018 *                                                                    CL**2
00019 *     OUTPUT GENERATED STATEMENT                                     CL**2
00020 *                                                                    CL**2
00021      IF GTBL-OPT-SEQCOL EQUAL TO SPACES                              CL**2
00022          GO TO REG-CBL-OUT.                                          CL**2
00023      IF GTBL-OPT-SEQCOL EQUAL TO "01" OR " 1" OR "1 "                CL**2
00024          GO TO REG-CBL-OUT.                                          CL**2
00025      MOVE GTBL-OPT-STARTSEQNO TO CBL-IDEN.                           CL**2
00026      MOVE SPACES TO CON-COBOL-SEQNO.                                 CL**2
00027      ADD GTBL-OPT-INCSEQNO TO GTBL-OPT-STARTSEQNO.                   CL**2
00028      GO TO CBL-OUT-LIST.                                             CL**2
00029  REG-CBL-OUT.                                                        CL**2
00030      MOVE GTBL-OPT-STARTSEQNO TO CBL-SEQNO.                          CL**2
00031      ADD GTBL-OPT-INCSEQNO TO GTBL-OPT-STARTSEQNO.                   CL**2
00032      MOVE GTBL-OPT-IDEN TO CBL-IDEN.                                 CL**2
00033  CBL-OUT-LIST.                                                       CL**2
00034      MOVE SPACES TO GTBL-OUTPUT-ENTRY (GTBL-COUNT).                  CL**2
00035      MOVE SPACES TO GTBL-OUTPUT-IND (GTBL-COUNT).                    CL**2
00036      MOVE HOLD-CARD-IMAGE TO GTBL-CARD-IMAGE (GTBL-COUNT).           CL**2
00037  CBL-OUT-CHECK.                                                      CL**2
00038      IF GTBL-COUNT EQUAL 40                                          CL**2
00039          MOVE "4" TO GTBL-MOD-REQ                                    CL**2
00040          EXIT PROGRAM.                                             CBLOUT 
00041      GO TO CBL-OUT-XIT.                                              CL**2
00042  CBL-OUT-RETURN.                                                     CL**2
00043      MOVE ZERO TO GTBL-COUNT.                                        CL**2
00044      MOVE ZERO TO GTBL-MOD-REQ.                                      CL**2
00045  CBL-OUT-XIT.                                                     CBLOUT
00046      EXIT.                                                        CBLOUT
