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