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