*DECK     DCQRY213
00001  IDENTIFICATION DIVISION.                                         08/10/78
       PROGRAM-ID. QRY213.
*CALL COPYRIGHT 
      *    THIS MODULE FORMATS THE QUERY RESPONREPORT 
      *    FOR SHOW QUERIES AGAINST ENTRY-TYPE 13 
      *    ENTRY-TYPE 13 = RECORD 
00009  ENVIRONMENT DIVISION.                                               CL**2
00010  CONFIGURATION SECTION.                                              CL**2
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL UPQRYSN 
00013  INPUT-OUTPUT SECTION.                                               CL**2
00014  FILE-CONTROL.                                                       CL**2
           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.                                                      CL**2
00023  FILE SECTION.                                                       CL**2
*CALL     MAST1FD                                                          CL**2
*CALL     MAST3FD                                                          CL**2
*CALL     SYSPRTFD                                                         CL**2
*CALL QRYCS 
*CALL     WRKSTG77                                                         CL**2
*CALL     MAST1WS                                                          CL**2
*CALL     TESTWACOM                                                        CL**2
*CALL     DCDWA13                                                          CL**2
           02  DEP-QUAL REDEFINES CAT-DETAIL. 
               03  FILLER              PICTURE X. 
               03  STC-OCC-DEP-QUAL3   PICTURE X(32). 
               03  STC-OCC-DEP-QUAL4   PICTURE X(32). 
               03  STC-OCC-DEP-QUAL5   PICTURE X(32). 
           02  R-T-QUAL REDEFINES CAT-DETAIL. 
               03  FILLER              PICTURE X. 
               03  STC-REN-THR-QUAL4   PICTURE X(32). 
               03  STC-REN-THR-QUAL5   PICTURE X(32). 
00031  01  COMMON-RPTDATA.                                                 CL**2
00032 *                                                                    CL**2
00033 *    THIS REFINES LINE FORMATS  FIELD VALUES, CODES AND WORK AREAS   CL**2
00034 *    WHICH ARE COMMON TO ALL ENTRY TYPES.                            CL**2
00035 ******************************************************************   CL**2
00036 *    STANDARD CATEGORY RPT DETAIL LINES COMMON TO ALL ENTRY TYPES    CL**2
00037 ******************************************************************   CL**2
00038      03  00-CAT-DETAIL-LINES.                                        CL**2
00039 *    CONTROL CATEGORY                                                CL**2
00040          05  CAT00010-LINE.                                          CL**2
00041              07  FLD0001005-HDG  PICTURE X(11).                      CL**2
00042              07  FLD0001005-VAL  PICTURE X(32).                      CL**2
00043              07  FILLER          PICTURE X.                          CL**2
00044              07  FLD0001010-HDG  PICTURE X(7).                       CL**2
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.                          CL**2
00049              07  FLD0001015-HDG  PICTURE X(9).                       CL**2
00050              07  FLD0001015-VAL  PICTURE X.                          CL**2
00051 *    KEYWORD CATEGORY                                                CL**2
00052          05  CAT00020-LINE REDEFINES CAT00010-LINE.                  CL**2
00053              07  FLD0002005-HDG  PICTURE X(3).                       CL**2
00054              07  FLD0002005-VAL PICTURE X(67).                       CL**2
00055 *"   DESCRIPTION CATEGORY                                            CL**2
00056          05  CAT00030-LINE REDEFINES CAT00020-LINE.                  CL**2
00057              07  FLD0003005-VAL  PICTURE X.                          CL**2
00058              07  FLD0003010-VAL  PICTURE X(66).                      CL**2
00059              07  FILLER          PICTURE X(3).                       CL**2
00060 *    OTHER CATEGORY                                                  CL**2
00061          05  CAT00900-LINE REDEFINES CAT00020-LINE.                  CL**2
00062              07  FLD0090005-VAL  PICTURE X.                          CL**2
00063              07  FLD0090010-VAL  PICTURE X(66).                      CL**2
00064              07  FILLER          PICTURE X(3).                       CL**2
00065 ******************************************************************   CL**2
00066 *    STANDARD FIELD HEADING CONSTANTS FOR DETAIL LINES               CL**2
00067 *        COMMON TO ALL ENTRY TYPES                                   CL**2
00068 ******************************************************************   CL**2
00069      03  00-FIELD-HDG-CONSTANTS.                                     CL**2
00070          05  FLD0001005-HCONA    PICTURE X(11)  VALUE                CL**2
00071             "  ALIAS OF ".                                           CL**2
00072          05  FLD0001010-HCON     PICTURE X(7)   VALUE                CL**2
00073             "STATUS=".                                               CL**2
00074          05  FLD0001015-HCON     PICTURE X(9)   VALUE                CL**2
00075             "SECURITY=".                                             CL**2
00076          05  FLD0002005-HCON     PICTURE X(3)   VALUE                CL**2
00077             "   ".                                                   CL**2
00078          05  FLD0001005-HCONV    PICTURE X(11)  VALUE                CL**2
00079             "VERSION OF ".                                           CL**2
00080          05  SUB-HEADING-LINE.                                       CL**2
00081              07  FILLER          PICTURE X(14)   VALUE               CL**2
00082             "CATALOGUE NAME".                                        CL**2
00083              07  FILLER          PICTURE X(8)    VALUE SPACE.        CL**2
00084              07  FILLER          PICTURE X(9)    VALUE               CL**2
00085             "REV  LINE".                                             CL**2
00086              07  FILLER          PICTURE X(5)    VALUE SPACE.        CL**2
00087              07  FILLER          PICTURE X(4)    VALUE               CL**2
00088             "TYPE".                                                  CL**2
00089              07  FILLER          PICTURE X(92)   VALUE SPACE.        CL**2
00090          05  CONTINUATION-LINE.                                      CL**2
00091              07  CATA-NAME-LINE  PICTURE X(56)   VALUE SPACE.        CL**2
00092              07  FILLER          PICTURE X(72)   VALUE SPACE.        CL**2
00093              07  STATEMENT-LINE.                                     CL**2
00094                  09  FILLER      PICTURE X(5)    VALUE SPACE.        CL**2
00095                  09  FILLER      PICTURE X(30)   VALUE               CL**2
00096                 "* CONTINUED FROM PREVIOUS PAGE".                    CL**2
00097                  09  FILLER      PICTURE X(97)   VALUE SPACE.        CL**2
00098 *********************************************************            CL**2
00099 *     FIELD CODES AND THEIR MEANINGS                                 CL**2
00100 *       COMMON TO ALL ENTRY TYPES-FOR COMMON CATS                    CL**2
00101 **********************************************************           CL**2
00102      03  00-CAT-CODES.                                               CL**2
00103 *  STATUS OF ENTRY                                                   CL**2
00104          05  FLD0001010-CV       PICTURE X(4)    VALUE               CL**2
00105         "EPO9".                                                      CL**2
00106          05  FLD0001010-CD  REDEFINES  FLD0001010-CV.                CL**2
00107              07  FLD0001010-CODES PICTURE X OCCURS 4.                CL**2
00108          05  FLD0001010-MV       PICTURE X(32)   VALUE               CL**2
00109         "EXISTINGPROPOSEDOBSOLETEXXXXXXXX".                          CL**2
00110          05  FLD0001010-MD   REDEFINES FLD0001010-MV.                CL**2
00111              07  FLD0001010-MNG  PICTURE X(8) OCCURS 4.              CL**2
00112      03  WORK-FIELDS.                                                CL**2
00113          05  DATA-OPEN-SW PICTURE X.                                 CL**2
00114          05  HIT-WORK-REC.                                           CL**2
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               CL**2
00120              26.                                                     CL**2
00121          05  FRLINE-LIMIT        PICTURE 9(4).                       CL**2
00122          05  TOLINE-LIMIT        PICTURE 9(4).                       CL**2
00123          05  FORLINE-LIMIT       PICTURE 9(4).                       CL**2
00124          05  CATLINE-COUNTER     PICTURE 9(4).                       CL**2
00125          05  ENTRY-NAME          PICTURE X(32).                      CL**2
00126          05  ENTRY-TYPE-NO       PICTURE 99.                         CL**2
00127          05  ENTRY-TYPE-NAME     PICTURE X(8).                       CL**2
00128          05  CATEGORY-NUMBER     PICTURE XXX.                        CL**2
00129          05  CATEGORY-OUTPUT-SW  PICTURE X.                          CL**2
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.           CL**2
00136          05  SUB3                PICTURE   S99  COMP SYNC.           CL**2
00137          05  SUB4                PICTURE   S99  COMP SYNC.           CL**2
00138          05  SUB5                PICTURE   S99  COMP SYNC.           CL**2
00139          05  SUB6                PICTURE   S99  COMP SYNC.           CL**2
00140           05  DISPLAY-LINE-LENGTH PICTURE XXX VALUE "132".           CL**2
00141      03  QUERY-MESSAGES.                                             CL**2
00142          05  NO-LINES-MSG.                                           CL**2
00143              07  FILLER          PICTURE XX VALUE SPACES.            CL**2
00144              07  NLM             PICTURE X(55)   VALUE               CL**2
00145             "DCQRY-015-I * REQUESTED LINES NOT PRESENT FOR CATEGOR   CL**2
00146 -           "Y.".                                                    CL**2
00147          05  NO-CAT-MSG.                                             CL**2
00148              07  FILLER          PICTURE XX VALUE SPACES.            CL**2
00149              07  NC7             PICTURE X(45)   VALUE               CL**2
00150             "DCQRY-020-I * REQUESTED CATEGORY NOT DEFINED.".         CL**2
00151              07  FILLER          PICTURE X(9) VALUE SPACES.          CL**2
00152          05  NO-CATS-MSG.                                            CL**2
00153              07  FILLER          PICTURE XX VALUE SPACES.            CL**2
00154              07  NCPM            PICTURE X(47)   VALUE               CL**2
00155             "DCQRY-025-I * REQUESTED CATEGORIES NOT DEFINED.".       CL**2
00156              07  FILLER          PICTURE X(9)    VALUE SPACES.       CL**2
00157          05  PROGRAM-PROBLEM-MSG.                                    CL**2
00158              07  FILLER          PICTURE XX VALUE SPACES.            CL**2
00159              07  PPM             PICTURE X(30)     VALUE             CL**2
00160             "DCQRY-099-F * PROGRAM PROBLEM-".                        CL**2
00161              07  PROBLEM-NO      PICTURE X.                          CL**2
00162              07  FILLER          PICTURE X(23) VALUE SPACES.         CL**2
00163          05  LIST-LINE-MSG.                                          CL**2
00164              07 FILLER           PICTURE XX    VALUE SPACES.         CL**2
00165              07  LIST-LINE-NAME  PICTURE X(32).                      CL**2
00166              07  FILLER          PICTURE XX    VALUE SPACES.         CL**2
00167              07  LIST-LINE-ENTTYPE PICTURE X(8) VALUE                CL**2
00168             "RECORD  ".                                              CL**2
00169              07  FILLER          PICTURE X(12) VALUE SPACES.         CL**2
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     RPTDEF13                                                         CL**2
00186                                                                    DCQRY21
00187  PROCEDURE DIVISION.                                                 CL**2
*CALL DCQRYCOM
00361 *                                                                    CL**2
00362  3460-SHOW-CHAR.                                                     CL**2
00363 *                                                                    CL**2
00366      IF QTBL-OUT-CAT EQUAL TO "996" OR "995"                         CL**2
00367          GO TO 3470-CHECK-SUPER.                                     CL**2
00368      MOVE "200" TO CATEGORY-NUMBER.                                  CL**2
00369      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00370      MOVE "210" TO CATEGORY-NUMBER.                                  CL**2
00371      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
           MOVE "211" TO CATEGORY-NUMBER
           PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT
           MOVE "400" TO CATEGORY-NUMBER
           PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT
00372      MOVE "900" TO CATEGORY-NUMBER.                                  CL**2
00373      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00374      IF QTBL-OUT-CAT EQUAL TO "997"                                  CL**2
00375          GO TO 3470-CHECK-SUPER.                                     CL**2
00376  3465-SHOW-COMP.                                                     CL**2
00382      MOVE "300" TO CATEGORY-NUMBER.                                  CL**2
00383      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
       3467-SHOW-PERS.
           MOVE "030" TO CATEGORY-NUMBER
           PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT. 
00384 *                                                                    CL**2
00385 *    CHECK TO SEE IF ANY OUTPUT FOR RECORDS                          CL**2
00386 *                                                                    CL**2
00387  3470-CHECK-SUPER.                                                   CL**2
00388      IF CATEGORY-OUTPUT-SW EQUAL TO "Y"                              CL**2
00389          GO TO 3100-NEXT-HIT.                                        CL**2
00390  3475-NO-CATS.                                                       CL**2
00391      MOVE NO-CATS-MSG TO STD-RPT-MESSAGE.                            CL**2
00392      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00393      GO TO 3100-NEXT-HIT.                                            CL**2
00394                                                                    DCQRY21
00395 ******************************************************************   CL**2
00396 *                                                                    CL**2
00397 *    DISPLAY CATEGORY                                                CL**2
00398 *        RETRIEVES LINES FOR SPECIFIED CATEGORY AND FORMATS          CL**2
00399 *        EITHER A 70, 80 OR 132 CHARACTER LINE                       CL**2
00400 *                                                                    CL**2
00401 ******************************************************************   CL**2
00402  3500-DISPLAY-CATEGORY.                                              CL**2
00403      MOVE CATEGORY-NUMBER TO DATA-ENTRY-CAT.                         CL**2
00404      MOVE 0001 TO CATLINE-COUNTER.                                   CL**2
00405      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                   CL**2
00406      IF DATA-RETURN-CODE EQUAL TO "0"                                CL**2
00407          GO TO 3510-CK-1ST-LINE.                                     CL**2
00408 *                                                                    CL**2
00409 *    CHECK FOR SUPER CAT AND BYPASS MSG                              CL**2
00410 *                                                                    CL**2
00411      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00412          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00413      GO TO 3715-NOCAT-LINE.                                          CL**2
00414 *                                                                    CL**2
00415 *    CHECK IF FIRST CATEGORY LINE IS IN DESIRED RANGE                CL**2
00416 *        READ PAST LINES WITH NUMBERS LOWER THAN LOW LIMIT           CL**2
00417 *                                                                    CL**2
00418  3510-CK-1ST-LINE.                                                   CL**2
00419      IF CAT-LINE LESS THAN FRLINE-LIMIT                              CL**2
00420          GO TO 3515-BYPASS-LINE.                                     CL**2
00421 *                                                                    CL**2
00422 *    RETRIEVE 1ST LINE OF CATEGORY                                   CL**2
00423 *                                                                    CL**2
00424      IF CAT-LINE GREATER THAN TOLINE-LIMIT                           CL**2
00425          GO TO 3517-CK-SUPER-CAT.                                    CL**2
00426      GO TO 3520-OUTPUT-CATHDR.                                       CL**2
00427  3515-BYPASS-LINE.                                                   CL**2
00428      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.                 CL**2
00429      IF DATA-RETURN-CODE EQUAL TO "0" OR "3"                         CL**2
00430          GO TO 3510-CK-1ST-LINE.                                     CL**2
00431  3517-CK-SUPER-CAT.                                                  CL**2
00432      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00433          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00434      GO TO 3715-NOCAT-LINE.                                          CL**2
00435 *                                                                    CL**2
00436 *    LOOKUP AND OUTPUT CATEGORY HEADER LINE                          CL**2
00437 *                                                                    CL**2
00438  3520-OUTPUT-CATHDR.                                                 CL**2
00439      MOVE 1 TO SUB4.                                                 CL**2
00440  3525-NEXT-CATNUM.                                                   CL**2
00441      IF ENT13-CATNUMS (SUB4) EQUAL TO CATEGORY-NUMBER                CL**2
00442          GO TO 3530-DISPLAY-HDG.                                     CL**2
00443      ADD 1 TO SUB4.                                                  CL**2
00444      GO TO 3525-NEXT-CATNUM.                                         CL**2
00445  3530-DISPLAY-HDG.                                                   CL**2
00446      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00447      MOVE ENT13-CATHDRS (SUB4) TO CATEGORY-HEADER.                   CL**2
00448      MOVE 2 TO PRT-CTL.                                              CL**2
00449      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00450      MOVE 1 TO PRT-CTL.                                              CL**2
00451      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00452      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00453      MOVE "Y" TO CATEGORY-OUTPUT-SW.                                 CL**2
00454 *                                                                    CL**2
00455 *    FORMAT CATEGORY DETAIL LINES                                    CL**2
00456 *        IF 70 CHR FORMAT PUT OUT LINE NO ON SEP LINE                CL**2
00457 *                                                                    CL**2
00458  3540-FMT-CAT-DETAIL.                                                CL**2
00459       IF DISPLAY-LINE-LENGTH NOT EQUAL TO "070"                      CL**2
00460          GO TO 3550-FMT-LINE-PREFIX.                                 CL**2
00461      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00462      GO TO 3560-OUTPUT-STD.                                          CL**2
00463  3550-FMT-LINE-PREFIX.                                               CL**2
00469      MOVE CAT-REV            TO  STDRPT-REVNO.                       CL**2
00470      MOVE CAT-LINE           TO  STDRPT-LINE.                        CL**2
00471 *                                                                    CL**2
00472 *    CHECK FOR COMMENT LINE                                          CL**2
00473  3560-OUTPUT-STD.                                                    CL**2
00474      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00475          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00476      IF CATEGORY-NUMBER EQUAL TO "300"                               CL**2
00477          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00478      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00479      GO TO 3700-GET-NEXT-LINE.                                       CL**2
00480 *                                                                    CL**2
00481 *    CHECK FOR CATEGORY NUMBERS AND ENTER FORMATTING RT              CL**2
00482 *                                                                    CL**2
00483  3565-CATEGORY-CHECK.                                                CL**2
00484      IF CATEGORY-NUMBER EQUAL TO "010"                               CL**2
00485          PERFORM 5100-FMT-CAT010 THRU 5199-FMT-CAT010-XIT            CL**2
00486          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00487      IF CATEGORY-NUMBER EQUAL TO "020"                               CL**2
00488          PERFORM 5200-FMT-CAT020 THRU 5299-FMT-CAT020-XIT            CL**2
00489          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00490      IF CATEGORY-NUMBER EQUAL TO "030"                               CL**2
00491          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT            CL**2
00492          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00493      IF CATEGORY-NUMBER EQUAL TO "200"                               CL**2
00494          PERFORM 11200-FMT-CAT200 THRU 11260-FMT-CAT200-XIT          CL**2
00495          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00496      IF CATEGORY-NUMBER EQUAL TO "210"                               CL**2
00497          PERFORM 11500-FMT-CAT210 THRU 11580-FMT-CAT210-XIT          CL**2
00498          GO TO 3700-GET-NEXT-LINE.                                   CL**2
           IF CATEGORY-NUMBER IS EQUAL TO "211" 
           THEN 
              PERFORM FMT-CAT211 THRU FMT-CAT211-XIT
              GO TO 3700-GET-NEXT-LINE
           END-IF.
           IF CATEGORY-NUMBER IS EQUAL TO "300" 
           THEN 
              PERFORM 11800-FMT-CAT300 THRU 1299-FMT-CAT300-XIT 
              GO TO 3700-GET-NEXT-LINE
           END-IF.
           IF CATEGORY-NUMBER IS EQUAL TO "400" 
           THEN 
              PERFORM FMT-CAT400 THRU FMT-CAT400-XIT
              GO TO 3700-GET-NEXT-LINE
           END-IF.
00502      IF CATEGORY-NUMBER EQUAL TO "900"                               CL**2
00503          PERFORM 5900-FMT-CAT900 THRU 5999-FMT-CAT900-XIT            CL**2
00504          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00505      GO TO 3710-NOCAT-DATA.                                          CL**2
00506 *                                                                    CL**2
00507 *    RETRIEVE NEXT LINE OF CATEGORY - CK FOR END                     CL**2
00508 *                                                                    CL**2
00509  3700-GET-NEXT-LINE.                                                 CL**2
00510      IF CATLINE-COUNTER EQUAL TO FORLINE-LIMIT                       CL**2
00511        GO TO 3749-DISPLAY-CAT-XIT.                                   CL**2
00512      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.                 CL**2
00513      IF DATA-RETURN-CODE EQUAL TO  1 OR 2                            CL**2
00514          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00515      IF CAT-LINE GREATER THAN TOLINE-LIMIT                           CL**2
00516          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00517      ADD 1 TO CATLINE-COUNTER.                                       CL**2
00518      GO TO 3540-FMT-CAT-DETAIL.                                      CL**2
00519  3749-DISPLAY-CAT-XIT.                                               CL**2
00520      EXIT.                                                           CL**2
00521                                                                    DCQRY21
00522 *                                                                    CL**2
00523 *   FORMAT WARNING AND INFORMATION MESSAGES                          CL**2
00524 *                                                                    CL**2
00525  3710-NOCAT-DATA.                                                    CL**2
00526      MOVE NO-CAT-MSG   TO        STD-RPT-MESSAGE.                    CL**2
00527      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00528      GO TO 3100-NEXT-HIT.                                            CL**2
00529  3715-NOCAT-LINE.                                                    CL**2
00530      MOVE NO-LINES-MSG  TO       STD-RPT-MESSAGE.                    CL**2
00531      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00532      GO TO 3100-NEXT-HIT.                                            CL**2
00533                                                                    DCQRY21
00534  3800-NOMORE-HITS.                                                   CL**2
00535 *                                                                    CL**2
00536 *    ON-LINE VERSION WILL DETERMINE NEXT STEP HERE                   CL**2
00537 *                                                                    CL**2
00538      GO TO 1500-QUERY-END.                                           CL**2
00539                                                                    DCQRY21
*CALL RPTRTCOM
00650                                                                    DCQRY21
*CALL     RPTRT13                                                          CL**2
*CALL     DISPLAYLN                                                        CL**2
*CALL     WRITELN                                                          CL**2
00654  USER-ROUTINE.                                                       CL**2
00655      MOVE SUB-HEADING-LINE TO PRINT-DATA.                            CL**2
00656      ADD 2 TO LINE-CT.                                               CL**2
00657      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00658      MOVE SPACES TO PRINT-DATA.                                      CL**2
00659      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00660      IF SEC-PAGE-SW EQUAL TO "Y"                                     CL**2
00661          MOVE LIST-LINE-MSG TO CATA-NAME-LINE                        CL**2
00662          MOVE CONTINUATION-LINE TO PRINT-DATA                        CL**2
00663          MOVE 1 TO PRT-CTL                                           CL**2
00664          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                      CL**2
00665          MOVE 1 TO PRT-CTL                                           CL**2
00666          MOVE STATEMENT-LINE TO PRINT-DATA                           CL**2
00667      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00668      MOVE "Y" TO SEC-PAGE-SW.                                        CL**2
00669  USER-ROUTINE-XIT.                                                   CL**2
00670      EXIT.                                                           CL**2
00671  PROGRAM-END-BAD.                                                    CL**2
00672      MOVE PROGRAM-PROBLEM-MSG TO STD-RPT-MESSAGE.                    CL**2
00673      GO TO 1900-ABORT-RUN.                                           CL**2
00674                                                                    DCQRY21
*CALL     MAST1RFC                                                         CL**2
*CALL     MAST1RNL                                                         CL**2
*CALL     MAST1EXT                                                         CL**2
*CALL     MAST1READ                                                        CL**2
*CALL     MAST1ALG                                                         CL**2
