*COMDECK  PLCOUT
00001 ******************************************************************11/07/78
00002 *                                                                *PLCOUT
00003 *    TABLE PL/1 CARD IMAGES AND MESSAGES                             LV002
00004 *        40 ENTRIES ARE TABLED BEFORE RETURN                         CL**2
00005 *        RETURN TO CONTROL PROGRAM                                   CL**2
00006 *                                                                *PLCOUT
00007 ******************************************************************PLCOUT
00008  PLC-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-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 PLC-OUT-40.                                           CL**2
00018 *                                                                    CL**2
00019 *     OUTPUT GENERATED STATEMENT                                     CL**2
00020 *                                                                    CL**2
00021      MOVE GTBL-OPT-STARTSEQNO TO PLC-IDEN.                           CL**2
00022      ADD GTBL-OPT-INCSEQNO TO GTBL-OPT-STARTSEQNO.                   CL**2
00023      MOVE SPACES TO GTBL-OUTPUT-ENTRY (GTBL-COUNT).                  CL**2
00024      MOVE SPACES TO GTBL-OUTPUT-IND (GTBL-COUNT).                    CL**2
00025      MOVE HOLD-CARD-IMAGE TO GTBL-CARD-IMAGE (GTBL-COUNT).           CL**2
00026  PLC-OUT-CHECK.                                                      CL**2
00027      MOVE SPACES TO HOLD-CARD-IMAGE, SCAN-AREA, LEVEL-CARD-IMAGE.    CL**2
00028  PLC-OUT-40.                                                         CL**2
00029      IF GTBL-COUNT EQUAL 40                                          CL**2
00030          MOVE "4" TO GTBL-MOD-REQ                                    CL**2
00031          EXIT PROGRAM.                                             PLCOUT 
00032      GO TO PLC-OUT-XIT.                                              CL**2
00033  PLC-OUT-RETURN.                                                     CL**2
00034      MOVE ZERO TO GTBL-COUNT.                                        CL**2
00035      MOVE ZERO TO GTBL-MOD-REQ.                                      CL**2
00036  PLC-OUT-XIT.                                                        CL**2
00037      EXIT.                                                        PLCOUT
00038                                                                    PLCOUT 
00039 *                                                                    CL**2
00040 *    COMMON ROUTINES BEFORE PRINTING LINES                           CL**2
00041 *                                                                    CL**2
00042  PERFORM-STATE.                                                      CL**2
00043      PERFORM FLOAT-SEMI THRU FLOAT-SEMI-XIT.                         CL**2
00044      IF LINE-SW EQUAL TO "X"                                         CL**2
00045          MOVE "N" TO LINE-SW                                         CL**2
00046          GO TO PERFORM-STATE4.                                       CL**2
00047  PERFORM-STATE2.                                                     CL**2
00048      IF LINE-SW EQUAL TO "X"                                         CL**2
00049          MOVE "N" TO LINE-SW                                         CL**2
00050          GO TO PERFORM-STATE4.                                       CL**2
00051      PERFORM CLEAR-LEAD-ZERO THRU CLEAR-LEAD-ZERO-XIT.               CL**2
00052  PERFORM-STATE3.                                                     CL**2
00053      PERFORM REMOVE-HYPHEN THRU REMOVE-HYPHEN-XIT.                   CL**2
00054  PERFORM-STATE4.                                                     CL**2
00055      MOVE SCAN-AREA TO HOLD-CARD-IMAGE.                              CL**2
00056      PERFORM PLC-OUT THRU PLC-OUT-XIT.                               CL**2
00057  PERFORM-STATE-XIT.                                                  CL**2
00058      EXIT.                                                           CL**2
