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