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