*DECK     DCRPT220
00001  IDENTIFICATION DIVISION.                                         09/07/78
       PROGRAM-ID. RPT220.
      *    THIS MODULE PRINTS A FILE OF A $REPORT OR $FILE REQUEST. 
      *    IN ADDITION IF A FILE HAS BEEN REQUESTED THIS MODULE FORMATS 
      *    RECORDS FOR FILES. THE MODULE ALSO FORMATS INDEX REPORT
      *    DETAIL RECORDS.
      *    ENTRY TYPE 20 = FILE 
INP 
00011  ENVIRONMENT DIVISION.                                            DCRPT220
00012  CONFIGURATION SECTION.                                           DCRPT220
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
00015  INPUT-OUTPUT SECTION.                                            DCRPT220
00016  DATA DIVISION.                                                   DCRPT220
*CALL RPTCS 
*CALL     WRKSTG77                                                         CL**5
*CALL     MAST1WS                                                          CL**5
*CALL     TESTWACOM                                                        CL**5
*CALL     DCDWA20                                                          CL**5
*CALL RPTDEF00
*CALL     RPTDEF20                                                         CL**5
*CALL     QTBL2                                                            CL**2
*CALL     RPTWORK                                                          CL**2
00179                                                                    DCRPT22
00180  PROCEDURE DIVISION.                                                 CL**2
*CALL     CATRTS                                                           CL**2
00188 *                                                                 DCRPT220
00189 *    INITIALIZE LINE RETRIEVAL LIMITS FOR QUERY                   DCRPT220
00190 *                                                                 DCRPT220
00191  3400-INIT-LINELIMS.                                              DCRPT220
00192      IF QTBL-OUT-FRLINE EQUAL TO SPACES                           DCRPT220
00193          MOVE 0001 TO FRLINE-LIMIT                                DCRPT220
00194         ELSE                                                      DCRPT220
00195          MOVE QTBL-OUT-FRLINE TO FRLINE-LIMIT.                    DCRPT220
00196      IF QTBL-OUT-TOLINE EQUAL TO SPACES                           DCRPT220
00197          MOVE 9999 TO TOLINE-LIMIT                                DCRPT220
00198         ELSE                                                      DCRPT220
00199          MOVE QTBL-OUT-TOLINE TO TOLINE-LIMIT.                    DCRPT220
00200      IF QTBL-OUT-FORLINES EQUAL TO SPACES                         DCRPT220
00201          MOVE 9999 TO FORLINE-LIMIT                               DCRPT220
00202         ELSE                                                      DCRPT220
00203          MOVE QTBL-OUT-FORLINES TO FORLINE-LIMIT.                 DCRPT220
00204 *                                                                 DCRPT220
00205 *    DETERMINE IF SHOW IF FOR A CATEGORY OR SUPER CATEGORY        DCRPT220
      *        CATEGORIES ARE AS FOLLOWS
      *            995 = PEOPLE 
      *            996 = ADMINISTRATION 
      *            997 = CHARACTERISTICS
      *            998 = COMPONENTS 
      *            999 = ALL  OR NONE GIVEN 
00206 *                                                                 DCRPT220
00207      MOVE QTBL-OUT-CAT TO CATEGORY-NUMBER.                           CL**2
00208      MOVE HIT-WORK-NAME TO DATA-ENTRY-NAME.                       DCRPT220
00209      MOVE HIT-WORK-ENTTYPE TO DATA-ENTRY-TYPE.                    DCRPT220
00210      MOVE "N" TO CATEGORY-OUTPUT-SW.                              DCRPT220
00211      IF CATEGORY-NUMBER EQUAL TO "999"                            DCRPT220
00212          GO TO 3450-SHOW-ALL.                                     DCRPT220
00213      IF CATEGORY-NUMBER EQUAL TO "998"                               CL**2
00214          GO TO 3465-SHOW-COMP.                                       CL**2
00215      IF CATEGORY-NUMBER EQUAL TO "996"                            DCRPT220
00216          GO TO 3450-SHOW-ALL.                                     DCRPT220
00217      IF CATEGORY-NUMBER EQUAL TO "997"                            DCRPT220
00218          GO TO 3460-SHOW-CHAR.                                    DCRPT220
00219      IF CATEGORY-NUMBER EQUAL TO "995"                               CL**2
00220          GO TO 3467-SHOW-PERS.                                       CL**2
00221 *                                                                 DCRPT220
00222 *    SHOW ONE CATEGORY HE ASKED FOR                               DCRPT220
00223 *                                                                    CL**2
00224      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00225      GO TO 1100-NEXT-OUTPUT.                                         CL**2
00226 *                                                                 DCRPT220
00227 *    SHOW ALL                                                     DCRPT220
00228 *                                                                 DCRPT220
00229  3450-SHOW-ALL.                                                   DCRPT220
00230      MOVE "010" TO CATEGORY-NUMBER.                               DCRPT220
00231      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00232      MOVE "020" TO CATEGORY-NUMBER.                               DCRPT220
00233      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00234 *                                                                    CL**2
00235  3460-SHOW-CHAR.                                                  DCRPT220
00236 *                                                                    CL**2
00237      MOVE "030" TO CATEGORY-NUMBER.                               DCRPT220
00238      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00239      IF QTBL-OUT-CAT EQUAL TO "996"                               DCRPT220
00240          GO TO 3470-CHECK-SUPER.                                  DCRPT220
00241      MOVE "140" TO CATEGORY-NUMBER.                                  CL**2
00242      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00243      MOVE "200" TO CATEGORY-NUMBER.                                  CL**2
00244      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00245      MOVE "210" TO CATEGORY-NUMBER.                                  CL**2
00246      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
00247      MOVE "220" TO CATEGORY-NUMBER.                                  CL**2
00248      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCRPT220
           MOVE "450" TO CATEGORY-NUMBER. 
           PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT. 
00249      IF QTBL-OUT-CAT EQUAL TO "997"                                  CL**2
00250          GO TO 3470-CHECK-SUPER.                                     CL**2
00251  3465-SHOW-COMP.                                                     CL**2
00252      IF QTBL-OUT-CAT EQUAL TO "999"                                  CL**2
00253          GO TO 3466-JUST-COMP.                                       CL**2
00254      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00255      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00256  3466-JUST-COMP.                                                     CL**2
00257      MOVE "300" TO CATEGORY-NUMBER.                                  CL**2
00258      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00259      IF QTBL-OUT-CAT NOT EQUAL TO "999"                              CL**2
00260          GO TO 3470-CHECK-SUPER.                                     CL**2
00261      MOVE "900" TO CATEGORY-NUMBER.                                  CL**2
00262      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00263      GO TO 3470-CHECK-SUPER.                                         CL**2
00264  3467-SHOW-PERS.                                                     CL**2
00265      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00266      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00267      MOVE "140" TO CATEGORY-NUMBER.                                  CL**2
00268      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00269 *                                                                 DCRPT220
00270 *    CHECK TO SEE IF ANT OUTPUT FOR FILES                            CL**2
00271 *                                                                 DCRPT220
00272  3470-CHECK-SUPER.                                                   CL**2
00273      IF CATEGORY-OUTPUT-SW EQUAL TO "Y"                           DCRPT220
00274          GO TO 1100-NEXT-OUTPUT.                                     CL**2
00275  3475-NO-CATS.                                                    DCRPT220
00276      MOVE NO-CATS-MSG TO STD-RPT-MESSAGE.                         DCRPT220
00277      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00278          MOVE "Y" TO CATEGORY-811-SW.                                CL**2
00279      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00280      GO TO 1100-NEXT-OUTPUT.                                         CL**2
00281                                                                    DCRPT22
00282 ******************************************************************DCRPT220
00283 *                                                                 DCRPT220
00284 *    DISPLAY CATEGORY                                             DCRPT220
00285 *        RETRIEVES LINES FOR SPECIFIED CATEGORY AND FORMATS       DCRPT220
00286 *        EITHER A 70, 80 OR 132 CHARACTER LINE                    DCRPT220
00287 *                                                                 DCRPT220
00288 ******************************************************************DCRPT220
00289  3500-DISPLAY-CATEGORY.                                           DCRPT220
00290      MOVE CATEGORY-NUMBER TO DATA-ENTRY-CAT.                      DCRPT220
00291      MOVE 0001 TO CATLINE-COUNTER.                                DCRPT220
00292      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                DCRPT220
00293      IF DATA-RETURN-CODE EQUAL TO "0"                                CL**2
00294          GO TO 3510-CK-1ST-LINE.                                     CL**2
00295 *                                                                    CL**2
00296 *    CHECK FOR SUPER CAT AND BYPASS MSG                              CL**2
00297 *                                                                    CL**2
00298      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00299          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00300      GO TO 3715-NOCAT-LINE.                                          CL**2
00301 *                                                                 DCRPT220
00302 *    CHECK IF FIRST CATEGORY LINE IS IN DESIRED RANGE             DCRPT220
00303 *        READ PAST LINES WITH NUMBERS LOWER THAN LOW LIMIT        DCRPT220
00304 *                                                                 DCRPT220
00305  3510-CK-1ST-LINE.                                                DCRPT220
00306      IF CAT-LINE LESS THAN FRLINE-LIMIT                           DCRPT220
00307          GO TO 3515-BYPASS-LINE.                                  DCRPT220
00308 *                                                                 DCRPT220
00309 *    RETRIEVE 1ST LINE OF CATEGORY                                DCRPT220
00310 *                                                                 DCRPT220
00311      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCRPT220
00312          GO TO 3517-CK-SUPER-CAT.                                    CL**2
00313      GO TO 3520-OUTPUT-CATHDR.                                    DCRPT220
00314  3515-BYPASS-LINE.                                                DCRPT220
00315      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCRPT220
00316      IF DATA-RETURN-CODE EQUAL TO "0" OR "3"                      DCRPT220
00317          GO TO 3510-CK-1ST-LINE.                                  DCRPT220
00318  3517-CK-SUPER-CAT.                                                  CL**2
00319      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00320          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00321      GO TO 3715-NOCAT-LINE.                                          CL**2
00322 *                                                                 DCRPT220
00323 *    LOOKUP AND OUTPUT CATEGORY HEADER LINE                       DCRPT220
00324 *                                                                 DCRPT220
00325  3520-OUTPUT-CATHDR.                                              DCRPT220
00326      MOVE 1 TO SUB4.                                              DCRPT220
00327  3525-NEXT-CATNUM.                                                DCRPT220
00328      IF ENT20-CATNUMS (SUB4) EQUAL TO CATEGORY-NUMBER                CL**2
00329          GO TO 3530-DISPLAY-HDG.                                  DCRPT220
00330      ADD 1 TO SUB4.                                               DCRPT220
00331      GO TO 3525-NEXT-CATNUM.                                      DCRPT220
00332  3530-DISPLAY-HDG.                                                DCRPT220
00333      IF RTBL-OPT-REPORT EQUAL "N"                                    CL**2
00334          GO TO 3532-FMT-FILE-DETAIL.                                 CL**2
00335      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00336      MOVE ENT20-CATHDRS (SUB4) TO CATEGORY-HEADER.                   CL**2
00337      MOVE CATEGORY-HEADER TO CATEGORY-NAME-WORK.                     CL**2
00338      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00339          MOVE "Y" TO CATEGORY-811-SW                                 CL**2
00340          MOVE CATEGORY-HEADER TO CAT-HEADER-811                      CL**2
00341          MOVE CATEGORY-HEADER-811 TO STD-REPORT-REC.                 CL**2
00342      MOVE 2 TO PRT-CTL.                                              CL**2
00343      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00344      MOVE 1 TO PRT-CTL.                                              CL**2
00345      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00346      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00347      MOVE "Y" TO CATEGORY-OUTPUT-SW.                              DCRPT220
00348 *****************************************************************    CL**2
00349 *                                                                    CL**2
00350 *     FORMAT$FILE REQUEST DETAIL RECORDS                             CL**2
00351 *          A RECORD IS FORMATTED FOR EACH SELECTED LINE              CL**2
00352 *                                                                    CL**2
00353 ***************************************************************      CL**2
00354  3532-FMT-FILE-DETAIL.                                               CL**2
00355      IF RTBL-HDR-REQTYPE EQUAL TO "RR" OR "RS" OR "RT"               CL**2
00356          GO TO 3540-FMT-CAT-DETAIL.                                  CL**2
00357 *                                                                    CL**2
00358 *     USE 1ST 3 CHRS OF CATEGORY HDG TO IDENTIFY OUTPUT CATEGORY     CL**2
00359 *                                                                    CL**2
00360      MOVE 1 TO HDG-SUB.                                              CL**2
00361 *     FIND THE FIRST DASH IN THE HDG                                 CL**2
00362  3534-FIND-DASH.                                                     CL**2
00363      IF CATEGORY-HDG-CHR (HDG-SUB) NOT EQUAL "-"                     CL**2
00364          ADD 1 TO HDG-SUB                                            CL**2
00365          GO TO 3534-FIND-DASH.                                       CL**2
00366  3536-BYPASS-DASH.                                                   CL**2
00367      IF CATEGORY-HDG-CHR (HDG-SUB) EQUAL TO "-"                      CL**2
00368          ADD 1 TO HDG-SUB                                            CL**2
00369          GO TO 3536-BYPASS-DASH.                                     CL**2
00370      MOVE CATEGORY-HDG-CHR (HDG-SUB) TO CATEGORY-ABB-CHR1.           CL**2
00371      ADD 1 TO HDG-SUB.                                               CL**2
00372      MOVE CATEGORY-HDG-CHR (HDG-SUB) TO CATEGORY-ABB-CHR2.           CL**2
00373      ADD 1 TO HDG-SUB.                                               CL**2
00374      MOVE CATEGORY-HDG-CHR (HDG-SUB) TO CATEGORY-ABB-CHR3.           CL**2
00375 *                                                                    CL**2
00376 *     FORMAT DETAIL RECORD                                           CL**2
00377 *                                                                    CL**2
00378      MOVE SPACES TO USER-LINE200-REC.                                CL**2
00379      MOVE RTBL-HDR-REQNO TO USER-L200-REQNO.                         CL**2
00380      MOVE EXT-HOLD-CATNAME TO USER-L200-CNAME.                       CL**2
00381      MOVE EXT-HOLD-TYPE TO USER-L200-ENTTYPE.                        CL**2
00382      MOVE CATEGORY-NAME-ABBRV TO USER-L200-CAT.                      CL**2
00383      MOVE CAT-LENGTH    TO USER-L200-LENGTH.                         CL**2
00384      MOVE CAT-LINE      TO USER-L200-LINE.                           CL**2
00385      MOVE CAT-REV       TO USER-L200-REV.                            CL**2
00386      MOVE CAT-DETAIL    TO USER-L200-DATA.                           CL**2
00387      MOVE "U" TO CATTBL-FILE-TYPE.                                   CL**2
00388      IF CAT-LENGTH GREATER THAN 67                                   CL**2
00389      MOVE "5" TO USER-L200-RECTYPE                                   CL**2
00390          MOVE "5" TO CATTBL-RECORD-TYPE                              CL**2
00391      ELSE                                                            CL**2
00392      MOVE "4" TO USER-L200-RECTYPE                                   CL**2
00393          MOVE "4" TO CATTBL-RECORD-TYPE.                             CL**2
00394      PERFORM 0900-USERFILE-OUT THRU 0999-USERFILE-OUT-XIT.           CL**2
00395      IF RTBL-OPT-REPORT EQUAL "N"                                    CL**2
00396          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00397 *                                                                 DCRPT220
00398 *    FORMAT CATEGORY DETAIL LINES                                 DCRPT220
00399 *        IF 70 CHR FORMAT PUT OUT LINE NO ON SEP LINE             DCRPT220
00400 *                                                                 DCRPT220
00401  3540-FMT-CAT-DETAIL.                                             DCRPT220
00402      IF RTBL-OPT-FORMAT EQUAL "S"                                    CL**2
00403          GO TO 3550-FMT-LINE-PREFIX.                              DCRPT220
00404      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00405          GO TO 3550-FMT-LINE-PREFIX.                                 CL**2
00406      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00407      GO TO 3560-FORMAT-REPORT.                                       CL**2
00408  3550-FMT-LINE-PREFIX.                                            DCRPT220
00409      IF CATEGORY-NUMBER NOT EQUAL TO "300"                           CL**2
00410          GO TO 3555-MOVE-LINE.                                       CL**2
00411      IF FIRST-REC-SW EQUAL TO "Y"                                    CL**2
00412          GO TO 3560-FORMAT-REPORT.                                   CL**2
00413  3555-MOVE-LINE.                                                     CL**2
00414      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00415          MOVE 98765 TO STDRPT-REVNO                                  CL**2
00416          MOVE CAT-LINE TO STDRPT-LINE                                CL**2
00417          GO TO 3560-FORMAT-REPORT                                    CL**2
00418      ELSE                                                            CL**2
00419          MOVE CAT-REV TO STDRPT-REVNO                                CL**2
00420      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00421 *                                                                 DCRPT220
00422 *    CHECK FOR COMMENT LINE                                       DCRPT220
00423  3560-FORMAT-REPORT.                                                 CL**2
00424      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00425          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00426      IF CATEGORY-NUMBER EQUAL TO "300"                               CL**2
00427          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00428      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00429      GO TO 3700-GET-NEXT-LINE.                                       CL**2
00430 *                                                                 DCRPT220
00431 *    CHECK FOR CATEGORY NUMBERS AND ENTER FORMATTING RT           DCRPT220
00432 *                                                                 DCRPT220
00433  3565-CATEGORY-CHECK.                                                CL**2
00434      IF CATEGORY-NUMBER EQUAL TO "010"                            DCRPT220
00435          PERFORM 5100-FMT-CAT010 THRU 5199-FMT-CAT010-XIT         DCRPT220
00436          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00437      IF CATEGORY-NUMBER EQUAL TO "020"                            DCRPT220
00438          PERFORM 5200-FMT-CAT020 THRU 5299-FMT-CAT020-XIT         DCRPT220
00439          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00440      IF CATEGORY-NUMBER EQUAL TO "030"                            DCRPT220
00441          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT         DCRPT220
00442          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00443      IF CATEGORY-NUMBER EQUAL TO "140"                               CL**2
00444          PERFORM 5500-FMT-CAT140 THRU 5690-FMT-CAT140-XIT            CL**2
00445          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00446      IF CATEGORY-NUMBER EQUAL TO "200"                               CL**2
00447          PERFORM 12200-FMT-CAT200 THRU 12270-FMT-CAT200-XIT          CL**2
00448          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00449      IF CATEGORY-NUMBER EQUAL TO "210"                               CL**2
00450          PERFORM 12500-FMT-CAT210 THRU 12595-FMT-CAT210-XIT          CL**2
00451          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00452      IF CATEGORY-NUMBER EQUAL TO "220"                               CL**2
00453          PERFORM 12700-FMT-FLD05 THRU 12790-FMT-CAT220-XIT           CL**2
00454          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00455      IF CATEGORY-NUMBER EQUAL TO "300"                               CL**2
00456          PERFORM 12800-FMT-CAT300 THRU 12860-FMT-CAT300-XIT          CL**2
00457          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
           IF CATEGORY-NUMBER EQUAL TO "450"
               PERFORM FMT-CAT450 THRU FMT-CAT450-XIT 
               GO TO 3700-GET-NEXT-LINE.
00458      IF CATEGORY-NUMBER EQUAL TO "900"                            DCRPT220
00459          PERFORM 5900-FMT-CAT900 THRU 5999-FMT-CAT900-XIT         DCRPT220
00460          GO TO 3700-GET-NEXT-LINE.                                DCRPT220
00461      GO TO 3710-NOCAT-DATA.                                          CL**2
00462 *                                                                 DCRPT220
00463 *    RETRIEVE NEXT LINE OF CATEGORY - CK FOR END                  DCRPT220
00464 *                                                                 DCRPT220
00465  3700-GET-NEXT-LINE.                                              DCRPT220
00466      IF CATLINE-COUNTER EQUAL TO FORLINE-LIMIT                    DCRPT220
00467        GO TO 3749-DISPLAY-CAT-XIT.                                DCRPT220
00468      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCRPT220
00469      IF DATA-RETURN-CODE EQUAL TO  1 OR 2                         DCRPT220
00470          GO TO 3749-DISPLAY-CAT-XIT.                              DCRPT220
00471      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCRPT220
00472          GO TO 3749-DISPLAY-CAT-XIT.                              DCRPT220
00473      ADD 1 TO CATLINE-COUNTER.                                       CL**2
00474      GO TO 3532-FMT-FILE-DETAIL.                                     CL**2
00475  3749-DISPLAY-CAT-XIT.                                            DCRPT220
00476      EXIT.                                                        DCRPT220
00477                                                                    DCRPT22
00478 *                                                                 DCRPT220
00479 *   FORMAT WARNING AND INFORMATION MESSAGES                       DCRPT220
00480 *                                                                 DCRPT220
00481  3710-NOCAT-DATA.                                                 DCRPT220
00482      MOVE NO-CAT-MSG   TO        STD-RPT-MESSAGE.                 DCRPT220
00483      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00484          MOVE "Y" TO CATEGORY-811-SW.                                CL**2
00485      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00486      GO TO 1100-NEXT-OUTPUT.                                         CL**2
00487  3715-NOCAT-LINE.                                                 DCRPT220
00488      MOVE NO-LINES-MSG TO    STD-RPT-MESSAGE.                        CL**2
00489      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00490          MOVE "Y" TO CATEGORY-811-SW.                                CL**2
00491      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00492      GO TO 1100-NEXT-OUTPUT.                                         CL**2
00493                                                                    DCRPT22
00494  3800-NOMORE-HITS.                                                DCRPT220
00495 *                                                                 DCRPT220
00496 *    ON-LINE VERSION WILL DETERMINE NEXT STEP HERE                DCRPT220
00497 *                                                                 DCRPT220
00498      GO TO 1500-REPORT-END.                                          CL**2
00499                                                                    DCRPT22
00500 ***************************************************************** DCRPT220
00501 *                                                                 DCRPT220
00502 *    FORMAT CATEGORY 010 DETAIL LINE                              DCRPT220
00503 *        CATEGORY 010 = CONTROL                                   DCRPT220
00504 *                                                                 DCRPT220
00505 ***************************************************************** DCRPT220
00506  5100-FMT-CAT010.                                                 DCRPT220
00507      MOVE SPACES TO CAT00010-LINE.                                DCRPT220
00508 *                                                                 DCRPT220
00509 *    FORMAT ALIAS VERSION FIELD                                   DCRPT220
00510 *                                                                 DCRPT220
00511  5105-FMT-FLD05.                                                  DCRPT220
00512      IF CTL-ALY-VER EQUAL TO SPACES GO TO 5110-FMT-FLD010.        DCRPT220
00513      IF DATA-ENTRY-TYPE GREATER THAN 15                           DCRPT220
00514          MOVE FLD0001005-HCONV TO FLD0001005-HDG                  DCRPT220
00515       ELSE                                                        DCRPT220
00516          MOVE FLD0001005-HCONA TO FLD0001005-HDG.                 DCRPT220
00517      MOVE CTL-ALY-VER TO FLD0001005-VAL.                          DCRPT220
00518 *                                                                 DCRPT220
00519 *     FORMAT STATUS FIELD                                         DCRPT220
00520 *                                                                 DCRPT220
00521  5110-FMT-FLD010.                                                 DCRPT220
00522      IF CTL-STATUS EQUAL TO SPACES GO TO 5115-FMT-FLD015.         DCRPT220
00523      MOVE FLD0001010-HCON TO FLD0001010-HDG.                      DCRPT220
00524          GO TO 5112-INTERPRET-CODE.                                  CL**2
00525  5111-JUST-CODE.                                                     CL**2
00526      MOVE CTL-STATUS TO FLD0001010-POS1.                             CL**2
00527      GO TO 5115-FMT-FLD015.                                          CL**2
00528  5112-INTERPRET-CODE.                                                CL**2
00529      MOVE 01 TO SUB3.                                                CL**2
00530  5113-NEXT-CODE-CK.                                                  CL**2
00531      IF FLD0001010-CODES (SUB3) EQUAL TO "9"                         CL**2
00532          GO TO 5111-JUST-CODE.                                       CL**2
00533      IF FLD0001010-CODES (SUB3) EQUAL TO CTL-STATUS                  CL**2
00534          GO TO 5114-EXTRACT-MNG.                                     CL**2
00535      ADD 1 TO SUB3.                                                  CL**2
00536      GO TO 5113-NEXT-CODE-CK.                                        CL**2
00537  5114-EXTRACT-MNG.                                                   CL**2
00538      MOVE FLD0001010-MNG (SUB3) TO FLD0001010-VAL.                   CL**2
00539 *                                                                 DCRPT220
00540 *     FORMAT SECURITY FIELD                                       DCRPT220
00541 *                                                                 DCRPT220
00542  5115-FMT-FLD015.                                                 DCRPT220
00543      IF CTL-SECURITY EQUAL TO SPACES                              DCRPT220
00544          GO TO 5120-OUTPUT-LINE.                                     CL**2
00545      MOVE FLD0001015-HCON TO FLD0001015-HDG.                      DCRPT220
00546      MOVE CTL-SECURITY    TO FLD0001015-VAL.                      DCRPT220
00547 *                                                                 DCRPT220
00548 *     FORMATTING OF CATEGORY LINE COMPLETE                        DCRPT220
00549  5120-OUTPUT-LINE.                                                DCRPT220
00550      IF CAT00010-LINE EQUAL TO SPACES GO TO 5199-FMT-CAT010-XIT.  DCRPT220
00551      MOVE CAT00010-LINE TO STDRPT-70CHR.                          DCRPT220
00552      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00553 *                                                                 DCRPT220
00554  5199-FMT-CAT010-XIT.                                             DCRPT220
00555      EXIT.                                                        DCRPT220
00556                                                                    DCRPT22
00557 ***************************************************************** DCRPT220
00558 *                                                                 DCRPT220
00559 *    FORMAT CATEGORY 020 LINE                                     DCRPT220
00560 *        CATEGORY 020 = KEYWORD                                   DCRPT220
00561 *                                                                 DCRPT220
00562 ***************************************************************** DCRPT220
00563  5200-FMT-CAT020.                                                 DCRPT220
00564      MOVE SPACES TO CAT00020-LINE.                                DCRPT220
00565 *                                                                 DCRPT220
00566 *    FORMAT KEYWORD FIELD                                         DCRPT220
00567 *                                                                 DCRPT220
00568  5205-FMT-FLD05.                                                  DCRPT220
00569      MOVE FLD0002005-HCON TO FLD0002005-HDG.                      DCRPT220
00570      MOVE KEY-WORDS TO FLD0002005-VAL.                            DCRPT220
00571 *                                                                 DCRPT220
00572 *    FORMATTING OF CATEGORY LINE COMPLETE                         DCRPT220
00573 *                                                                 DCRPT220
00574  5210-OUTPUT-LINE.                                                DCRPT220
00575      MOVE CAT00020-LINE TO STDRPT-70CHR.                          DCRPT220
00576      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00577  5299-FMT-CAT020-XIT.                                             DCRPT220
00578      EXIT.                                                        DCRPT220
00579                                                                    DCRPT22
00580 ***************************************************************** DCRPT220
00581 *                                                                 DCRPT220
00582 *    FORMAT CATEGORY 030 LINE                                     DCRPT220
00583 *        CATEGORY 030 = DESCRIPTION                               DCRPT220
00584 *                                                                 DCRPT220
00585 ***************************************************************** DCRPT220
00586  5300-FMT-CAT030.                                                 DCRPT220
00587      MOVE SPACES TO CAT00030-LINE.                                   CL**2
00588      MOVE DESC-FLAG      TO FLD0003005-VAL.                       DCRPT220
00589      MOVE DESC-COMMENT   TO FLD0003010-VAL.                       DCRPT220
00590  5310-OUTPUT-LINE.                                                DCRPT220
00591      MOVE CAT00030-LINE  TO STDRPT-70CHR.                         DCRPT220
00592      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00593  5399-FMT-CAT030-XIT.                                             DCRPT220
00594      EXIT.                                                        DCRPT220
00595                                                                    DCRPT22
00596 ***************************************************************** DCRPT220
00597 *                                                                 DCRPT220
00598 *    FORMAT CATEGORY 900 LINE                                     DCRPT220
00599 *        CATEGORY 900 = OTHER                                     DCRPT220
00600 ***************************************************************** DCRPT220
00601  5900-FMT-CAT900.                                                 DCRPT220
00602      MOVE SPACES TO CAT00900-LINE.                                   CL**2
00603          MOVE DESC-FLAG     TO FLD0090005-VAL.                       CL**2
00604          MOVE DESC-COMMENT   TO FLD0090010-VAL.                      CL**2
00605  5910-OUTPUT-LINE.                                                DCRPT220
00606      MOVE CAT00900-LINE TO STDRPT-70CHR.                             CL**2
00607      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCRPT220
00608  5999-FMT-CAT900-XIT.                                             DCRPT220
00609      EXIT.                                                        DCRPT220
00610                                                                    DCRPT22
*CALL     RPTRT20                                                          CL**5
*CALL     DISPLAY2                                                         CL**2
*CALL     WRITELNI                                                         CL**2
00614  USER-ROUTINE.                                                       CL**2
00615      IF RTBL-OPT-FORMAT EQUAL "D"                                    CL**2
00616          MOVE SUB-HEAD-811 TO PRINT-DATA                             CL**2
00617          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                      CL**2
00618          MOVE SUB-HEAD2-811 TO PRINT-DATA                            CL**2
00619      ELSE                                                            CL**2
00620          MOVE SUB-HEADING-LINE TO PRINT-DATA.                        CL**2
00621      ADD 2 TO LINE-CT.                                               CL**2
00622      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00623      MOVE SPACES TO PRINT-DATA.                                      CL**2
00624      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00625      IF SEC-PAGE-SW EQUAL TO "Y"                                     CL**2
00626          MOVE LIST-LINE-MSG TO CATA-NAME-LINE                        CL**2
00627          MOVE CONTINUATION-LINE TO PRINT-DATA                        CL**2
00628          MOVE 1 TO PRT-CTL                                           CL**2
00629          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                      CL**2
00630          MOVE 1 TO PRT-CTL                                           CL**2
00631          MOVE STATEMENT-LINE TO PRINT-DATA                           CL**2
00632      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00633      MOVE "Y" TO SEC-PAGE-SW.                                        CL**2
00634  USER-ROUTINE-XIT.                                                   CL**2
00635      EXIT.                                                           CL**2
*CALL     RPT811                                                           CL**2
00640                                                                    DCRPT22
*CALL     MAST1RFL                                                         CL**2
*CALL     MAST1RFC                                                         CL**5
*CALL     MAST1RNL                                                         CL**5
*CALL     MAST1EXT                                                         CL**2
*CALL     MAST1RDR                                                         CL**2
*CALL     MAST1ALG                                                         CL**5
