*COMDECK  BALSUB2 
00001 *                                                                 07/26/78
00002 *    PRINT INVALID LENGTH ERROR MESSAGES                          BALSUB2 
00003 *                                                                    LV002
00004  LENGTH-ERROR-MSSG.                                                  CL**2
00005      PERFORM 9025-INFORM-ERROR THRU 9025-INFORM-ERROR-XIT.           CL**2
00006      PERFORM 9050-LENGTH-MSSG-ERR THRU 9050-LENGTH-MSSG-ERR-XIT.     CL**2
00007  LENGTH-ERROR-MSSG-XIT.                                              CL**2
00008      EXIT.                                                           CL**2
00009 *                                                                    CL**2
00010 *    PRINT INVALID FORMAT ERROR MESSAGES                             CL**2
00011 *                                                                    CL**2
00012  SELECT-ERROR-MSSG.                                                  CL**2
00013      PERFORM 9025-INFORM-ERROR THRU 9025-INFORM-ERROR-XIT.           CL**2
00014      PERFORM 9065-INITIAL-FORMAT THRU 9065-INITIAL-FORMAT-XIT.       CL**2
00015  SELECT-ERROR-MSSG-XIT.                                              CL**2
00016      EXIT.                                                           CL**2
00017 *                                                                    CL**2
00018 *    ROUTINE FINDS FIRST OPEN SPACE IN OPERAND FIELD OF PRINT        CL**2
00019 *                                                                    CL**2
00020  FIND-SPACES.                                                        CL**2
00021      ADD 1 TO SUB-A.                                                 CL**2
00022      IF SINGLE-OPERAND (SUB-A) NOT EQUAL TO SPACES                   CL**2
00023          GO TO FIND-SPACES.                                          CL**2
00024  FIND-SPACES-XIT.                                                    CL**2
00025      EXIT.                                                           CL**2
00026 *                                                                    CL**2
00027 *    ROUTINE LEFT JUSTIFIES A FIELD IN THE OPERAND OF PRINT LINE     CL**2
00028 *                                                                    CL**2
00029  MOVE-VALID-LENGTH.                                                  CL**2
00030      ADD 1 TO SUB-B.                                                 CL**2
00031      IF SCAN-FIELD (SUB-B) EQUAL TO SPACE OR ZERO                    CL**2
00032          MOVE SPACE TO SCAN-FIELD (SUB-B)                            CL**2
00033          GO TO MOVE-VALID-LENGTH.                                    CL**2
00034  MOVE-LETTER.                                                        CL**2
00035      ADD 1 TO SUB-A.                                                 CL**2
00036      MOVE SCAN-FIELD (SUB-B) TO SCAN-FIELD (SUB-A).                  CL**2
00037      MOVE SPACE TO SCAN-FIELD (SUB-B).                               CL**2
00038      ADD 1 TO SUB-B.                                                 CL**2
           IF SUB-B > 10
00040          MOVE ZERO TO SUB-B                                          CL**2
00041          GO TO MOVE-VALID-LENGTH-XIT.                                CL**2
00042      GO TO MOVE-LETTER.                                              CL**2
00043  MOVE-VALID-LENGTH-XIT.                                              CL**2
00044      EXIT.                                                           CL**2
00045 *****************************************************************    CL**2
00046 *     READ AND PROCESS COMMENT LINES                                 CL**2
00047 *****************************************************************    CL**2
00048  CHECK-COMMENT.                                                      CL**2
00049      IF CAT-COMMENT NOT EQUAL "*"                                    CL**2
00050          GO TO CHECK-COMMENT-XIT.                                    CL**2
00051      IF DATA-ENTRY-CAT NOT EQUAL "300"                               CL**2
00052          GO TO GET-NEXT-LINE.                                        CL**2
00053      IF GTBL-OPT-COMMENT EQUAL "Y"                                   CL**2
00054          MOVE SPACES TO HOLD-CARD-IMAGE                              CL**2
00055          MOVE CAT-DETAIL TO COMMENT-SAVE                             CL**2
00056          PERFORM BAL-OUT THRU BAL-OUT-XIT.                           CL**2
00057  GET-NEXT-LINE.                                                      CL**2
00058      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.                 CL**2
00059      IF DATA-RETURN-CODE NOT EQUAL 0                                 CL**2
00060          GO TO CHECK-COMMENT-XIT.                                    CL**2
00061      GO TO CHECK-COMMENT.                                            CL**2
00062  CHECK-COMMENT-XIT.                                                  CL**2
00063      EXIT.                                                           CL**2
00064  TEST-RETURN-CODE.                                                   CL**2
00065      IF DATA-RETURN-CODE NOT EQUAL TO ZERO                           CL**2
00066          GO TO TEST-RETURN-CODE-XIT.                                 CL**2
00067      PERFORM CHECK-COMMENT THRU CHECK-COMMENT-XIT.                   CL**2
00068  TEST-RETURN-CODE-XIT.                                               CL**2
00069      EXIT.                                                           CL**2
00070                                                                    BALSUB2
