*DECK     DCQRY240
00001  IDENTIFICATION DIVISION.                                         08/02/78
       PROGRAM-ID. QRY240.
*CALL COPYRIGHT 
      *    THIS MODULE FORMATS THE QUERY RESPONSE REPORT
      *    FOR SHOW QUERIES AGAINST ENTRY-TYPE 40 
      *    ENTRY-TYPE 40 = REPORT 
00009  ENVIRONMENT DIVISION.                                            DCQRY240
00010  CONFIGURATION SECTION.                                           DCQRY240
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL UPQRYSN 
00013  INPUT-OUTPUT SECTION.                                            DCQRY240
00014  FILE-CONTROL.                                                    DCQRY240
           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.                                                   DCQRY240
00023  FILE SECTION.                                                    DCQRY240
*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     DCDWA40                                                          CL**5
00031  01  COMMON-RPTDATA.                                              DCQRY240
00032 *                                                                 DCQRY240
00033 *    THIS REFINES LINE FORMATS  FIELD VALUES, CODES AND WORK AREASDCQRY240
00034 *    WHICH ARE COMMON TO ALL ENTRY TYPES.                         DCQRY240
00035 ******************************************************************DCQRY240
00036 *    STANDARD CATEGORY RPT DETAIL LINES COMMON TO ALL ENTRY TYPES DCQRY240
00037 ******************************************************************DCQRY240
00038      03  00-CAT-DETAIL-LINES.                                     DCQRY240
00039 *    CONTROL CATEGORY                                             DCQRY240
00040          05  CAT00010-LINE.                                       DCQRY240
00041              07  FLD0001005-HDG  PICTURE X(11).                   DCQRY240
00042              07  FLD0001005-VAL  PICTURE X(32).                   DCQRY240
00043              07  FILLER          PICTURE X.                       DCQRY240
00044              07  FLD0001010-HDG  PICTURE X(7).                    DCQRY240
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.                       DCQRY240
00049              07  FLD0001015-HDG  PICTURE X(9).                    DCQRY240
00050              07  FLD0001015-VAL  PICTURE X.                       DCQRY240
00051 *    KEYWORD CATEGORY                                             DCQRY240
00052          05  CAT00020-LINE REDEFINES CAT00010-LINE.               DCQRY240
00053              07  FLD0002005-HDG  PICTURE X(3).                    DCQRY240
00054              07  FLD0002005-VAL PICTURE X(67).                       CL**2
00055 *"   DESCRIPTION CATEGORY                                         DCQRY240
00056          05  CAT00030-LINE REDEFINES CAT00020-LINE.               DCQRY240
00057              07  FLD0003005-VAL  PICTURE X.                       DCQRY240
00058              07  FLD0003010-VAL  PICTURE X(66).                   DCQRY240
00059              07  FILLER          PICTURE X(3).                    DCQRY240
00060 *    OTHER CATEGORY                                               DCQRY240
00061          05  CAT00900-LINE REDEFINES CAT00020-LINE.               DCQRY240
00062              07  FLD0090005-VAL  PICTURE X.                       DCQRY240
00063              07  FLD0090010-VAL  PICTURE X(66).                   DCQRY240
00064              07  FILLER          PICTURE X(3).                    DCQRY240
00065 ******************************************************************DCQRY240
00066 *    STANDARD FIELD HEADING CONSTANTS FOR DETAIL LINES            DCQRY240
00067 *        COMMON TO ALL ENTRY TYPES                                DCQRY240
00068 ******************************************************************DCQRY240
00069      03  00-FIELD-HDG-CONSTANTS.                                  DCQRY240
00070          05  FLD0001005-HCONA    PICTURE X(11)  VALUE             DCQRY240
00071             "  ALIAS OF ".                                        DCQRY240
00072          05  FLD0001010-HCON     PICTURE X(7)   VALUE             DCQRY240
00073             "STATUS=".                                            DCQRY240
00074          05  FLD0001015-HCON     PICTURE X(9)   VALUE             DCQRY240
00075             "SECURITY=".                                          DCQRY240
00076          05  FLD0002005-HCON     PICTURE X(3)   VALUE             DCQRY240
00077             "   ".                                                   CL**2
00078          05  FLD0001005-HCONV    PICTURE X(11)  VALUE             DCQRY240
00079             "VERSION OF ".                                        DCQRY240
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.                                             DCQRY240
00113          05  DATA-OPEN-SW PICTURE X.                                 CL**2
00114          05  HIT-WORK-REC.                                        DCQRY240
00115          07  HIT-WORK-NAME       PICTURE X(32).                   DCQRY240
00116          07  HIT-WORK-ENTTYPE    PICTURE XX.                      DCQRY240
               05  HIT-TBL-LIMIT           PICTURE 9999 VALUE 1000. 
00119          05  HIT-TBL-LIMIT-PLUS1 PICTURE   99    VALUE            DCQRY240
00120              26.                                                  DCQRY240
00121          05  FRLINE-LIMIT        PICTURE 9(4).                    DCQRY240
00122          05  TOLINE-LIMIT        PICTURE 9(4).                    DCQRY240
00123          05  FORLINE-LIMIT       PICTURE 9(4).                    DCQRY240
00124          05  CATLINE-COUNTER     PICTURE 9(4).                    DCQRY240
00125          05  ENTRY-NAME          PICTURE X(32).                   DCQRY240
00126          05  ENTRY-TYPE-NO       PICTURE 99.                      DCQRY240
00127          05  ENTRY-TYPE-NAME     PICTURE X(8).                    DCQRY240
00128          05  CATEGORY-NUMBER     PICTURE XXX.                     DCQRY240
00129          05  CATEGORY-OUTPUT-SW  PICTURE X.                       DCQRY240
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.        DCQRY240
00136          05  SUB3                PICTURE   S99  COMP SYNC.        DCQRY240
00137          05  SUB4                PICTURE   S99  COMP SYNC.        DCQRY240
00138          05  SUB5                PICTURE   S99  COMP SYNC.        DCQRY240
00139          05  SUB6                PICTURE   S99  COMP SYNC.        DCQRY240
00140           05  DISPLAY-LINE-LENGTH PICTURE XXX VALUE "132".           CL**2
00141      03  QUERY-MESSAGES.                                          DCQRY240
00142          05  NO-LINES-MSG.                                        DCQRY240
00143              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY240
00144              07  NLM             PICTURE X(55)   VALUE            DCQRY240
00145             "DCQRY-015-I * REQUESTED LINES NOT PRESENT FOR CATEGOR   CL**2
00146 -           "Y.".                                                 DCQRY240
00147          05  NO-CAT-MSG.                                          DCQRY240
00148              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY240
00149              07  NC7             PICTURE X(45)   VALUE            DCQRY240
00150             "DCQRY-020-I * REQUESTED CATEGORY NOT DEFINED.".         CL**2
00151              07  FILLER          PICTURE X(9) VALUE SPACES.       DCQRY240
00152          05  NO-CATS-MSG.                                         DCQRY240
00153              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY240
00154              07  NCPM            PICTURE X(47)   VALUE            DCQRY240
00155             "DCQRY-025-I * REQUESTED CATEGORIES NOT DEFINED.".       CL**2
00156              07  FILLER          PICTURE X(9)    VALUE SPACES.    DCQRY240
00157          05  PROGRAM-PROBLEM-MSG.                                 DCQRY240
00158              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY240
00159              07  PPM             PICTURE X(30)     VALUE          DCQRY240
00160             "DCQRY-099-F * PROGRAM PROBLEM-".                     DCQRY240
00161              07  PROBLEM-NO      PICTURE X.                       DCQRY240
00162              07  FILLER          PICTURE X(23) VALUE SPACES.      DCQRY240
00163          05  LIST-LINE-MSG.                                       DCQRY240
00164              07 FILLER           PICTURE XX    VALUE SPACES.      DCQRY240
00165              07  LIST-LINE-NAME  PICTURE X(32).                   DCQRY240
00166              07  FILLER          PICTURE XX    VALUE SPACES.      DCQRY240
00167              07  LIST-LINE-ENTTYPE PICTURE X(8) VALUE                CL**2
00168             "REPORT  ".                                              CL**2
00169              07  FILLER          PICTURE X(12) VALUE SPACES.      DCQRY240
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     RPTDEF40                                                         CL**5
00186                                                                    DCQRY24
00187  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCQRYCOM                                                         CL**2
00191 *                                                                    CL**2
00192  3460-SHOW-CHAR.                                                  DCQRY240
00193 *                                                                    CL**2
00194      MOVE "030" TO CATEGORY-NUMBER.                               DCQRY240
00195      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY240
00196      IF QTBL-OUT-CAT EQUAL TO "996"                               DCQRY240
00197          GO TO 3470-CHECK-SUPER.                                  DCQRY240
00198      MOVE "140" TO CATEGORY-NUMBER.                                  CL**2
00199      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY240
00200      MOVE "200" TO CATEGORY-NUMBER.                                  CL**2
00201      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY240
00202      MOVE "210" TO CATEGORY-NUMBER.                                  CL**2
00203      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY240
00204      MOVE "240" TO CATEGORY-NUMBER.                                  CL**2
00205      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY240
00206      MOVE "900" TO CATEGORY-NUMBER.                                  CL**2
00207      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY240
00208      IF QTBL-OUT-CAT EQUAL TO "997"                                  CL**2
00209          GO TO 3470-CHECK-SUPER.                                     CL**2
00210  3465-SHOW-COMP.                                                     CL**2
00211      IF QTBL-OUT-CAT EQUAL TO "999"                                  CL**2
00212          GO TO 3466-JUST-COMP.                                       CL**2
00213      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00214      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00215  3466-JUST-COMP.                                                     CL**2
00216      MOVE "800" TO CATEGORY-NUMBER.                                  CL**2
00217      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00218      GO TO 3470-CHECK-SUPER.                                         CL**2
00219  3467-SHOW-PERS.                                                     CL**2
00220      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00221      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00222      MOVE "140" TO CATEGORY-NUMBER.                                  CL**2
00223      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00224 *                                                                 DCQRY240
00225 *    CHECK TO SEE IF ANY OUTPUT FOR REPORT                           CL**2
00226 *                                                                 DCQRY240
00227  3470-CHECK-SUPER.                                                DCQRY240
00228      IF CATEGORY-OUTPUT-SW EQUAL TO "Y"                           DCQRY240
00229          GO TO 3100-NEXT-HIT.                                     DCQRY240
00230  3475-NO-CATS.                                                    DCQRY240
00231      MOVE NO-CATS-MSG TO STD-RPT-MESSAGE.                         DCQRY240
00232      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY240
00233      GO TO 3100-NEXT-HIT.                                         DCQRY240
00234                                                                    DCQRY24
00235 ******************************************************************DCQRY240
00236 *                                                                 DCQRY240
00237 *    DISPLAY CATEGORY                                             DCQRY240
00238 *        RETRIEVES LINES FOR SPECIFIED CATEGORY AND FORMATS       DCQRY240
00239 *        EITHER A 70, 80 OR 132 CHARACTER LINE                    DCQRY240
00240 *                                                                 DCQRY240
00241 ******************************************************************DCQRY240
00242  3500-DISPLAY-CATEGORY.                                           DCQRY240
00243      MOVE CATEGORY-NUMBER TO DATA-ENTRY-CAT.                      DCQRY240
00244      MOVE 0001 TO CATLINE-COUNTER.                                DCQRY240
00245      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                DCQRY240
00246      IF DATA-RETURN-CODE EQUAL TO "0"                                CL**2
00247          GO TO 3510-CK-1ST-LINE.                                     CL**2
00248 *                                                                    CL**2
00249 *    CHECK FOR SUPER CAT AND BYPASS MSG                              CL**2
00250 *                                                                    CL**2
00251      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00252          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00253      GO TO 3715-NOCAT-LINE.                                          CL**2
00254 *                                                                 DCQRY240
00255 *    CHECK IF FIRST CATEGORY LINE IS IN DESIRED RANGE             DCQRY240
00256 *        READ PAST LINES WITH NUMBERS LOWER THAN LOW LIMIT        DCQRY240
00257 *                                                                 DCQRY240
00258  3510-CK-1ST-LINE.                                                DCQRY240
00259      IF CAT-LINE LESS THAN FRLINE-LIMIT                           DCQRY240
00260          GO TO 3515-BYPASS-LINE.                                  DCQRY240
00261 *                                                                 DCQRY240
00262 *    RETRIEVE 1ST LINE OF CATEGORY                                DCQRY240
00263 *                                                                 DCQRY240
00264      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY240
00265          GO TO 3517-CK-SUPER-CAT.                                    CL**2
00266      GO TO 3520-OUTPUT-CATHDR.                                    DCQRY240
00267  3515-BYPASS-LINE.                                                DCQRY240
00268      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY240
00269      IF DATA-RETURN-CODE EQUAL TO "0" OR "3"                      DCQRY240
00270          GO TO 3510-CK-1ST-LINE.                                  DCQRY240
00271  3517-CK-SUPER-CAT.                                                  CL**2
00272      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00273          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00274      GO TO 3715-NOCAT-LINE.                                          CL**2
00275 *                                                                 DCQRY240
00276 *    LOOKUP AND OUTPUT CATEGORY HEADER LINE                       DCQRY240
00277 *                                                                 DCQRY240
00278  3520-OUTPUT-CATHDR.                                              DCQRY240
00279      MOVE 1 TO SUB4.                                              DCQRY240
00280  3525-NEXT-CATNUM.                                                DCQRY240
00281      IF ENT40-CATNUMS (SUB4) EQUAL TO CATEGORY-NUMBER                CL**2
00282          GO TO 3530-DISPLAY-HDG.                                  DCQRY240
00283      ADD 1 TO SUB4.                                               DCQRY240
00284      GO TO 3525-NEXT-CATNUM.                                      DCQRY240
00285  3530-DISPLAY-HDG.                                                DCQRY240
00286      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00287      MOVE ENT40-CATHDRS (SUB4) TO CATEGORY-HEADER.                   CL**2
00288      MOVE 2 TO PRT-CTL.                                              CL**2
00289      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY240
00290      MOVE 1 TO PRT-CTL.                                              CL**2
00291      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00292      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00293      MOVE "Y" TO CATEGORY-OUTPUT-SW.                              DCQRY240
00294 *                                                                 DCQRY240
00295 *    FORMAT CATEGORY DETAIL LINES                                 DCQRY240
00296 *        IF 70 CHR FORMAT PUT OUT LINE NO ON SEP LINE             DCQRY240
00297 *                                                                 DCQRY240
00298  3540-FMT-CAT-DETAIL.                                             DCQRY240
00299       IF DISPLAY-LINE-LENGTH NOT EQUAL TO "070"                      CL**2
00300          GO TO 3550-FMT-LINE-PREFIX.                              DCQRY240
00301      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY240
00302      GO TO 3560-OUTPUT-STD.                                       DCQRY240
00303  3550-FMT-LINE-PREFIX.                                            DCQRY240
00304      IF CATEGORY-NUMBER NOT EQUAL TO "800"                           CL**2
00305          GO TO 3555-MOVE-LINE.                                       CL**2
00306      IF FIRST-REC-SW EQUAL TO "Y"                                    CL**2
00307          GO TO 3560-OUTPUT-STD.                                      CL**2
00308  3555-MOVE-LINE.                                                     CL**2
00309      MOVE CAT-REV            TO  STDRPT-REVNO.                    DCQRY240
00310      MOVE CAT-LINE           TO  STDRPT-LINE.                     DCQRY240
00311 *                                                                 DCQRY240
00312 *    CHECK FOR COMMENT LINE                                       DCQRY240
00313  3560-OUTPUT-STD.                                                 DCQRY240
00314      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00315          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00316      IF CATEGORY-NUMBER EQUAL TO "800"                               CL**2
00317          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00318      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00319      GO TO 3700-GET-NEXT-LINE.                                       CL**2
00320 *                                                                 DCQRY240
00321 *    CHECK FOR CATEGORY NUMBERS AND ENTER FORMATTING RT           DCQRY240
00322 *                                                                 DCQRY240
00323  3565-CATEGORY-CHECK.                                                CL**2
00324      IF CATEGORY-NUMBER EQUAL TO "010"                            DCQRY240
00325          PERFORM 5100-FMT-CAT010 THRU 5199-FMT-CAT010-XIT         DCQRY240
00326          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00327      IF CATEGORY-NUMBER EQUAL TO "020"                            DCQRY240
00328          PERFORM 5200-FMT-CAT020 THRU 5299-FMT-CAT020-XIT         DCQRY240
00329          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00330      IF CATEGORY-NUMBER EQUAL TO "030"                            DCQRY240
00331          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT         DCQRY240
00332          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00333      IF CATEGORY-NUMBER EQUAL TO "140"                               CL**2
00334          PERFORM 20000-FMT-CAT-140 THRU 20099-FMT-CAT140-XIT         CL**2
00335          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00336      IF CATEGORY-NUMBER EQUAL TO "200"                               CL**2
00337          PERFORM 21200-FMT-CAT200 THRU 21299-FMT-CAT200-XIT          CL**2
00338          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00339      IF CATEGORY-NUMBER EQUAL TO "210"                               CL**2
00340          PERFORM 21400-FMT-CAT210 THRU 21499-FMT-CAT210-XIT          CL**2
00341          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00342      IF CATEGORY-NUMBER EQUAL TO "240"                               CL**2
00343          PERFORM 21600-FMT-CAT240 THRU 21699-FMT-CAT240-XIT          CL**2
00344          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00345      IF CATEGORY-NUMBER EQUAL TO "800"                               CL**2
00346          PERFORM 21800-FMT-CAT800 THRU 21899-FMT-CAT800-XIT          CL**2
00347          GO TO 3700-GET-NEXT-LINE.                                DCQRY240
00348      IF CATEGORY-NUMBER EQUAL TO "900"                               CL**2
00349          PERFORM 5900-FMT-CAT900 THRU 5999-FMT-CAT900-XIT            CL**2
00350          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00351      GO TO 3710-NOCAT-DATA.                                          CL**2
00352 *                                                                 DCQRY240
00353 *    RETRIEVE NEXT LINE OF CATEGORY - CK FOR END                  DCQRY240
00354 *                                                                 DCQRY240
00355  3700-GET-NEXT-LINE.                                              DCQRY240
00356      IF CATLINE-COUNTER EQUAL TO FORLINE-LIMIT                    DCQRY240
00357        GO TO 3749-DISPLAY-CAT-XIT.                                DCQRY240
00358      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY240
00359      IF DATA-RETURN-CODE EQUAL TO  1 OR 2                         DCQRY240
00360          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY240
00361      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY240
00362          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY240
00363      ADD 1 TO CATLINE-COUNTER.                                       CL**2
00364      GO TO 3540-FMT-CAT-DETAIL.                                   DCQRY240
00365  3749-DISPLAY-CAT-XIT.                                            DCQRY240
00366      EXIT.                                                        DCQRY240
00367                                                                    DCQRY24
00368 *                                                                 DCQRY240
00369 *   FORMAT WARNING AND INFORMATION MESSAGES                       DCQRY240
00370 *                                                                 DCQRY240
00371  3710-NOCAT-DATA.                                                 DCQRY240
00372      MOVE NO-CAT-MSG   TO        STD-RPT-MESSAGE.                 DCQRY240
00373      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY240
00374      GO TO 3100-NEXT-HIT.                                            CL**2
00375  3715-NOCAT-LINE.                                                 DCQRY240
00376      MOVE NO-LINES-MSG  TO       STD-RPT-MESSAGE.                 DCQRY240
00377      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY240
00378      GO TO 3100-NEXT-HIT.                                            CL**2
00379                                                                    DCQRY24
00380  3800-NOMORE-HITS.                                                DCQRY240
00381 *                                                                 DCQRY240
00382 *    ON-LINE VERSION WILL DETERMINE NEXT STEP HERE                DCQRY240
00383 *                                                                 DCQRY240
00384      GO TO 1500-QUERY-END.                                        DCQRY240
00385                                                                    DCQRY24
*CALL     RPTRTCOM                                                         CL**2
*CALL     RPTRT40                                                          CL**5
*CALL     DISPLAYLN                                                        CL**5
*CALL     WRITELN                                                          CL**5
00390  USER-ROUTINE.                                                       CL**2
00391      MOVE SUB-HEADING-LINE TO PRINT-DATA.                            CL**2
00392      ADD 2 TO LINE-CT.                                               CL**2
00393      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00394      MOVE SPACE TO PRINT-DATA.                                       CL**2
00395      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00396      IF SEC-PAGE-SW EQUAL TO "Y"                                     CL**2
00397          MOVE LIST-LINE-MSG TO CATA-NAME-LINE                        CL**2
00398          MOVE CONTINUATION-LINE TO PRINT-DATA                        CL**2
00399          MOVE 1 TO PRT-CTL                                           CL**2
00400          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                      CL**2
00401          MOVE 1 TO PRT-CTL                                           CL**2
00402          MOVE STATEMENT-LINE TO PRINT-DATA                           CL**2
00403          PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                     CL**2
00404      MOVE "Y" TO SEC-PAGE-SW.                                        CL**2
00405  USER-ROUTINE-XIT.                                                   CL**2
00406      EXIT.                                                           CL**2
00407  PROGRAM-END-BAD.                                                    CL**2
00408      MOVE PROGRAM-PROBLEM-MSG TO STD-RPT-MESSAGE.                    CL**2
00409      GO TO 1900-ABORT-RUN.                                           CL**2
00410                                                                    DCQRY24
*CALL     MAST1RFC                                                         CL**5
*CALL     MAST1RNL                                                         CL**5
*CALL     MAST1EXT                                                         CL**5
*CALL     MAST1READ                                                        CL**5
*CALL     MAST1ALG                                                         CL**5
