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