*COMDECK  BALOUT
00001 ******************************************************************04/24/78
00002 *                                                                *BALOUT
00003 *    TABLE CARD IMAGES AND MESSAGES                                  LV002
00004 *        40 ENTRIES ARE TABLED BEFORE RETURN                         CL**2
00005 *        RETURN TO CONTROL PROGRAM                                   CL**2
00006 *                                                                *BALOUT
00007 ******************************************************************BALOUT
00008  BAL-OUT.                                                            CL**2
00009      ADD 1 TO GTBL-COUNT.                                            CL**2
00010 *                                                                    CL**2
00011 *     OUTPUT ERROR MESSAGE                                           CL**2
00012 *                                                                    CL**2
00013      IF MSG-SW 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          GO TO BAL-OUT-CHECK.                                        CL**2
00017 *                                                                    CL**2
00018 *     OUTPUT GENERATED STATEMENT                                     CL**2
00019 *                                                                    CL**2
00020      IF GTBL-OPT-IDEN NOT EQUAL TO SPACES                            CL**2
00021          MOVE GTBL-OPT-IDEN TO BAL-IDEN                              CL**2
00022          GO TO BAL-OUT-CONTINUE.                                     CL**2
00023      MOVE GTBL-OPT-STARTSEQNO TO BAL-IDEN.                           CL**2
00024      ADD GTBL-OPT-INCSEQNO TO GTBL-OPT-STARTSEQNO.                   CL**2
00025  BAL-OUT-CONTINUE.                                                   CL**2
00026      MOVE SPACES TO GTBL-OUTPUT-ENTRY (GTBL-COUNT).                  CL**2
00027      MOVE SPACES TO GTBL-OUTPUT-IND (GTBL-COUNT).                    CL**2
00028      MOVE HOLD-BAL-IMAGE TO GTBL-CARD-IMAGE (GTBL-COUNT).            CL**2
00029  BAL-OUT-CHECK.                                                      CL**2
00030      IF GTBL-COUNT EQUAL 40                                          CL**2
00031          MOVE "4" TO GTBL-MOD-REQ                                    CL**2
00032          EXIT PROGRAM.                                             BALOUT 
00033      GO TO BAL-OUT-XITA.                                             CL**2
00034  BAL-OUT-RETURN.                                                     CL**2
00035      MOVE ZERO TO GTBL-COUNT.                                        CL**2
00036      MOVE ZERO TO GTBL-MOD-REQ.                                      CL**2
00037  BAL-OUT-XITA.                                                       CL**2
00038      IF MSG-SW EQUAL TO "Y"                                          CL**2
00039          MOVE "N" TO MSG-SW                                          CL**2
00040          GO TO BAL-OUT-XIT.                                          CL**2
00041      MOVE SPACES TO HOLD-BAL-IMAGE.                                  CL**2
00042  BAL-OUT-XIT.                                                        CL**2
00043      EXIT.                                                        BALOUT
00044                                                                    BALOUT 
