*DECK     DCQRY220
00001  IDENTIFICATION DIVISION.                                         08/01/78
       PROGRAM-ID. QRY220.
*CALL COPYRIGHT 
      *    THIS MODULE FORMATS THE QUERY RESPONSE REPORT
      *    FOR SHOW QUERIES AGAINST ENTRYPE 20
      *ENTRY-TYPE 20 = FILE 
00009  ENVIRONMENT DIVISION.                                            DCQRY220
00010  CONFIGURATION SECTION.                                           DCQRY220
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL UPQRYSN 
00013  INPUT-OUTPUT SECTION.                                            DCQRY220
00014  FILE-CONTROL.                                                    DCQRY220
           SELECT MAST1 ASSIGN TO "MAST1" 
               ACCESS MODE IS RANDOM
               ORGANIZATION IS DIRECT 
               RECORD KEY IS DATA-KEY.
           SELECT MAST3 ASSIGN TO "MAST3" 
               ORGANIZATION IS RELATIVE 
               ACCESS MODE IS RANDOM
               RELATIVE KEY IS CON-KEY
               USE "PRUF = YES".
           SELECT SYSPRINT ASSIGN TO "OUTPUT".
00022  DATA DIVISION.                                                   DCQRY220
00023  FILE SECTION.                                                    DCQRY220
*CALL     MAST1FD                                                          CL**5
*CALL     MAST3FD                                                          CL**5
*CALL     SYSPRTFD                                                         CL**5
*CALL QRYCS 
*CALL     WRKSTG77                                                         CL**5
*CALL     MAST1WS                                                          CL**5
*CALL     TESTWACOM                                                        CL**5
*CALL     DCDWA20                                                          CL**5
00031  01  COMMON-RPTDATA.                                              DCQRY220
00032 *                                                                 DCQRY220
00033 *    THIS REFINES LINE FORMATS  FIELD VALUES, CODES AND WORK AREASDCQRY220
00034 *    WHICH ARE COMMON TO ALL ENTRY TYPES.                         DCQRY220
00035 ******************************************************************DCQRY220
00036 *    STANDARD CATEGORY RPT DETAIL LINES COMMON TO ALL ENTRY TYPES DCQRY220
00037 ******************************************************************DCQRY220
00038      03  00-CAT-DETAIL-LINES.                                     DCQRY220
00039 *    CONTROL CATEGORY                                             DCQRY220
00040          05  CAT00010-LINE.                                       DCQRY220
00041              07  FLD0001005-HDG  PICTURE X(11).                   DCQRY220
00042              07  FLD0001005-VAL  PICTURE X(32).                   DCQRY220
00043              07  FILLER          PICTURE X.                       DCQRY220
00044              07  FLD0001010-HDG  PICTURE X(7).                    DCQRY220
00045              07  FLD0001010-VAL.                                     CL**2
00046                  09  FLD0001010-POS1 PICTURE X.                      CL**2
00047                  09  FILLER          PICTURE X(7).                   CL**2
00048              07  FILLER          PICTURE X.                       DCQRY220
00049              07  FLD0001015-HDG  PICTURE X(9).                    DCQRY220
00050              07  FLD0001015-VAL  PICTURE X.                       DCQRY220
00051 *    KEYWORD CATEGORY                                             DCQRY220
00052          05  CAT00020-LINE REDEFINES CAT00010-LINE.               DCQRY220
00053              07  FLD0002005-HDG  PICTURE X(3).                    DCQRY220
00054              07  FLD0002005-VAL PICTURE X(67).                       CL**2
00055 *"   DESCRIPTION CATEGORY                                         DCQRY220
00056          05  CAT00030-LINE REDEFINES CAT00020-LINE.               DCQRY220
00057              07  FLD0003005-VAL  PICTURE X.                       DCQRY220
00058              07  FLD0003010-VAL  PICTURE X(66).                   DCQRY220
00059              07  FILLER          PICTURE X(3).                    DCQRY220
00060 *    OTHER CATEGORY                                               DCQRY220
00061          05  CAT00900-LINE REDEFINES CAT00020-LINE.               DCQRY220
00062              07  FLD0090005-VAL  PICTURE X.                       DCQRY220
00063              07  FLD0090010-VAL  PICTURE X(66).                   DCQRY220
00064              07  FILLER          PICTURE X(3).                    DCQRY220
00065 ******************************************************************DCQRY220
00066 *    STANDARD FIELD HEADING CONSTANTS FOR DETAIL LINES            DCQRY220
00067 *        COMMON TO ALL ENTRY TYPES                                DCQRY220
00068 ******************************************************************DCQRY220
00069      03  00-FIELD-HDG-CONSTANTS.                                  DCQRY220
00070          05  FLD0001005-HCONA    PICTURE X(11)  VALUE             DCQRY220
00071             "  ALIAS OF ".                                        DCQRY220
00072          05  FLD0001010-HCON     PICTURE X(7)   VALUE             DCQRY220
00073             "STATUS=".                                            DCQRY220
00074          05  FLD0001015-HCON     PICTURE X(9)   VALUE             DCQRY220
00075             "SECURITY=".                                          DCQRY220
00076          05  FLD0002005-HCON     PICTURE X(3)   VALUE             DCQRY220
00077             "   ".                                                   CL**2
00078          05  FLD0001005-HCONV    PICTURE X(11)  VALUE             DCQRY220
00079             "VERSION OF ".                                        DCQRY220
00080          05  SUB-HEADING-LINE.                                       CL**2
00081              07  FILLER          PICTURE X(14)   VALUE               CL**2
00082             "CATALOGUE NAME".                                        CL**2
00083              07  FILLER          PICTURE X(8)    VALUE SPACE.        CL**2
00084              07  FILLER          PICTURE X(9)    VALUE               CL**2
00085             "REV  LINE".                                             CL**2
00086              07  FILLER          PICTURE X(5)    VALUE SPACE.        CL**2
00087              07  FILLER          PICTURE X(4)    VALUE               CL**2
00088             "TYPE".                                                  CL**2
00089              07  FILLER          PICTURE X(92)   VALUE SPACE.        CL**2
00090          05  CONTINUATION-LINE.                                      CL**2
00091              07  CATA-NAME-LINE  PICTURE X(56)   VALUE SPACE.        CL**2
00092              07  FILLER          PICTURE X(72)   VALUE SPACE.        CL**2
00093              07  STATEMENT-LINE.                                     CL**2
00094                  09  FILLER      PICTURE X(5)    VALUE SPACE.        CL**2
00095                  09  FILLER      PICTURE X(30)   VALUE               CL**2
00096                 "* CONTINUED FROM PREVIOUS PAGE".                    CL**2
00097                  09  FILLER      PICTURE X(97)   VALUE SPACE.        CL**2
00098 *********************************************************            CL**2
00099 *     FIELD CODES AND THEIR MEANINGS                                 CL**2
00100 *       COMMON TO ALL ENTRY TYPES-FOR COMMON CATS                    CL**2
00101 **********************************************************           CL**2
00102      03  00-CAT-CODES.                                               CL**2
00103 *  STATUS OF ENTRY                                                   CL**2
00104          05  FLD0001010-CV       PICTURE X(4)    VALUE               CL**2
00105         "EPO9".                                                      CL**2
00106          05  FLD0001010-CD  REDEFINES  FLD0001010-CV.                CL**2
00107              07  FLD0001010-CODES PICTURE X OCCURS 4.                CL**2
00108          05  FLD0001010-MV       PICTURE X(32)   VALUE               CL**2
00109         "EXISTINGPROPOSEDOBSOLETEXXXXXXXX".                          CL**2
00110          05  FLD0001010-MD   REDEFINES FLD0001010-MV.                CL**2
00111              07  FLD0001010-MNG  PICTURE X(8) OCCURS 4.              CL**2
00112      03  WORK-FIELDS.                                             DCQRY220
00113          05  DATA-OPEN-SW PICTURE X.                                 CL**2
00114          05  HIT-WORK-REC.                                        DCQRY220
00115          07  HIT-WORK-NAME       PICTURE X(32).                   DCQRY220
00116          07  HIT-WORK-ENTTYPE    PICTURE XX.                      DCQRY220
               05  HIT-TBL-LIMIT           PICTURE 9999 VALUE 1000. 
00119          05  HIT-TBL-LIMIT-PLUS1 PICTURE   99    VALUE            DCQRY220
00120              26.                                                  DCQRY220
00121          05  FRLINE-LIMIT        PICTURE 9(4).                    DCQRY220
00122          05  TOLINE-LIMIT        PICTURE 9(4).                    DCQRY220
00123          05  FORLINE-LIMIT       PICTURE 9(4).                    DCQRY220
00124          05  CATLINE-COUNTER     PICTURE 9(4).                    DCQRY220
00125          05  ENTRY-NAME          PICTURE X(32).                   DCQRY220
00126          05  ENTRY-TYPE-NO       PICTURE 99.                      DCQRY220
00127          05  ENTRY-TYPE-NAME     PICTURE X(8).                    DCQRY220
00128          05  CATEGORY-NUMBER     PICTURE XXX.                     DCQRY220
00129          05  CATEGORY-OUTPUT-SW  PICTURE X.                       DCQRY220
00130          05  1ST-HIT-OVER-SW  PICTURE X VALUE "X".                   CL**2
00131          05  HIT-COUNTER   PICTURE 9(5) VALUE 0.                     CL**2
00132          05  HITS-PER-RECORD     PICTURE 99  VALUE 86.               CL**2
               05  CON-KEY PICTURE 999. 
               05  SUB1               PICTURE 9(4) COMP-1.
00135          05  SUB2                PICTURE   S99  COMP SYNC.        DCQRY220
00136          05  SUB3                PICTURE   S99  COMP SYNC.        DCQRY220
00137          05  SUB4                PICTURE   S99  COMP SYNC.        DCQRY220
00138          05  SUB5                PICTURE   S99  COMP SYNC.        DCQRY220
00139          05  SUB6                PICTURE   S99  COMP SYNC.        DCQRY220
00140           05  DISPLAY-LINE-LENGTH PICTURE XXX VALUE "132".           CL**2
00141      03  QUERY-MESSAGES.                                          DCQRY220
00142          05  NO-LINES-MSG.                                        DCQRY220
00143              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY220
00144              07  NLM             PICTURE X(55)   VALUE            DCQRY220
00145             "DCQRY-015-I * REQUESTED LINES NOT PRESENT FOR CATEGOR   CL**2
00146 -           "Y.".                                                 DCQRY220
00147          05  NO-CAT-MSG.                                          DCQRY220
00148              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY220
00149              07  NC7             PICTURE X(45)   VALUE            DCQRY220
00150             "DCQRY-020-I * REQUESTED CATEGORY NOT DEFINED.".         CL**2
00151              07  FILLER          PICTURE X(9) VALUE SPACES.       DCQRY220
00152          05  NO-CATS-MSG.                                         DCQRY220
00153              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY220
00154              07  NCPM            PICTURE X(47)   VALUE            DCQRY220
00155             "DCQRY-025-I * REQUESTED CATEGORIES NOT DEFINED.".       CL**2
00156              07  FILLER          PICTURE X(9)    VALUE SPACES.    DCQRY220
00157          05  PROGRAM-PROBLEM-MSG.                                 DCQRY220
00158              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY220
00159              07  PPM             PICTURE X(30)     VALUE          DCQRY220
00160             "DCQRY-099-F * PROGRAM PROBLEM-".                     DCQRY220
00161              07  PROBLEM-NO      PICTURE X.                       DCQRY220
00162              07  FILLER          PICTURE X(23) VALUE SPACES.      DCQRY220
00163          05  LIST-LINE-MSG.                                       DCQRY220
00164              07 FILLER           PICTURE XX    VALUE SPACES.      DCQRY220
00165              07  LIST-LINE-NAME  PICTURE X(32).                   DCQRY220
00166              07  FILLER          PICTURE XX    VALUE SPACES.      DCQRY220
00167              07  LIST-LINE-ENTTYPE PICTURE X(8) VALUE                CL**2
00168             "FILE    ".                                              CL**2
00169              07  FILLER          PICTURE X(12) VALUE SPACES.      DCQRY220
00170          05  CERR-110.                                               CL**2
00171              07  FILLER          PICTURE X(44)   VALUE               CL**2
00172             "DCQRY-950-F ERROR * MAST3 READ CLIENT RECORD".          CL**2
00173              07  FILLER          PICTURE X(12)   VALUE SPACE.        CL**2
00174           05  CERR-120.                                              CL**2
00175              07  FILLER          PICTURE X(41)   VALUE               CL**2
00176             "DCQRY-970-F ERROR * MAST3 READ HIT RECORD".             CL**2
00177              07  FILLER          PICTURE X(15)   VALUE SPACE.        CL**2
*CALL     RPTDEF20                                                         CL**5
00186                                                                    DCQRY22
00187  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCQRYCOM                                                         CL**2
00191 *                                                                    CL**2
00192  3460-SHOW-CHAR.                                                  DCQRY220
00193 *                                                                    CL**2
00194      MOVE "030" TO CATEGORY-NUMBER.                               DCQRY220
00195      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY220
00196      IF QTBL-OUT-CAT EQUAL TO "996"                               DCQRY220
00197          GO TO 3470-CHECK-SUPER.                                  DCQRY220
00198      MOVE "140" TO CATEGORY-NUMBER.                                  CL**2
00199      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY220
00200      MOVE "200" TO CATEGORY-NUMBER.                                  CL**2
00201      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY220
00202      MOVE "210" TO CATEGORY-NUMBER.                                  CL**2
00203      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY220
00204      MOVE "220" TO CATEGORY-NUMBER.                                  CL**2
00205      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY220
00206      IF QTBL-OUT-CAT EQUAL TO "997"                                  CL**2
00207          GO TO 3470-CHECK-SUPER.                                     CL**2
00208  3465-SHOW-COMP.                                                     CL**2
00209      IF QTBL-OUT-CAT EQUAL TO "999"                                  CL**2
00210          GO TO 3466-JUST-COMP.                                       CL**2
00211      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00212      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00213  3466-JUST-COMP.                                                     CL**2
00214      MOVE "300" TO CATEGORY-NUMBER.                                  CL**2
00215      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
           MOVE "450" TO CATEGORY-NUMBER
           PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT. 
00216      IF QTBL-OUT-CAT NOT EQUAL "999"                                 CL**2
00217          GO TO 3470-CHECK-SUPER.                                     CL**2
00218      MOVE "900" TO CATEGORY-NUMBER.                                  CL**2
00219      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00220      GO TO 3470-CHECK-SUPER.                                         CL**2
00221  3467-SHOW-PERS.                                                     CL**2
00222      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00223      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00224      MOVE "140" TO CATEGORY-NUMBER.                                  CL**2
00225      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00226 *                                                                 DCQRY220
00227 *    CHECK TO SEE IF ANT OUTPUT FOR FILES                            CL**2
00228 *                                                                 DCQRY220
00229  3470-CHECK-SUPER.                                                   CL**2
00230      IF CATEGORY-OUTPUT-SW EQUAL TO "Y"                           DCQRY220
00231          GO TO 3100-NEXT-HIT.                                     DCQRY220
00232  3475-NO-CATS.                                                    DCQRY220
00233      MOVE NO-CATS-MSG TO STD-RPT-MESSAGE.                         DCQRY220
00234      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY220
00235      GO TO 3100-NEXT-HIT.                                         DCQRY220
00236                                                                    DCQRY22
00237 ******************************************************************DCQRY220
00238 *                                                                 DCQRY220
00239 *    DISPLAY CATEGORY                                             DCQRY220
00240 *        RETRIEVES LINES FOR SPECIFIED CATEGORY AND FORMATS       DCQRY220
00241 *        EITHER A 70, 80 OR 132 CHARACTER LINE                    DCQRY220
00242 *                                                                 DCQRY220
00243 ******************************************************************DCQRY220
00244  3500-DISPLAY-CATEGORY.                                           DCQRY220
00245      MOVE CATEGORY-NUMBER TO DATA-ENTRY-CAT.                      DCQRY220
00246      MOVE 0001 TO CATLINE-COUNTER.                                DCQRY220
00247      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                DCQRY220
00248      IF DATA-RETURN-CODE EQUAL TO "0"                                CL**2
00249          GO TO 3510-CK-1ST-LINE.                                     CL**2
00250 *                                                                    CL**2
00251 *    CHECK FOR SUPER CAT AND BYPASS MSG                              CL**2
00252 *                                                                    CL**2
00253      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00254          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00255      GO TO 3715-NOCAT-LINE.                                          CL**2
00256 *                                                                 DCQRY220
00257 *    CHECK IF FIRST CATEGORY LINE IS IN DESIRED RANGE             DCQRY220
00258 *        READ PAST LINES WITH NUMBERS LOWER THAN LOW LIMIT        DCQRY220
00259 *                                                                 DCQRY220
00260  3510-CK-1ST-LINE.                                                DCQRY220
00261      IF CAT-LINE LESS THAN FRLINE-LIMIT                           DCQRY220
00262          GO TO 3515-BYPASS-LINE.                                  DCQRY220
00263 *                                                                 DCQRY220
00264 *    RETRIEVE 1ST LINE OF CATEGORY                                DCQRY220
00265 *                                                                 DCQRY220
00266      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY220
00267          GO TO 3517-CK-SUPER-CAT.                                    CL**2
00268      GO TO 3520-OUTPUT-CATHDR.                                    DCQRY220
00269  3515-BYPASS-LINE.                                                DCQRY220
00270      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY220
00271      IF DATA-RETURN-CODE EQUAL TO "0" OR "3"                      DCQRY220
00272          GO TO 3510-CK-1ST-LINE.                                  DCQRY220
00273  3517-CK-SUPER-CAT.                                                  CL**2
00274      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00275          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00276      GO TO 3715-NOCAT-LINE.                                          CL**2
00277 *                                                                 DCQRY220
00278 *    LOOKUP AND OUTPUT CATEGORY HEADER LINE                       DCQRY220
00279 *                                                                 DCQRY220
00280  3520-OUTPUT-CATHDR.                                              DCQRY220
00281      MOVE 1 TO SUB4.                                              DCQRY220
00282  3525-NEXT-CATNUM.                                                DCQRY220
00283      IF ENT20-CATNUMS (SUB4) EQUAL TO CATEGORY-NUMBER                CL**2
00284          GO TO 3530-DISPLAY-HDG.                                  DCQRY220
00285      ADD 1 TO SUB4.                                               DCQRY220
00286      GO TO 3525-NEXT-CATNUM.                                      DCQRY220
00287  3530-DISPLAY-HDG.                                                DCQRY220
00288      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00289      MOVE ENT20-CATHDRS (SUB4) TO CATEGORY-HEADER.                   CL**2
00290      MOVE 2 TO PRT-CTL.                                              CL**2
00291      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY220
00292      MOVE 1 TO PRT-CTL.                                              CL**2
00293      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00294      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00295      MOVE "Y" TO CATEGORY-OUTPUT-SW.                              DCQRY220
00296 *                                                                 DCQRY220
00297 *    FORMAT CATEGORY DETAIL LINES                                 DCQRY220
00298 *        IF 70 CHR FORMAT PUT OUT LINE NO ON SEP LINE             DCQRY220
00299 *                                                                 DCQRY220
00300  3540-FMT-CAT-DETAIL.                                             DCQRY220
00301       IF DISPLAY-LINE-LENGTH NOT EQUAL TO "070"                      CL**2
00302          GO TO 3550-FMT-LINE-PREFIX.                              DCQRY220
00303      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY220
00304      GO TO 3560-OUTPUT-STD.                                       DCQRY220
00305  3550-FMT-LINE-PREFIX.                                            DCQRY220
00306      IF CATEGORY-NUMBER NOT EQUAL TO "300"                           CL**2
00307          GO TO 3555-MOVE-LINE.                                       CL**2
00308      IF FIRST-REC-SW EQUAL TO "Y"                                    CL**2
00309          GO TO 3560-OUTPUT-STD.                                      CL**2
00310  3555-MOVE-LINE.                                                     CL**2
00311      MOVE CAT-REV            TO  STDRPT-REVNO.                    DCQRY220
00312      MOVE CAT-LINE           TO  STDRPT-LINE.                     DCQRY220
00313 *                                                                 DCQRY220
00314 *    CHECK FOR COMMENT LINE                                       DCQRY220
00315  3560-OUTPUT-STD.                                                 DCQRY220
00316      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00317          GO TO 3565-CATEGORY-CHECK.                                  CL**2
           IF CATEGORY-NUMBER IS EQUAL TO "300" OR "450"
00319          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00320      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00321      GO TO 3700-GET-NEXT-LINE.                                       CL**2
00322 *                                                                 DCQRY220
00323 *    CHECK FOR CATEGORY NUMBERS AND ENTER FORMATTING RT           DCQRY220
00324 *                                                                 DCQRY220
00325  3565-CATEGORY-CHECK.                                                CL**2
00326      IF CATEGORY-NUMBER EQUAL TO "010"                            DCQRY220
00327          PERFORM 5100-FMT-CAT010 THRU 5199-FMT-CAT010-XIT         DCQRY220
00328          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00329      IF CATEGORY-NUMBER EQUAL TO "020"                            DCQRY220
00330          PERFORM 5200-FMT-CAT020 THRU 5299-FMT-CAT020-XIT         DCQRY220
00331          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00332      IF CATEGORY-NUMBER EQUAL TO "030"                            DCQRY220
00333          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT         DCQRY220
00334          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00335      IF CATEGORY-NUMBER EQUAL TO "140"                               CL**2
00336          PERFORM 5500-FMT-CAT140 THRU 5690-FMT-CAT140-XIT            CL**2
00337          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00338      IF CATEGORY-NUMBER EQUAL TO "200"                               CL**2
00339          PERFORM 12200-FMT-CAT200 THRU 12270-FMT-CAT200-XIT          CL**2
00340          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00341      IF CATEGORY-NUMBER EQUAL TO "210"                               CL**2
00342          PERFORM 12500-FMT-CAT210 THRU 12595-FMT-CAT210-XIT          CL**2
00343          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00344      IF CATEGORY-NUMBER EQUAL TO "220"                               CL**2
00345          PERFORM 12700-FMT-FLD05 THRU 12790-FMT-CAT220-XIT           CL**2
00346          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00347      IF CATEGORY-NUMBER EQUAL TO "300"                               CL**2
00348          PERFORM 12800-FMT-CAT300 THRU 12860-FMT-CAT300-XIT          CL**2
00349          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
           IF CATEGORY-NUMBER IS EQUAL TO "450" 
           THEN 
              PERFORM FMT-CAT450 THRU FMT-CAT450-XIT
              GO TO 3700-GET-NEXT-LINE
           END-IF.
00350      IF CATEGORY-NUMBER EQUAL TO "900"                            DCQRY220
00351          PERFORM 5900-FMT-CAT900 THRU 5999-FMT-CAT900-XIT         DCQRY220
00352          GO TO 3700-GET-NEXT-LINE.                                DCQRY220
00353      GO TO 3710-NOCAT-DATA.                                          CL**2
00354 *                                                                 DCQRY220
00355 *    RETRIEVE NEXT LINE OF CATEGORY - CK FOR END                  DCQRY220
00356 *                                                                 DCQRY220
00357  3700-GET-NEXT-LINE.                                              DCQRY220
00358      IF CATLINE-COUNTER EQUAL TO FORLINE-LIMIT                    DCQRY220
00359        GO TO 3749-DISPLAY-CAT-XIT.                                DCQRY220
00360      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY220
00361      IF DATA-RETURN-CODE EQUAL TO  1 OR 2                         DCQRY220
00362          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY220
00363      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY220
00364          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY220
00365      ADD 1 TO CATLINE-COUNTER.                                       CL**2
00366      GO TO 3540-FMT-CAT-DETAIL.                                   DCQRY220
00367  3749-DISPLAY-CAT-XIT.                                            DCQRY220
00368      EXIT.                                                        DCQRY220
00369                                                                    DCQRY22
00370 *                                                                 DCQRY220
00371 *   FORMAT WARNING AND INFORMATION MESSAGES                       DCQRY220
00372 *                                                                 DCQRY220
00373  3710-NOCAT-DATA.                                                 DCQRY220
00374      MOVE NO-CAT-MSG   TO        STD-RPT-MESSAGE.                 DCQRY220
00375      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00376      GO TO 3100-NEXT-HIT.                                            CL**2
00377  3715-NOCAT-LINE.                                                 DCQRY220
00378      MOVE NO-LINES-MSG TO    STD-RPT-MESSAGE.                        CL**2
00379      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY220
00380      GO TO 3100-NEXT-HIT.                                            CL**2
00381                                                                    DCQRY22
00382  3800-NOMORE-HITS.                                                DCQRY220
00383 *                                                                 DCQRY220
00384 *    ON-LINE VERSION WILL DETERMINE NEXT STEP HERE                DCQRY220
00385 *                                                                 DCQRY220
00386      GO TO 1500-QUERY-END.                                        DCQRY220
00387                                                                    DCQRY22
*CALL     RPTRTCOM                                                         CL**2
*CALL     RPTRT20                                                          CL**5
*CALL     DISPLAYLN                                                        CL**5
*CALL     WRITELN                                                          CL**5
00392  USER-ROUTINE.                                                       CL**2
00393      MOVE SUB-HEADING-LINE TO PRINT-DATA.                            CL**2
00394      ADD 2 TO LINE-CT.                                               CL**2
00395      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00396      MOVE SPACES TO PRINT-DATA.                                      CL**2
00397      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00398      IF SEC-PAGE-SW EQUAL TO "Y"                                     CL**2
00399          MOVE LIST-LINE-MSG TO CATA-NAME-LINE                        CL**2
00400          MOVE CONTINUATION-LINE TO PRINT-DATA                        CL**2
00401          MOVE 1 TO PRT-CTL                                           CL**2
00402          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                      CL**2
00403          MOVE 1 TO PRT-CTL                                           CL**2
00404          MOVE STATEMENT-LINE TO PRINT-DATA                           CL**2
00405      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00406      MOVE "Y" TO SEC-PAGE-SW.                                        CL**2
00407  USER-ROUTINE-XIT.                                                   CL**2
00408      EXIT.                                                           CL**2
00409  PROGRAM-END-BAD.                                                    CL**2
00410      MOVE PROGRAM-PROBLEM-MSG TO STD-RPT-MESSAGE.                    CL**2
00411      GO TO 1900-ABORT-RUN.                                           CL**2
00412                                                                    DCQRY22
*CALL     MAST1RFC                                                         CL**5
*CALL     MAST1RNL                                                         CL**5
*CALL     MAST1EXT                                                         CL**5
*CALL     MAST1READ                                                        CL**5
*CALL     MAST1ALG                                                         CL**5
