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