*COMDECK  CBLSUB
00001  FLOAT-PERIOD.                                                    09/27/78
00002      MOVE 80 TO LEN-P.                                            CBLSUB
00003  FLOAT-LOOP.                                                         LV002
00004      IF SCAN-FIELD (LEN-P) NOT EQUAL SPACE                           CL**2
00005          ADD 1 TO LEN-P                                           CBLSUB
00006          MOVE "." TO SCAN-FIELD (LEN-P)                              CL**2
00007          GO TO FLOAT-PERIOD-XIT.                                     CL**2
00008      SUBTRACT 1 FROM LEN-P.                                       CBLSUB
00009      IF LEN-P GREATER THAN 0 GO TO FLOAT-LOOP.                       CL**2
00010  FLOAT-PERIOD-XIT.                                                   CL**2
00011      EXIT.                                                        CBLSUB
00012  FLOAT-QUOTE.                                                        CL**2
00013      MOVE 80 TO LEN-P.                                               CL**2
00014  FLOAT-LOOP-QUOTE.                                                   CL**2
00015      IF SCAN-FIELD (LEN-P) EQUAL TO SPACE                            CL**2
00016          SUBTRACT 1 FROM LEN-P                                       CL**2
00017          GO TO FLOAT-LOOP-QUOTE.                                     CL**2
00018      ADD 1 TO LEN-P.                                                 CL**2
00019      IF LEN-P GREATER THAN 70                                        CL**2
00020          MOVE FILLER-DASH TO FILLER-DASH2                            CL**2
00021          MOVE QUOTE-VALKW TO QUOTE-VALKW2                            CL**2
00022          MOVE QUOTE-VALUE TO QUOTE-VALUE2                            CL**2
00023          MOVE VALUE-INITIAL TO VALUE-INITIAL2                        CL**2
00024          MOVE SPACES TO SCAN-AREA                                    CL**2
                MOVE CARD-INIT-VALUE2 TO SCAN-AREA
00026          MOVE 80 TO LEN-P                                            CL**2
00027          GO TO FLOAT-LOOP-QUOTE.                                     CL**2
00028      IF GTBL-OPT-QUOTE EQUAL TO "Y"                                  CL**2
00029          MOVE LITERAL-1 TO SCAN-FIELD (LEN-P)                        CL**2
00030      ELSE                                                            CL**2
00031          MOVE QUOTE TO SCAN-FIELD (LEN-P).                           CL**2
00032  FLOAT-QUOTE-XIT.                                                    CL**2
00033      EXIT.                                                           CL**2
00034 *****************************************************************    CL**2
00035 *     INSERT PREFIX IF INDICATED                                     CL**2
00036 ****************************************************************     CL**2
00037  INSERT-PREFIX.                                                      CL**2
00038      MOVE SPACES TO WORK-DATA-NAME.                                  CL**2
00039      IF GTBL-OPT-SUFFIX1 NOT EQUAL TO SPACES                         CL**2
00040          MOVE 0 TO SUB1, SUB2                                        CL**2
00041          MOVE GTBL-OPT-SUFFIX1 TO WORK-DATA-NAME                     CL**2
00042          GO TO INSERT-SUFFIX.                                        CL**2
00043      IF GTBL-OPT-PREFIX1 EQUAL TO SPACES                             CL**2
00044          MOVE WS-DATA-NAME TO WORK-DATA-NAME                         CL**2
00045          GO TO INSERT-PREFIX-XIT.                                    CL**2
00046      MOVE GTBL-OPT-PREFIX1 TO WORK-DATA-NAME.                        CL**2
00047      MOVE 01 TO SUB1.                                                CL**2
00048  PREFIX-LOOP.                                                        CL**2
00049      ADD 1 TO SUB1.                                                  CL**2
00050      IF SUB1 GREATER THAN 9                                          CL**2
00051          GO TO DATA-NAME-BUILD.                                      CL**2
00052      IF WS-DN (SUB1) NOT EQUAL TO SPACE                              CL**2
00053          GO TO PREFIX-LOOP.                                          CL**2
00054  DATA-NAME-BUILD.                                                    CL**2
00055      SUBTRACT 1 FROM SUB1.                                           CL**2
00056      MOVE 01 TO SUB2.                                                CL**2
00057  BUILD-LOOP.                                                         CL**2
00058      ADD 1 TO SUB1.                                                  CL**2
00059      IF SUB1 GREATER THAN 32                                         CL**2
00060          GO TO INSERT-PREFIX-XIT.                                    CL**2
00061      MOVE WORK-DN (SUB2) TO WS-DN (SUB1).                            CL**2
00062      ADD 1 TO SUB2.                                                  CL**2
00063      IF WORK-DN (SUB2) NOT EQUAL TO SPACES                           CL**2
00064          GO TO BUILD-LOOP.                                           CL**2
00065      GO TO INSERT-PREFIX-XIT.                                        CL**2
00066  INSERT-SUFFIX.                                                      CL**2
00067      ADD 1 TO SUB1.                                                  CL**2
00068      IF WORK-DN (SUB1) NOT EQUAL TO SPACES                           CL**2
00069          GO TO INSERT-SUFFIX.                                        CL**2
00070  SUFFIX-LENGTH.                                                      CL**2
00071      ADD 1 TO SUB2.                                                  CL**2
00072      IF WS-DN (SUB2) NOT EQUAL TO SPACES                             CL**2
00073          GO TO SUFFIX-LENGTH.                                        CL**2
00074      SUBTRACT 1 FROM SUB1, SUB2.                                     CL**2
00075  CALC-TOTAL-LENGTH.                                                  CL**2
00076      ADD SUB1 TO SUB2.                                               CL**2
00077      IF SUB2 GREATER THAN 32                                         CL**2
00078          MOVE 0 TO SUB2                                              CL**2
00079          SUBTRACT 1 FROM SUB1                                        CL**2
00080          GO TO CALC-TOTAL-LENGTH.                                    CL**2
00081      MOVE 1 TO SUB2.                                                 CL**2
00082  SUFFIX-LOOP.                                                        CL**2
00083      ADD 1 TO SUB1.                                                  CL**2
00084      MOVE WS-DN (SUB2) TO WORK-DN (SUB1).                            CL**2
00085      ADD 1 TO SUB2.                                                  CL**2
00086      IF WS-DN (SUB2) EQUAL TO SPACES                                 CL**2
00087          MOVE WS-DATA-NAME TO WORK-DATA-NAME                         CL**2
00088          GO TO INSERT-PREFIX-XIT.                                    CL**2
00089      GO TO SUFFIX-LOOP.                                              CL**2
00090  INSERT-PREFIX-XIT.                                                  CL**2
00091      EXIT.                                                           CL**2
00092 *****************************************************************    CL**2
00093 *     READ AND PROCESS COMMENT LINES                                 CL**2
00094 ******************************************************************   CL**2
00095  CHECK-COMMENT.                                                      CL**2
00096      IF CAT-COMMENT NOT EQUAL "*"                                    CL**2
00097          GO TO CHECK-COMMENT-XIT.                                    CL**2
00098      IF DATA-ENTRY-CAT NOT EQUAL "300"                               CL**2
00099          GO TO GET-NEXT-LINE.                                        CL**2
00100      IF DES-NOTES-SWITCH EQUAL TO "Y"                                CL**2
00101          GO TO GET-NEXT-LINE.                                        CL**2
00102      IF GTBL-OPT-COMMENT EQUAL "Y"                                   CL**2
00103          MOVE SPACES TO HOLD-CARD-IMAGE                              CL**2
00104          MOVE CAT-DETAIL TO COMMENT-AREA                             CL**2
00105          PERFORM CBL-OUT THRU CBL-OUT-XIT.                           CL**2
00106  GET-NEXT-LINE.                                                      CL**2
00107      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.                 CL**2
00108      IF DATA-RETURN-CODE EQUAL TO 0                                  CL**2
00109          GO TO CHECK-COMMENT.                                        CL**2
00110  CHECK-COMMENT-XIT.                                                  CL**2
00111      EXIT.                                                           CL**2
00112 *                                                                    CL**2
00113 *    TEST RETURN CODE---CHECK FOR COMMENT                            CL**2
00114 *                                                                    CL**2
00115  TEST-RETURN-CODE.                                                   CL**2
00116      IF DATA-RETURN-CODE NOT EQUAL TO 0                              CL**2
00117          GO TO TEST-RETURN-CODE-XIT.                                 CL**2
00118      PERFORM CHECK-COMMENT THRU CHECK-COMMENT-XIT.                   CL**2
00119  TEST-RETURN-CODE-XIT.                                               CL**2
00120      EXIT.                                                           CL**2
00121 *                                                                    CL**2
00122 *    SET PERIOD AT END---MOVE TO PRINT AREA---PRINT LINE             CL**2
00123 *                                                                    CL**2
00124  PRINT-AREA-PICTURE.                                                 CL**2
00125      PERFORM FLOAT-PERIOD THRU FLOAT-PERIOD-XIT.                     CL**2
00126      MOVE SCAN-AREA TO HOLD-CARD-IMAGE.                              CL**2
00127      PERFORM CBL-OUT THRU CBL-OUT-XIT.                               CL**2
00128  PRINT-AREA-PICTURE-XIT.                                             CL**2
00129       EXIT.                                                          CL**2
00130 *****************************************************************    CL**2
00131 *     INITIALIZE COBOL LEEEL NUMBERS                                 CL**2
00132 *****************************************************************    CL**2
00133  LEVEL-INIT.                                                         CL**2
00134      MOVE GTBL-OPT-LEVEL TO LEVEL-01.                                CL**2
00135      ADD GTBL-OPT-INCLEV LEVEL-01 GIVING LEVEL-03.                   CL**2
00136      ADD GTBL-OPT-INCLEV LEVEL-03 GIVING LEVEL-05.                   CL**2
00137      ADD GTBL-OPT-INCLEV LEVEL-05 GIVING LEVEL-07.                   CL**2
00138      ADD GTBL-OPT-INCLEV LEVEL-07 GIVING LEVEL-09.                   CL**2
00139      ADD GTBL-OPT-INCLEV LEVEL-09 GIVING LEVEL-11.                   CL**2
00140      ADD GTBL-OPT-INCLEV LEVEL-11 GIVING LEVEL-13.                   CL**2
00141      ADD GTBL-OPT-INCLEV LEVEL-13 GIVING LEVEL-15.                   CL**2
00142      ADD GTBL-OPT-INCLEV LEVEL-15 GIVING LEVEL-17.                   CL**2
00143      ADD GTBL-OPT-INCLEV LEVEL-17 GIVING LEVEL-19.                   CL**2
00144      ADD GTBL-OPT-INCLEV LEVEL-19 GIVING LEVEL-21.                   CL**2
00145      ADD GTBL-OPT-INCLEV LEVEL-21 GIVING LEVEL-23.                   CL**2
00146  LEVEL-INIT-XIT.                                                     CL**2
00147      EXIT.                                                           CL**2
00148 *****************************************************************    CL**2
00149 *     INDENT LEVEL NO AND NAME FOR CURRENT LEVEL                     CL**2
00150 *****************************************************************    CL**2
00151  LAYOUT-PCH-CARD.                                                    CL**2
00152      MOVE SPACES TO CBL-CARD-IMAGE.                                  CL**2
00153      IF GROUP-SUB EQUAL 0 MOVE LEVEL-03 TO CBL-03                    CL**2
00154          MOVE WORK-DATA-NAME TO CBL-NAME-03.                         CL**2
00155      IF GROUP-SUB EQUAL 1 MOVE LEVEL-05 TO CBL-05                    CL**2
00156          MOVE WORK-DATA-NAME TO CBL-NAME-05.                         CL**2
00157      IF GROUP-SUB EQUAL 2 MOVE LEVEL-07 TO CBL-07                    CL**2
00158          MOVE WORK-DATA-NAME TO CBL-NAME-07.                         CL**2
00159      IF GROUP-SUB EQUAL 3 MOVE LEVEL-09 TO CBL-09                    CL**2
00160          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00161      IF GROUP-SUB EQUAL 4 MOVE LEVEL-11 TO CBL-09                    CL**2
00162          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00163      IF GROUP-SUB EQUAL 5 MOVE LEVEL-13 TO CBL-09                    CL**2
00164          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00165      IF GROUP-SUB EQUAL 6 MOVE LEVEL-15 TO CBL-09                    CL**2
00166          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00167      IF GROUP-SUB EQUAL 7 MOVE LEVEL-17 TO CBL-09                    CL**2
00168          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00169      IF GROUP-SUB EQUAL 8 MOVE LEVEL-19 TO CBL-09                    CL**2
00170          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00171      IF GROUP-SUB EQUAL 9 MOVE LEVEL-21 TO CBL-09                    CL**2
00172          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00173      IF GROUP-SUB EQUAL 10 MOVE LEVEL-23 TO CBL-09                   CL**2
00174          MOVE WORK-DATA-NAME TO CBL-NAME-09.                         CL**2
00175  LAYOUT-PCH-CARD-XIT.                                                CL**2
00176      EXIT.                                                           CL**2
00177                                                                      CL**2
00178 *****************************************************************    CL**2
00179 *     PROCESS FILLER STATEMENT                                       CL**2
00180 *     FORMATS LEVEL NUMBERS AND PICTURE                              CL**2
00181 *****************************************************************    CL**2
00182  PROC-FILLER.                                                        CL**2
00183      MOVE SPACES TO CBL-CARD-IMAGE.                                  CL**2
00184      IF GROUP-SUB EQUAL 0 MOVE LEVEL-03 TO CBL-03                    CL**2
00185          MOVE "FILLER" TO CBL-NAME-03.                               CL**2
00186      IF GROUP-SUB EQUAL 1 MOVE LEVEL-05 TO CBL-05                    CL**2
00187          MOVE "FILLER" TO CBL-NAME-05.                               CL**2
00188      IF GROUP-SUB EQUAL 2 MOVE LEVEL-07 TO CBL-07                    CL**2
00189          MOVE "FILLER" TO CBL-NAME-07.                               CL**2
00190      IF GROUP-SUB EQUAL 3 MOVE LEVEL-09 TO CBL-09                    CL**2
00191          MOVE "FILLER" TO CBL-NAME-09.                               CL**2
00192      IF GROUP-SUB EQUAL 4 MOVE LEVEL-11 TO CBL-09                    CL**2
00193          MOVE "FILLER" TO CBL-NAME-09.                               CL**2
00194      IF GROUP-SUB EQUAL 5 MOVE LEVEL-13 TO CBL-09                    CL**2
00195          MOVE "FILLER" TO CBL-NAME-09.                               CL**2
00196      IF GROUP-SUB EQUAL 6 MOVE LEVEL-15 TO CBL-09                    CL**2
00197          MOVE "FILLER" TO CBL-NAME-09.                               CL**2
00198      IF GROUP-SUB EQUAL 7 MOVE LEVEL-17 TO CBL-09                    CL**2
00199          MOVE "FILLER" TO CBL-NAME-09.                               CL**2
00200      IF GROUP-SUB EQUAL 8 MOVE LEVEL-19 TO CBL-09                    CL**2
00201          MOVE "FILLER" TO CBL-NAME-09.                               CL**2
00202      MOVE SPACES TO CARD-IMAGE-PICTURE.                              CL**2
00203      MOVE "PICTURE " TO C-BLANK-PIC-DEF.                             CL**2
00204      MOVE "X" TO C-BLANK-PIC-MODE.                                   CL**2
00205      MOVE "(" TO C-BLANK-PIC-L-PAREN.                                CL**2
           MOVE SAVE-ELE-STC-FILL-LEN TO C-BLANK-FILL.
           IF C-BLANK-FILL = SPACES 
               MOVE "   1" TO C-BLANK-FILL. 
           INSPECT C-BLANK-FILL REPLACING LEADING ZEROS BY SPACES.
00209      PERFORM SQUEEZE-PICTURE THRU SQUEEZE-PICTURE-XIT.               CL**2
00210      PERFORM PLACE-PICTURE THRU PLACE-PICTURE-XIT.                   CL**2
00211      MOVE HOLD-CARD-IMAGE TO SCAN-AREA.                              CL**2
00212      PERFORM FLOAT-PERIOD THRU FLOAT-PERIOD-XIT.                     CL**2
00213      MOVE SCAN-AREA TO HOLD-CARD-IMAGE.                              CL**2
00214      PERFORM CBL-OUT THRU CBL-OUT-XIT.                               CL**2
00215  PROC-FILLER-XIT.                                                    CL**2
00216      EXIT.                                                           CL**2
00217 ***********************************************************          CL**2
00218 *     PICTURE CLAUSE SUBROUTINE                                      CL**2
00219 *          PLACES PICTURE CLAUSE ON                                  CL**2
00220 *          SAME LINE AS DATA-NAME - IF POSSIBLE                      CL**2
00221 **************************************************************       CL**2
00222  PLACE-PICTURE.                                                      CL**2
00223      MOVE CBL-CARD-IMAGE TO HOLD-LINE.                               CL**2
00224      MOVE CARD-IMAGE-PICTURE TO HOLD-PICTURE.                        CL**2
00225      MOVE 72 TO SUB-A.                                               CL**2
00226  COUNT-1.                                                            CL**2
00227      IF HOLD-AREA (SUB-A) NOT EQUAL SPACES                           CL**2
00228          GO TO COUNT-2.                                              CL**2
00229      SUBTRACT 1 FROM SUB-A.                                          CL**2
00230      GO TO COUNT-1.                                                  CL**2
00231  COUNT-2.                                                            CL**2
00232      IF SUB-A GREATER 42                                             CL**2
00233          MOVE CBL-CARD-IMAGE TO HOLD-CARD-IMAGE                      CL**2
00234          PERFORM CBL-OUT THRU CBL-OUT-XIT                            CL**2
00235          MOVE CARD-IMAGE-PICTURE TO HOLD-CARD-IMAGE                  CL**2
00236          GO TO PLACE-PICTURE-XIT.                                    CL**2
00237      MOVE 80 TO SUB-B.                                               CL**2
00238  PICTURE-LOOP-1.                                                     CL**2
00239      IF PICTURE-AREA (SUB-B) NOT EQUAL SPACES                        CL**2
00240          GO TO ADD-UP.                                               CL**2
00241      SUBTRACT 1 FROM SUB-B.                                          CL**2
00242      GO TO PICTURE-LOOP-1.                                           CL**2
00243  ADD-UP.                                                             CL**2
00244      SUBTRACT 27 FROM SUB-B.                                         CL**2
00245      IF SUB-B NOT GREATER THAN 28                                    CL**2
00246          GO TO MOVE-IN-PIC.                                          CL**2
00247      MOVE CBL-CARD-IMAGE TO HOLD-CARD-IMAGE.                         CL**2
00248      PERFORM CBL-OUT THRU CBL-OUT-XIT.                               CL**2
00249      MOVE CARD-IMAGE-PICTURE TO HOLD-CARD-IMAGE.                     CL**2
00250      GO TO PLACE-PICTURE-XIT.                                        CL**2
00251  MOVE-IN-PIC.                                                        CL**2
00252      MOVE 44 TO SUB-A.                                               CL**2
00253      MOVE 28 TO SUB-B.                                               CL**2
00254  PICTURE-LOOP-2.                                                     CL**2
00255      MOVE PICTURE-AREA (SUB-B) TO HOLD-AREA (SUB-A).                 CL**2
00256      IF SUB-A EQUAL 72                                               CL**2
00257          MOVE HOLD-LINE TO HOLD-CARD-IMAGE                           CL**2
00258          GO TO PLACE-PICTURE-XIT.                                    CL**2
00259      ADD 1 TO SUB-A.                                                 CL**2
00260      ADD 1 TO SUB-B.                                                 CL**2
00261      GO TO PICTURE-LOOP-2.                                           CL**2
00262  PLACE-PICTURE-XIT.                                                  CL**2
00263      EXIT.                                                           CL**2
00264 ****************************************                             CL**2
00265 *     COMPRESS PICTURE TO ELIMINATE SPACES                           CL**2
00266 *********************************************                        CL**2
00267  SQUEEZE-PICTURE.                                                    CL**2
           INSPECT C-BLANK-PIC-LENGTH REPLACING LEADING ZEROS BY SPACES.
00269      MOVE C-BLANK-PIC-LENGTH TO HOLD-PICTURE-VALUE.                  CL**2
00270      MOVE 1 TO SUB-X.                                                CL**2
00271      MOVE 1 TO SUB-Y.                                                CL**2
00272      MOVE SPACES TO HOLD-SQUEEZE-PICTURE.                            CL**2
00273      IF PICTURE-VALUE (SUB-X) EQUAL TO SPACES                        CL**2
00274          ADD 1 TO SUB-X                                              CL**2
00275          GO TO GO-ON.                                                CL**2
00276      MOVE ")" TO C-BLANK-PIC-R-PAREN.                                CL**2
00277      GO TO SQUEEZE-PICTURE-XIT.                                      CL**2
00278  GO-ON.                                                              CL**2
00279      IF PICTURE-VALUE (SUB-X) EQUAL TO SPACES                        CL**2
00280          ADD 1 TO SUB-X                                              CL**2
00281          GO TO GO-ON.                                                CL**2
00282  MOVE-IT.                                                            CL**2
00283      MOVE PICTURE-VALUE (SUB-X) TO SQUEEZE-VALUE (SUB-Y).            CL**2
           IF SUB-X = 10
00285          ADD 1 TO SUB-Y                                              CL**2
00286          MOVE ")" TO SQUEEZE-VALUE (SUB-Y)                           CL**2
00287          MOVE HOLD-SQUEEZE-PICTURE TO C-BLANK-PIC-LENGTH             CL**2
00288          GO TO SQUEEZE-PICTURE-XIT.                                  CL**2
00289      ADD 1 TO SUB-X.                                                 CL**2
00290      ADD 1 TO SUB-Y.                                                 CL**2
00291      GO TO MOVE-IT.                                                  CL**2
00292  SQUEEZE-PICTURE-XIT.                                                CL**2
00293      EXIT.                                                           CL**2
00294 ******************************************************************   CL**2
00295 *                                                                    CL**2
00296 *    GENERATION OF DESCRIPTION CATEGORY COMMENTS                     CL**2
00297 *    IF NOTESFROM OR NOTESTO OR NOTESFOR OPTION USED                 CL**2
00298 *        THEN GENERATION FROM DESCRIPTION CATEGORY IS WANTED         CL**2
00299 *                                                                    CL**2
00300 ******************************************************************   CL**2
00301  CHECK-DESCRIPTION.                                                  CL**2
00302      MOVE "N" TO DES-NOTES-SWITCH.                                   CL**2
00303      IF GTBL-OPT-COMMENT EQUAL TO "N"                                CL**2
00304          GO TO CHECK-DESCRIPTION-XIT.                                CL**2
00305      IF GTBL-OPT-NOTESFROM NOT EQUAL TO ZERO                         CL**2
00306          GO TO INITIAL-NOTES.                                        CL**2
00307      IF GTBL-OPT-NOTESTO NOT EQUAL TO ZERO                           CL**2
00308          GO TO INITIAL-NOTES.                                        CL**2
00309      IF GTBL-OPT-NOTESFOR NOT EQUAL TO ZERO                          CL**2
00310          GO TO INITIAL-NOTES.                                        CL**2
00311      GO TO CHECK-DESCRIPTION-XIT.                                    CL**2
00312  INITIAL-NOTES.                                                      CL**2
00313      MOVE "Y" TO DES-NOTES-SWITCH.                                   CL**2
00314      IF GTBL-OPT-NOTESFROM EQUAL TO ZEROS                            CL**2
00315          MOVE 1 TO NOTES-FROM-HOLD       ELSE                        CL**2
00316          MOVE GTBL-OPT-NOTESFROM TO NOTES-FROM-HOLD.                 CL**2
00317      IF GTBL-OPT-NOTESTO EQUAL TO ZEROS                              CL**2
00318          MOVE 9999 TO NOTES-TO-HOLD       ELSE                       CL**2
00319          MOVE GTBL-OPT-NOTESTO TO NOTES-TO-HOLD.                     CL**2
00320      IF GTBL-OPT-NOTESFOR EQUAL TO ZEROS                             CL**2
00321          MOVE 9999 TO NOTES-FOR-HOLD       ELSE                      CL**2
00322          MOVE GTBL-OPT-NOTESFOR TO NOTES-FOR-HOLD.                   CL**2
00323      MOVE 1 TO CAT-LINE-COUNTER.                                     CL**2
00324      MOVE DES-CAT-NO TO DATA-ENTRY-CAT.                              CL**2
00325      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                   CL**2
00326  RETURN-CODE-INITIAL.                                                CL**2
00327      IF DATA-RETURN-CODE NOT EQUAL TO ZERO                           CL**2
00328          GO TO CHECK-DESCRIPTION-XIT.                                CL**2
00329 *                                                                    CL**2
00330 *    CHECK DESCRIPTION LINE NUMBER FOR QUALIFICATION                 CL**2
00331 *                                                                    CL**2
00332      IF CAT-LINE LESS THAN NOTES-FROM-HOLD                           CL**2
00333          GO TO READ-NEXT-DESC-LINE.                                  CL**2
00334      IF CAT-LINE-COUNTER GREATER THAN NOTES-FOR-HOLD                 CL**2
00335          GO TO CHECK-DESCRIPTION-XIT.                                CL**2
00336      IF CAT-LINE GREATER THAN NOTES-TO-HOLD                          CL**2
00337          GO TO CHECK-DESCRIPTION-XIT.                                CL**2
00338      MOVE "*" TO COMMENT-AREA1.                                      CL**2
00339      MOVE CAT-DETAIL TO COMMENT-AREA2.                               CL**2
00340      PERFORM CBL-OUT THRU CBL-OUT-XIT.                               CL**2
00341      ADD 1 TO CAT-LINE-COUNTER.                                      CL**2
00342  READ-NEXT-DESC-LINE.                                                CL**2
00343      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.                 CL**2
00344      GO TO RETURN-CODE-INITIAL.                                      CL**2
00345  CHECK-DESCRIPTION-XIT.                                              CL**2
00346      EXIT.                                                           CL**2
