*DECK     DCQRY219
00001  IDENTIFICATION DIVISION.                                         08/10/78
       PROGRAM-ID. QRY219.
*CALL COPYRIGHT 
      *    THIS MODULE FORMATS THE QUERY RESPONSE REPORT
      *    FOR SHOW QUERIES AGAINST ENTRY-TYPE 19 
      *    ENTRY-TYPE 19 = DATASET
00009  ENVIRONMENT DIVISION.                                            DCQRY219
00010  CONFIGURATION SECTION.                                           DCQRY219
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL UPQRYSN 
00013  INPUT-OUTPUT SECTION.                                            DCQRY219
00014  FILE-CONTROL.                                                    DCQRY219
           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.                                                   DCQRY219
00023  FILE SECTION.                                                    DCQRY219
*CALL     MAST1FD                                                       DCQRY219
*CALL     MAST3FD                                                       DCQRY219
*CALL     SYSPRTFD                                                      DCQRY219
*CALL QRYCS 
*CALL     WRKSTG77                                                      DCQRY219
*CALL     MAST1WS                                                       DCQRY219
*CALL     TESTWACOM                                                     DCQRY219
*CALL     DCDWA19                                                       DCQRY219
00031  01  COMMON-RPTDATA.                                              DCQRY219
00032 *                                                                 DCQRY219
00033 *    THIS REFINES LINE FORMATS  FIELD VALUES, CODES AND WORK AREASDCQRY219
00034 *    WHICH ARE COMMON TO ALL ENTRY TYPES.                         DCQRY219
00035 ******************************************************************DCQRY219
00036 *    STANDARD CATEGORY RPT DETAIL LINES COMMON TO ALL ENTRY TYPES DCQRY219
00037 ******************************************************************DCQRY219
00038      03  00-CAT-DETAIL-LINES.                                     DCQRY219
00039 *    CONTROL CATEGORY                                             DCQRY219
00040          05  CAT00010-LINE.                                       DCQRY219
00041              07  FLD0001005-HDG  PICTURE X(11).                   DCQRY219
00042              07  FLD0001005-VAL  PICTURE X(32).                   DCQRY219
00043              07  FILLER          PICTURE X.                       DCQRY219
00044              07  FLD0001010-HDG  PICTURE X(7).                    DCQRY219
00045              07  FLD0001010-VAL.                                  DCQRY219
00046                  09  FLD0001010-POS1 PICTURE X.                   DCQRY219
00047                  09  FILLER          PICTURE X(7).                DCQRY219
00048              07  FILLER          PICTURE X.                       DCQRY219
00049              07  FLD0001015-HDG  PICTURE X(9).                    DCQRY219
00050              07  FLD0001015-VAL  PICTURE X.                       DCQRY219
00051 *    KEYWORD CATEGORY                                             DCQRY219
00052          05  CAT00020-LINE REDEFINES CAT00010-LINE.               DCQRY219
00053              07  FLD0002005-HDG  PICTURE X(3).                    DCQRY219
00054              07  FLD0002005-VAL PICTURE X(67).                    DCQRY219
00055 *"   DESCRIPTION CATEGORY                                         DCQRY219
00056          05  CAT00030-LINE REDEFINES CAT00020-LINE.               DCQRY219
00057              07  FLD0003005-VAL  PICTURE X.                       DCQRY219
00058              07  FLD0003010-VAL  PICTURE X(66).                   DCQRY219
00059              07  FILLER          PICTURE X(3).                    DCQRY219
00060 *    OTHER CATEGORY                                               DCQRY219
00061          05  CAT00900-LINE REDEFINES CAT00020-LINE.               DCQRY219
00062              07  FLD0090005-VAL  PICTURE X.                       DCQRY219
00063              07  FLD0090010-VAL  PICTURE X(66).                   DCQRY219
00064              07  FILLER          PICTURE X(3).                    DCQRY219
00065 ******************************************************************DCQRY219
00066 *    STANDARD FIELD HEADING CONSTANTS FOR DETAIL LINES            DCQRY219
00067 *        COMMON TO ALL ENTRY TYPES                                DCQRY219
00068 ******************************************************************DCQRY219
00069      03  00-FIELD-HDG-CONSTANTS.                                  DCQRY219
00070          05  FLD0001005-HCONA    PICTURE X(11)  VALUE             DCQRY219
00071             "  ALIAS OF ".                                        DCQRY219
00072          05  FLD0001010-HCON     PICTURE X(7)   VALUE             DCQRY219
00073             "STATUS=".                                            DCQRY219
00074          05  FLD0001015-HCON     PICTURE X(9)   VALUE             DCQRY219
00075             "SECURITY=".                                          DCQRY219
00076          05  FLD0002005-HCON     PICTURE X(3)   VALUE             DCQRY219
00077             "   ".                                                DCQRY219
00078          05  FLD0001005-HCONV    PICTURE X(11)  VALUE             DCQRY219
00079             "VERSION OF ".                                        DCQRY219
00080          05  SUB-HEADING-LINE.                                    DCQRY219
00081              07  FILLER          PICTURE X(14)   VALUE            DCQRY219
00082             "CATALOGUE NAME".                                     DCQRY219
00083              07  FILLER          PICTURE X(8)    VALUE SPACE.     DCQRY219
00084              07  FILLER          PICTURE X(9)    VALUE            DCQRY219
00085             "REV  LINE".                                          DCQRY219
00086              07  FILLER          PICTURE X(5)    VALUE SPACE.     DCQRY219
00087              07  FILLER          PICTURE X(4)    VALUE            DCQRY219
00088             "TYPE".                                               DCQRY219
00089              07  FILLER          PICTURE X(92)   VALUE SPACE.     DCQRY219
00090          05  CONTINUATION-LINE.                                   DCQRY219
00091              07  CATA-NAME-LINE  PICTURE X(56)   VALUE SPACE.     DCQRY219
00092              07  FILLER          PICTURE X(72)   VALUE SPACE.     DCQRY219
00093              07  STATEMENT-LINE.                                  DCQRY219
00094                  09  FILLER      PICTURE X(5)    VALUE SPACE.     DCQRY219
00095                  09  FILLER      PICTURE X(30)   VALUE            DCQRY219
00096                 "* CONTINUED FROM PREVIOUS PAGE".                 DCQRY219
00097                  09  FILLER      PICTURE X(97)   VALUE SPACE.     DCQRY219
00098 *********************************************************         DCQRY219
00099 *     FIELD CODES AND THEIR MEANINGS                              DCQRY219
00100 *       COMMON TO ALL ENTRY TYPES-FOR COMMON CATS                 DCQRY219
00101 **********************************************************        DCQRY219
00102      03  00-CAT-CODES.                                            DCQRY219
00103 *  STATUS OF ENTRY                                                DCQRY219
00104          05  FLD0001010-CV       PICTURE X(4)    VALUE            DCQRY219
00105         "EPO9".                                                   DCQRY219
00106          05  FLD0001010-CD  REDEFINES  FLD0001010-CV.             DCQRY219
00107              07  FLD0001010-CODES PICTURE X OCCURS 4.             DCQRY219
00108          05  FLD0001010-MV       PICTURE X(32)   VALUE            DCQRY219
00109         "EXISTINGPROPOSEDOBSOLETEXXXXXXXX".                       DCQRY219
00110          05  FLD0001010-MD   REDEFINES FLD0001010-MV.             DCQRY219
00111              07  FLD0001010-MNG  PICTURE X(8) OCCURS 4.           DCQRY219
00112      03  WORK-FIELDS.                                             DCQRY219
00113          05  DATA-OPEN-SW PICTURE X.                              DCQRY219
00114          05  HIT-WORK-REC.                                        DCQRY219
00115          07  HIT-WORK-NAME       PICTURE X(32).                   DCQRY219
00116          07  HIT-WORK-ENTTYPE    PICTURE XX.                      DCQRY219
               05  HIT-TBL-LIMIT           PICTURE 9999 VALUE 1000. 
00119          05  HIT-TBL-LIMIT-PLUS1 PICTURE   99    VALUE            DCQRY219
00120              26.                                                  DCQRY219
00121          05  FRLINE-LIMIT        PICTURE 9(4).                    DCQRY219
00122          05  TOLINE-LIMIT        PICTURE 9(4).                    DCQRY219
00123          05  FORLINE-LIMIT       PICTURE 9(4).                    DCQRY219
00124          05  CATLINE-COUNTER     PICTURE 9(4).                    DCQRY219
00125          05  ENTRY-NAME          PICTURE X(32).                   DCQRY219
00126          05  ENTRY-TYPE-NO       PICTURE 99.                      DCQRY219
00127          05  ENTRY-TYPE-NAME     PICTURE X(8).                    DCQRY219
00128          05  CATEGORY-NUMBER     PICTURE XXX.                     DCQRY219
00129          05  CATEGORY-OUTPUT-SW  PICTURE X.                       DCQRY219
00130          05  1ST-HIT-OVER-SW  PICTURE X VALUE "X".                DCQRY219
00131          05  HIT-COUNTER   PICTURE 9(5) VALUE 0.                  DCQRY219
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.        DCQRY219
00136          05  SUB3                PICTURE   S99  COMP SYNC.        DCQRY219
00137          05  SUB4                PICTURE   S99  COMP SYNC.        DCQRY219
00138          05  SUB5                PICTURE   S99  COMP SYNC.        DCQRY219
00139          05  SUB6                PICTURE   S99  COMP SYNC.        DCQRY219
00140           05  DISPLAY-LINE-LENGTH PICTURE XXX VALUE "132".        DCQRY219
00141      03  QUERY-MESSAGES.                                          DCQRY219
00142          05  NO-LINES-MSG.                                        DCQRY219
00143              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY219
00144              07  NLM             PICTURE X(55)   VALUE            DCQRY219
00145             "DCQRY-015-I * REQUESTED LINES NOT PRESENT FOR CATEGORDCQRY219
00146 -           "Y.".                                                 DCQRY219
00147          05  NO-CAT-MSG.                                          DCQRY219
00148              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY219
00149              07  NC7             PICTURE X(45)   VALUE            DCQRY219
00150             "DCQRY-020-I * REQUESTED CATEGORY NOT DEFINED.".      DCQRY219
00151              07  FILLER          PICTURE X(9) VALUE SPACES.       DCQRY219
00152          05  NO-CATS-MSG.                                         DCQRY219
00153              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY219
00154              07  NCPM            PICTURE X(47)   VALUE            DCQRY219
00155             "DCQRY-025-I * REQUESTED CATEGORIES NOT DEFINED.".    DCQRY219
00156              07  FILLER          PICTURE X(9)    VALUE SPACES.    DCQRY219
00157          05  PROGRAM-PROBLEM-MSG.                                 DCQRY219
00158              07  FILLER          PICTURE XX VALUE SPACES.         DCQRY219
00159              07  PPM             PICTURE X(30)     VALUE          DCQRY219
00160             "DCQRY-099-F * PROGRAM PROBLEM-".                     DCQRY219
00161              07  PROBLEM-NO      PICTURE X.                       DCQRY219
00162              07  FILLER          PICTURE X(23) VALUE SPACES.      DCQRY219
00163          05  LIST-LINE-MSG.                                       DCQRY219
00164              07 FILLER           PICTURE XX    VALUE SPACES.      DCQRY219
00165              07  LIST-LINE-NAME  PICTURE X(32).                   DCQRY219
00166              07  FILLER          PICTURE XX    VALUE SPACES.      DCQRY219
00167              07  LIST-LINE-ENTTYPE PICTURE X(8) VALUE             DCQRY219
00168             "DATASET ".                                           DCQRY219
00169              07  FILLER          PICTURE X(12) VALUE SPACES.      DCQRY219
00170          05  CERR-110.                                            DCQRY219
00171              07  FILLER          PICTURE X(44)   VALUE            DCQRY219
00172             "DCQRY-950-F ERROR * MAST3 READ CLIENT RECORD".       DCQRY219
00173              07  FILLER          PICTURE X(12)   VALUE SPACE.     DCQRY219
00174           05  CERR-120.                                           DCQRY219
00175              07  FILLER          PICTURE X(41)   VALUE            DCQRY219
00176             "DCQRY-970-F ERROR * MAST3 READ HIT RECORD".          DCQRY219
00177              07  FILLER          PICTURE X(15)   VALUE SPACE.     DCQRY219
*CALL     RPTDEF19                                                      DCQRY219
00186                                                                    DCQRY21
00187  PROCEDURE DIVISION.                                              DCQRY219
00190 ********************************************************          DCQRY219
00191 *                                                                 DCQRY219
00192 *    INITIALIZATION                                               DCQRY219
00193 *                                                                 DCQRY219
00194 ********************************************************          DCQRY219
00195  0000-BEGIN.                                                      DCQRY219
           OPEN OUTPUT SYSPRINT WITH NO REWIND. 
00197      MOVE SPACES TO PRINT-LINE.                                   DCQRY219
00198      MOVE SPACES TO STD-REPORT-REC.                               DCQRY219
00199      MOVE "N" TO DATA-OPEN-SW.                                    DCQRY219
00200 *                                                                 DCQRY219
00201 *         READ CTL FILE CLIENT RECORD FOR PRIME NUMBERS           DCQRY219
00202 *                                                                 DCQRY219
00203      OPEN INPUT MAST3.                                            DCQRY219
00210      GO TO 3000-SHOW-COMMAND.                                     DCQRY219
00211                                                                    DCQRY21
00212 ***************************************************************   DCQRY219
00213 *                                                                 DCQRY219
00214 *    END OF SHOW19 PROCESSING                                     DCQRY219
00215 *                                                                 DCQRY219
00216 ***************************************************************   DCQRY219
00217  1500-QUERY-END.                                                  DCQRY219
00218      IF DATA-OPEN-SW EQUAL TO "Y"                                 DCQRY219
00219          CLOSE MAST1.                                             DCQRY219
00220      CLOSE MAST3.                                                 DCQRY219
           CLOSE SYSPRINT WITH NO REWIND. 
           EXIT PROGRAM.
00223  1900-ABORT-RUN.                                                  DCQRY219
00224      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00225      MOVE "12" TO RETURN-CODE.                                    DCQRY219
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT. 
00226      STOP RUN.                                                    DCQRY219
*CALL RETCODE 
00227                                                                    DCQRY21
00228 ******************************************************************DCQRY219
00229 ******************************************************************DCQRY219
00230 *    SHOW COMMAND PROCESSING                                      DCQRY219
00231 *        DISPLAY REQUESTED CATEGORIES AND LINES OF QUALIFYING     DCQRY219
00232 *         ENTRIES                                                 DCQRY219
00233 *                                                                 DCQRY219
00234 ******************************************************************DCQRY219
00235 ******************************************************************DCQRY219
00236  3000-SHOW-COMMAND.                                               DCQRY219
00237 *                                                                 DCQRY219
00238 *     OPEN DATA FILE (MAST1)                                      DCQRY219
00239      OPEN INPUT MAST1.                                            DCQRY219
00240      MOVE "Y" TO DATA-OPEN-SW.                                    DCQRY219
00241 *                                                                 DCQRY219
00242 *    RETRIEVE NAME AND TYPE OF QUALIFYING ENTRY                   DCQRY219
00243 *        OUTPUT LIST LINE                                         DCQRY219
00244  3010-FIRST-HIT.                                                  DCQRY219
00245      MOVE 1 TO SUB1.                                              DCQRY219
00246  3100-NEXT-HIT.                                                   DCQRY219
00247 *     RETRIEVE NAME AND TYPE OF QUALIFYING ENTRY                  DCQRY219
00248 *            FROM HIT TABLE OR FROM MAST3 HIT RECORDS             DCQRY219
00249 *                                                                 DCQRY219
00250      IF SUB1 GREATER THAN HIT-TBL-LIMIT                           DCQRY219
               GO TO 3800-NOMORE-HITS.
      *  MAST3 NOLONGER USED AS OVERFLOW WORK AREA
00252      MOVE HIT-ENTRIES (SUB1) TO HIT-WORK-REC.                     DCQRY219
00253      ADD 1 TO SUB1.                                               DCQRY219
00254      GO TO 3190-HIT-FETCHED.                                      DCQRY219
00255  3120-USE-HIT-FILE.                                               DCQRY219
00256      IF HIT-COUNT EQUAL TO HIT-TBL-LIMIT                          DCQRY219
00257          MOVE SPACES TO HIT-WORK-REC                              DCQRY219
00258          GO TO 3190-HIT-FETCHED.                                  DCQRY219
00259 *                                                                 DCQRY219
00260 *     HIT TABLE LIMIT EXCEEDED USE MAST 3                         DCQRY219
00261 *                                                                 DCQRY219
00262      IF 1ST-HIT-OVER-SW EQUAL TO "N"                              DCQRY219
00263          GO TO 3140-CK-ENDS.                                      DCQRY219
00264      MOVE "N" TO 1ST-HIT-OVER-SW.                                 DCQRY219
00266      MOVE 100 TO CON-KEY.                                         DCQRY219
00267      MOVE 1 TO SUB6.                                              DCQRY219
00268      MOVE HIT-TBL-LIMIT TO HIT-COUNTER.                           DCQRY219
00269      READ MAST3 INVALID KEY                                       DCQRY219
00270          GO TO 3170-NO-HIT-FOUND.                                 DCQRY219
00271 *                                                                 DCQRY219
00272 *      CHECK FOR END OF HIT ENTRIES                               DCQRY219
00273 *                                                                 DCQRY219
00274  3140-CK-ENDS.                                                    DCQRY219
00275      IF HIT-COUNTER EQUAL TO HIT-COUNT                            DCQRY219
00276          GO TO 3180-FINI-HIT.                                     DCQRY219
00277      IF SUB6 LESS THAN HITS-PER-RECORD                            DCQRY219
00278          GO TO 3160-MOVE-HIT.                                     DCQRY219
00279 *                                                                 DCQRY219
00280 *     READ NEXT RECORD FROM MAST3                                 DCQRY219
00281 *                                                                 DCQRY219
00282      MOVE 1 TO SUB6.                                              DCQRY219
00283      ADD 1 TO CON-KEY.                                            DCQRY219
00284      READ MAST3 INVALID KEY                                       DCQRY219
00285          GO TO 3170-NO-HIT-FOUND.                                 DCQRY219
00286 *                                                                 DCQRY219
00287 *    RETRIEVE TYPE AND NAME OF QUALIFYING ENTRY                   DCQRY219
00288 *                                                                 DCQRY219
00289  3160-MOVE-HIT.                                                   DCQRY219
00292      ADD 1 TO SUB6.                                               DCQRY219
00293      ADD 1 TO HIT-COUNTER.                                        DCQRY219
00294      GO TO 3190-HIT-FETCHED.                                      DCQRY219
00295  3170-NO-HIT-FOUND.                                               DCQRY219
00296      MOVE CERR-120 TO STD-RPT-MESSAGE.                            DCQRY219
00297      GO TO 1900-ABORT-RUN.                                        DCQRY219
00298  3180-FINI-HIT.                                                   DCQRY219
00299      MOVE SPACES TO HIT-WORK-REC.                                 DCQRY219
00300  3190-HIT-FETCHED.                                                DCQRY219
00301      IF HIT-WORK-NAME EQUAL TO SPACES                             DCQRY219
00302          GO TO 3800-NOMORE-HITS.                                  DCQRY219
00303      IF HIT-WORK-ENTTYPE NOT EQUAL TO "19"                        DCQRY219
00304         GO TO 3100-NEXT-HIT.                                      DCQRY219
00305      MOVE HIT-WORK-NAME TO LIST-LINE-NAME.                        DCQRY219
00306 *                                                                 DCQRY219
00307 *    LIST ENTRY NAME AND TYPE                                     DCQRY219
00308 *                                                                 DCQRY219
00309  3300-LIST-LINE.                                                  DCQRY219
00310      MOVE "N" TO SEC-PAGE-SW.                                     DCQRY219
00311      MOVE "Y" TO FIRST-REC-SW.                                    DCQRY219
00312      MOVE 99 TO LINE-CT.                                          DCQRY219
00313      MOVE 1 TO PRT-CTL.                                           DCQRY219
00314      MOVE SPACE TO STD-REPORT-REC.                                DCQRY219
00315      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00316      MOVE LIST-LINE-MSG TO STD-RPT-MESSAGE.                       DCQRY219
00317      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00318 *                                                                 DCQRY219
00319 *    INITIALIZE LINE RETRIEVAL LIMITS FOR QUERY                   DCQRY219
00320 *                                                                 DCQRY219
00321  3400-INIT-LINELIMS.                                              DCQRY219
00322      IF QTBL-OUT-FRLINE EQUAL TO SPACES                           DCQRY219
00323          MOVE 0001 TO FRLINE-LIMIT                                DCQRY219
00324         ELSE                                                      DCQRY219
00325          MOVE QTBL-OUT-FRLINE TO FRLINE-LIMIT.                    DCQRY219
00326      IF QTBL-OUT-TOLINE EQUAL TO SPACES                           DCQRY219
00327          MOVE 9999 TO TOLINE-LIMIT                                DCQRY219
00328         ELSE                                                      DCQRY219
00329          MOVE QTBL-OUT-TOLINE TO TOLINE-LIMIT.                    DCQRY219
00330      IF QTBL-OUT-FORLINES EQUAL TO SPACES                         DCQRY219
00331          MOVE 9999 TO FORLINE-LIMIT                               DCQRY219
00332         ELSE                                                      DCQRY219
00333          MOVE QTBL-OUT-FORLINES TO FORLINE-LIMIT.                 DCQRY219
00334 *                                                                 DCQRY219
00335 *    DETERMINE IF SHOW IF FOR A CATEGORY OR SUPER CATEGORY        DCQRY219
00336 *                                                                 DCQRY219
00337      MOVE QTBL-OUT-CAT TO CATEGORY-NUMBER.                        DCQRY219
00338      MOVE HIT-WORK-NAME TO DATA-ENTRY-NAME.                       DCQRY219
00339      MOVE HIT-WORK-ENTTYPE TO DATA-ENTRY-TYPE.                    DCQRY219
00340      MOVE "N" TO CATEGORY-OUTPUT-SW.                              DCQRY219
00341      IF CATEGORY-NUMBER EQUAL TO "999"                            DCQRY219
00342          GO TO 3450-SHOW-ALL.                                     DCQRY219
00343      IF CATEGORY-NUMBER EQUAL TO "998"                            DCQRY219
00344          GO TO 3465-SHOW-COMP.                                    DCQRY219
00345      IF CATEGORY-NUMBER EQUAL TO "996"                            DCQRY219
00346          GO TO 3450-SHOW-ALL.                                     DCQRY219
00347      IF CATEGORY-NUMBER EQUAL TO "997"                            DCQRY219
00348          GO TO 3460-SHOW-CHAR.                                    DCQRY219
00349      IF CATEGORY-NUMBER EQUAL TO "995"                            DCQRY219
00350          GO TO 3467-SHOW-PERS.                                    DCQRY219
00351 *                                                                 DCQRY219
00352 *    SHOW ONE CATEGORY HE ASKED FOR                               DCQRY219
00353 *                                                                 DCQRY219
00354      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00355      GO TO 3100-NEXT-HIT.                                         DCQRY219
00356 *                                                                 DCQRY219
00357 *    SHOW ALL                                                     DCQRY219
00358 *                                                                 DCQRY219
00359  3450-SHOW-ALL.                                                   DCQRY219
00360      MOVE "010" TO CATEGORY-NUMBER.                               DCQRY219
00361      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00362      MOVE "020" TO CATEGORY-NUMBER.                               DCQRY219
00363      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00364 *                                                                 DCQRY219
00365  3460-SHOW-CHAR.                                                  DCQRY219
00366 *                                                                 DCQRY219
00367      MOVE "030" TO CATEGORY-NUMBER.                               DCQRY219
00368      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00369      IF QTBL-OUT-CAT EQUAL TO "996"                               DCQRY219
00370          GO TO 3470-CHECK-SUPER.                                  DCQRY219
00371      MOVE "140" TO CATEGORY-NUMBER.                               DCQRY219
00372      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00373      MOVE "200" TO CATEGORY-NUMBER.                               DCQRY219
00374      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00375      MOVE "210" TO CATEGORY-NUMBER.                               DCQRY219
00376      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00377      MOVE "220" TO CATEGORY-NUMBER.                               DCQRY219
00378      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00379      MOVE "245" TO CATEGORY-NUMBER.                               DCQRY219
00380      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00381      MOVE "900" TO CATEGORY-NUMBER.                                  CL**2
00382      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00383      IF QTBL-OUT-CAT EQUAL TO "997"                               DCQRY219
00384          GO TO 3470-CHECK-SUPER.                                  DCQRY219
00385  3465-SHOW-COMP.                                                  DCQRY219
00386      IF QTBL-OUT-CAT EQUAL TO "999"                               DCQRY219
00387          GO TO 3466-JUST-COMP.                                    DCQRY219
00388      MOVE "030" TO CATEGORY-NUMBER.                               DCQRY219
00389      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00390  3466-JUST-COMP.                                                  DCQRY219
00391      MOVE "300" TO CATEGORY-NUMBER.                               DCQRY219
00392      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00393      GO TO 3470-CHECK-SUPER.                                      DCQRY219
00394  3467-SHOW-PERS.                                                  DCQRY219
00395      MOVE "030" TO CATEGORY-NUMBER.                               DCQRY219
00396      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00397      MOVE "140" TO CATEGORY-NUMBER.                               DCQRY219
00398      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY219
00399 *                                                                 DCQRY219
00400 *    CHECK TO SEE IF ANT OUTPUT FOR FILES                         DCQRY219
00401 *                                                                 DCQRY219
00402  3470-CHECK-SUPER.                                                DCQRY219
00403      IF CATEGORY-OUTPUT-SW EQUAL TO "Y"                           DCQRY219
00404          GO TO 3100-NEXT-HIT.                                     DCQRY219
00405  3475-NO-CATS.                                                    DCQRY219
00406      MOVE NO-CATS-MSG TO STD-RPT-MESSAGE.                         DCQRY219
00407      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00408      GO TO 3100-NEXT-HIT.                                         DCQRY219
00409                                                                    DCQRY21
00410 ******************************************************************DCQRY219
00411 *                                                                 DCQRY219
00412 *    DISPLAY CATEGORY                                             DCQRY219
00413 *        RETRIEVES LINES FOR SPECIFIED CATEGORY AND FORMATS       DCQRY219
00414 *        EITHER A 70, 80 OR 132 CHARACTER LINE                    DCQRY219
00415 *                                                                 DCQRY219
00416 ******************************************************************DCQRY219
00417  3500-DISPLAY-CATEGORY.                                           DCQRY219
00418      MOVE CATEGORY-NUMBER TO DATA-ENTRY-CAT.                      DCQRY219
00419      MOVE 0001 TO CATLINE-COUNTER.                                DCQRY219
00420      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                DCQRY219
00421      IF DATA-RETURN-CODE EQUAL TO "0"                             DCQRY219
00422          GO TO 3510-CK-1ST-LINE.                                  DCQRY219
00423 *                                                                 DCQRY219
00424 *    CHECK FOR SUPER CAT AND BYPASS MSG                           DCQRY219
00425 *                                                                 DCQRY219
00426      IF QTBL-OUT-CAT GREATER THAN 950                             DCQRY219
00427          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY219
00428      GO TO 3715-NOCAT-LINE.                                       DCQRY219
00429 *                                                                 DCQRY219
00430 *    CHECK IF FIRST CATEGORY LINE IS IN DESIRED RANGE             DCQRY219
00431 *        READ PAST LINES WITH NUMBERS LOWER THAN LOW LIMIT        DCQRY219
00432 *                                                                 DCQRY219
00433  3510-CK-1ST-LINE.                                                DCQRY219
00434      IF CAT-LINE LESS THAN FRLINE-LIMIT                           DCQRY219
00435          GO TO 3515-BYPASS-LINE.                                  DCQRY219
00436 *                                                                 DCQRY219
00437 *    RETRIEVE 1ST LINE OF CATEGORY                                DCQRY219
00438 *                                                                 DCQRY219
00439      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY219
00440          GO TO 3517-CK-SUPER-CAT.                                 DCQRY219
00441      GO TO 3520-OUTPUT-CATHDR.                                    DCQRY219
00442  3515-BYPASS-LINE.                                                DCQRY219
00443      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY219
00444      IF DATA-RETURN-CODE EQUAL TO "0" OR "3"                      DCQRY219
00445          GO TO 3510-CK-1ST-LINE.                                  DCQRY219
00446  3517-CK-SUPER-CAT.                                               DCQRY219
00447      IF QTBL-OUT-CAT GREATER THAN 950                             DCQRY219
00448          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY219
00449      GO TO 3715-NOCAT-LINE.                                       DCQRY219
00450 *                                                                 DCQRY219
00451 *    LOOKUP AND OUTPUT CATEGORY HEADER LINE                       DCQRY219
00452 *                                                                 DCQRY219
00453  3520-OUTPUT-CATHDR.                                              DCQRY219
00454      MOVE 1 TO SUB4.                                              DCQRY219
00455  3525-NEXT-CATNUM.                                                DCQRY219
00456      IF ENT19-CATNUMS (SUB4) EQUAL TO CATEGORY-NUMBER             DCQRY219
00457          GO TO 3530-DISPLAY-HDG.                                  DCQRY219
00458      ADD 1 TO SUB4.                                               DCQRY219
00459      GO TO 3525-NEXT-CATNUM.                                      DCQRY219
00460  3530-DISPLAY-HDG.                                                DCQRY219
00461      MOVE SPACES TO STD-RPT-CATHDG.                               DCQRY219
00462      MOVE ENT19-CATHDRS (SUB4) TO CATEGORY-HEADER.                DCQRY219
00463      MOVE 2 TO PRT-CTL.                                           DCQRY219
00464      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00465      MOVE 1 TO PRT-CTL.                                           DCQRY219
00466      MOVE SPACES TO STD-RPT-CATHDG.                               DCQRY219
00467      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00468      MOVE "Y" TO CATEGORY-OUTPUT-SW.                              DCQRY219
00469 *                                                                 DCQRY219
00470 *    FORMAT CATEGORY DETAIL LINES                                 DCQRY219
00471 *        IF 70 CHR FORMAT PUT OUT LINE NO ON SEP LINE             DCQRY219
00472 *                                                                 DCQRY219
00473  3540-FMT-CAT-DETAIL.                                             DCQRY219
00474       IF DISPLAY-LINE-LENGTH NOT EQUAL TO "070"                   DCQRY219
00475          GO TO 3550-FMT-LINE-PREFIX.                              DCQRY219
00476      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00477      GO TO 3560-OUTPUT-STD.                                       DCQRY219
00478  3550-FMT-LINE-PREFIX.                                            DCQRY219
00479      IF CATEGORY-NUMBER NOT EQUAL TO "300"                        DCQRY219
00480          GO TO 3555-MOVE-LINE.                                    DCQRY219
00481      IF FIRST-REC-SW EQUAL TO "Y"                                 DCQRY219
00482          GO TO 3560-OUTPUT-STD.                                   DCQRY219
00483  3555-MOVE-LINE.                                                  DCQRY219
00484      MOVE CAT-REV            TO  STDRPT-REVNO.                    DCQRY219
00485      MOVE CAT-LINE           TO  STDRPT-LINE.                     DCQRY219
00486 *                                                                 DCQRY219
00487 *    CHECK FOR COMMENT LINE                                       DCQRY219
00488  3560-OUTPUT-STD.                                                 DCQRY219
00489      IF CAT-COMMENT NOT EQUAL TO "*"                              DCQRY219
00490          GO TO 3565-CATEGORY-CHECK.                               DCQRY219
00491      IF CATEGORY-NUMBER EQUAL TO "300"                            DCQRY219
00492          GO TO 3565-CATEGORY-CHECK.                               DCQRY219
00493      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.            DCQRY219
00494      GO TO 3700-GET-NEXT-LINE.                                    DCQRY219
00495 *                                                                 DCQRY219
00496 *    CHECK FOR CATEGORY NUMBERS AND ENTER FORMATTING RT           DCQRY219
00497 *                                                                 DCQRY219
00498  3565-CATEGORY-CHECK.                                             DCQRY219
00499      IF CATEGORY-NUMBER EQUAL TO "010"                            DCQRY219
00500          PERFORM 5100-FMT-CAT010 THRU 5199-FMT-CAT010-XIT         DCQRY219
00501          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00502      IF CATEGORY-NUMBER EQUAL TO "020"                            DCQRY219
00503          PERFORM 5200-FMT-CAT020 THRU 5299-FMT-CAT020-XIT         DCQRY219
00504          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00505      IF CATEGORY-NUMBER EQUAL TO "030"                            DCQRY219
00506          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT         DCQRY219
00507          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00508      IF CATEGORY-NUMBER EQUAL TO "140"                            DCQRY219
00509          PERFORM 5500-FMT-CAT140 THRU 5690-FMT-CAT140-XIT         DCQRY219
00510          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00511      IF CATEGORY-NUMBER EQUAL TO "200"                            DCQRY219
00512          PERFORM 12200-FMT-CAT200 THRU 12299-FMT-CAT200-XIT       DCQRY219
00513          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00514      IF CATEGORY-NUMBER EQUAL TO "210"                            DCQRY219
00515          PERFORM 12500-FMT-CAT210 THRU 12595-FMT-CAT210-XIT       DCQRY219
00516          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00517      IF CATEGORY-NUMBER EQUAL TO "220"                            DCQRY219
00518       PERFORM 12700-FMT-CAT220 THRU 12790-FMT-CAT220-XIT             CL**2
00519          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00520      IF CATEGORY-NUMBER EQUAL TO "245"                            DCQRY219
00521          PERFORM 1900-FMT-CAT245 THRU 1999-FMT-CAT19245-XIT          CL**2
00522          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00523      IF CATEGORY-NUMBER EQUAL TO "300"                            DCQRY219
00524          PERFORM 12800-FMT-CAT300 THRU 12860-FMT-CAT300-XIT       DCQRY219
00525          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00526      IF CATEGORY-NUMBER EQUAL TO "900"                            DCQRY219
00527          PERFORM 5900-FMT-CAT900 THRU 5999-FMT-CAT900-XIT         DCQRY219
00528          GO TO 3700-GET-NEXT-LINE.                                DCQRY219
00529      GO TO 3710-NOCAT-DATA.                                       DCQRY219
00530 *                                                                 DCQRY219
00531 *    RETRIEVE NEXT LINE OF CATEGORY - CK FOR END                  DCQRY219
00532 *                                                                 DCQRY219
00533  3700-GET-NEXT-LINE.                                              DCQRY219
00534      IF CATLINE-COUNTER EQUAL TO FORLINE-LIMIT                    DCQRY219
00535        GO TO 3749-DISPLAY-CAT-XIT.                                DCQRY219
00536      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY219
00537      IF DATA-RETURN-CODE EQUAL TO  1 OR 2                         DCQRY219
00538          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY219
00539      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY219
00540          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY219
00541      ADD 1 TO CATLINE-COUNTER.                                    DCQRY219
00542      GO TO 3540-FMT-CAT-DETAIL.                                   DCQRY219
00543  3749-DISPLAY-CAT-XIT.                                            DCQRY219
00544      EXIT.                                                        DCQRY219
00545                                                                    DCQRY21
00546 *                                                                 DCQRY219
00547 *   FORMAT WARNING AND INFORMATION MESSAGES                       DCQRY219
00548 *                                                                 DCQRY219
00549  3710-NOCAT-DATA.                                                 DCQRY219
00550      MOVE NO-CAT-MSG   TO        STD-RPT-MESSAGE.                 DCQRY219
00551      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00552      GO TO 3100-NEXT-HIT.                                         DCQRY219
00553  3715-NOCAT-LINE.                                                 DCQRY219
00554      MOVE NO-LINES-MSG TO    STD-RPT-MESSAGE.                     DCQRY219
00555      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00556      GO TO 3100-NEXT-HIT.                                         DCQRY219
00557                                                                    DCQRY21
00558  3800-NOMORE-HITS.                                                DCQRY219
00559 *                                                                 DCQRY219
00560 *    ON-LINE VERSION WILL DETERMINE NEXT STEP HERE                DCQRY219
00561 *                                                                 DCQRY219
00562      GO TO 1500-QUERY-END.                                        DCQRY219
00563                                                                    DCQRY21
00564 ***************************************************************** DCQRY219
00565 *                                                                 DCQRY219
00566 *    FORMAT CATEGORY 010 DETAIL LINE                              DCQRY219
00567 *        CATEGORY 010 = CONTROL                                   DCQRY219
00568 *                                                                 DCQRY219
00569 ***************************************************************** DCQRY219
00570  5100-FMT-CAT010.                                                 DCQRY219
00571      MOVE SPACES TO CAT00010-LINE.                                DCQRY219
00572 *                                                                 DCQRY219
00573 *    FORMAT ALIAS VERSION FIELD                                   DCQRY219
00574 *                                                                 DCQRY219
00575  5105-FMT-FLD05.                                                  DCQRY219
00576      IF CTL-ALY-VER EQUAL TO SPACES GO TO 5110-FMT-FLD010.        DCQRY219
00577      IF DATA-ENTRY-TYPE GREATER THAN 15                           DCQRY219
00578          MOVE FLD0001005-HCONV TO FLD0001005-HDG                  DCQRY219
00579       ELSE                                                        DCQRY219
00580          MOVE FLD0001005-HCONA TO FLD0001005-HDG.                 DCQRY219
00581      MOVE CTL-ALY-VER TO FLD0001005-VAL.                          DCQRY219
00582 *                                                                 DCQRY219
00583 *     FORMAT STATUS FIELD                                         DCQRY219
00584 *                                                                 DCQRY219
00585  5110-FMT-FLD010.                                                 DCQRY219
00586      IF CTL-STATUS EQUAL TO SPACES GO TO 5115-FMT-FLD015.         DCQRY219
00587      MOVE FLD0001010-HCON TO FLD0001010-HDG.                      DCQRY219
00588          GO TO 5112-INTERPRET-CODE.                               DCQRY219
00589  5111-JUST-CODE.                                                  DCQRY219
00590      MOVE CTL-STATUS TO FLD0001010-POS1.                          DCQRY219
00591      GO TO 5115-FMT-FLD015.                                       DCQRY219
00592  5112-INTERPRET-CODE.                                             DCQRY219
00593      MOVE 01 TO SUB3.                                             DCQRY219
00594  5113-NEXT-CODE-CK.                                               DCQRY219
00595      IF FLD0001010-CODES (SUB3) EQUAL TO "9"                      DCQRY219
00596          GO TO 5111-JUST-CODE.                                    DCQRY219
00597      IF FLD0001010-CODES (SUB3) EQUAL TO CTL-STATUS               DCQRY219
00598          GO TO 5114-EXTRACT-MNG.                                  DCQRY219
00599      ADD 1 TO SUB3.                                               DCQRY219
00600      GO TO 5113-NEXT-CODE-CK.                                     DCQRY219
00601  5114-EXTRACT-MNG.                                                DCQRY219
00602      MOVE FLD0001010-MNG (SUB3) TO FLD0001010-VAL.                DCQRY219
00603 *                                                                 DCQRY219
00604 *     FORMAT SECURITY FIELD                                       DCQRY219
00605 *                                                                 DCQRY219
00606  5115-FMT-FLD015.                                                 DCQRY219
00607      IF CTL-SECURITY EQUAL TO SPACES                              DCQRY219
00608          GO TO 5120-OUTPUT-LINE.                                  DCQRY219
00609      MOVE FLD0001015-HCON TO FLD0001015-HDG.                      DCQRY219
00610      MOVE CTL-SECURITY    TO FLD0001015-VAL.                      DCQRY219
00611 *                                                                 DCQRY219
00612 *     FORMATTING OF CATEGORY LINE COMPLETE                        DCQRY219
00613  5120-OUTPUT-LINE.                                                DCQRY219
00614      IF CAT00010-LINE EQUAL TO SPACES GO TO 5199-FMT-CAT010-XIT.  DCQRY219
00615      MOVE CAT00010-LINE TO STDRPT-70CHR.                          DCQRY219
00616      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00617 *                                                                 DCQRY219
00618  5199-FMT-CAT010-XIT.                                             DCQRY219
00619      EXIT.                                                        DCQRY219
00620                                                                    DCQRY21
00621 ***************************************************************** DCQRY219
00622 *                                                                 DCQRY219
00623 *    FORMAT CATEGORY 020 LINE                                     DCQRY219
00624 *        CATEGORY 020 = KEYWORD                                   DCQRY219
00625 *                                                                 DCQRY219
00626 ***************************************************************** DCQRY219
00627  5200-FMT-CAT020.                                                 DCQRY219
00628      MOVE SPACES TO CAT00020-LINE.                                DCQRY219
00629 *                                                                 DCQRY219
00630 *    FORMAT KEYWORD FIELD                                         DCQRY219
00631 *                                                                 DCQRY219
00632  5205-FMT-FLD05.                                                  DCQRY219
00633      MOVE FLD0002005-HCON TO FLD0002005-HDG.                      DCQRY219
00634      MOVE KEY-WORDS TO FLD0002005-VAL.                            DCQRY219
00635 *                                                                 DCQRY219
00636 *    FORMATTING OF CATEGORY LINE COMPLETE                         DCQRY219
00637 *                                                                 DCQRY219
00638  5210-OUTPUT-LINE.                                                DCQRY219
00639      MOVE CAT00020-LINE TO STDRPT-70CHR.                          DCQRY219
00640      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00641  5299-FMT-CAT020-XIT.                                             DCQRY219
00642      EXIT.                                                        DCQRY219
00643                                                                    DCQRY21
00644 ***************************************************************** DCQRY219
00645 *                                                                 DCQRY219
00646 *    FORMAT CATEGORY 030 LINE                                     DCQRY219
00647 *        CATEGORY 030 = DESCRIPTION                               DCQRY219
00648 *                                                                 DCQRY219
00649 ***************************************************************** DCQRY219
00650  5300-FMT-CAT030.                                                 DCQRY219
00651      MOVE SPACES TO CAT00030-LINE.                                DCQRY219
00652      MOVE DESC-FLAG      TO FLD0003005-VAL.                       DCQRY219
00653      MOVE DESC-COMMENT   TO FLD0003010-VAL.                       DCQRY219
00654  5310-OUTPUT-LINE.                                                DCQRY219
00655      MOVE CAT00030-LINE  TO STDRPT-70CHR.                         DCQRY219
00656      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00657  5399-FMT-CAT030-XIT.                                             DCQRY219
00658      EXIT.                                                        DCQRY219
00659                                                                    DCQRY21
00660 ***************************************************************** DCQRY219
00661 *                                                                 DCQRY219
00662 *    FORMAT CATEGORY 900 LINE                                     DCQRY219
00663 *        CATEGORY 900 = OTHER                                     DCQRY219
00664 ***************************************************************** DCQRY219
00665  5900-FMT-CAT900.                                                 DCQRY219
00666      MOVE SPACES TO CAT00900-LINE.                                DCQRY219
00667          MOVE DESC-FLAG     TO FLD0090005-VAL.                    DCQRY219
00668          MOVE DESC-COMMENT   TO FLD0090010-VAL.                   DCQRY219
00669  5910-OUTPUT-LINE.                                                DCQRY219
00670      MOVE CAT00900-LINE TO STDRPT-70CHR.                          DCQRY219
00671      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY219
00672  5999-FMT-CAT900-XIT.                                             DCQRY219
00673      EXIT.                                                        DCQRY219
00674                                                                    DCQRY21
*CALL     RPTRT19                                                       DCQRY219
*CALL     DISPLAYLN                                                     DCQRY219
*CALL     WRITELN                                                       DCQRY219
00678  USER-ROUTINE.                                                    DCQRY219
00679      MOVE SUB-HEADING-LINE TO PRINT-DATA.                         DCQRY219
00680      ADD 2 TO LINE-CT.                                            DCQRY219
00681      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DCQRY219
00682      MOVE SPACES TO PRINT-DATA.                                   DCQRY219
00683      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DCQRY219
00684      IF SEC-PAGE-SW EQUAL TO "Y"                                  DCQRY219
00685          MOVE LIST-LINE-MSG TO CATA-NAME-LINE                     DCQRY219
00686          MOVE CONTINUATION-LINE TO PRINT-DATA                     DCQRY219
00687          MOVE 1 TO PRT-CTL                                        DCQRY219
00688          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                   DCQRY219
00689          MOVE 1 TO PRT-CTL                                        DCQRY219
00690          MOVE STATEMENT-LINE TO PRINT-DATA                        DCQRY219
00691      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DCQRY219
00692      MOVE "Y" TO SEC-PAGE-SW.                                     DCQRY219
00693  USER-ROUTINE-XIT.                                                DCQRY219
00694      EXIT.                                                        DCQRY219
00695  PROGRAM-END-BAD.                                                 DCQRY219
00696      MOVE PROGRAM-PROBLEM-MSG TO STD-RPT-MESSAGE.                 DCQRY219
00697      GO TO 1900-ABORT-RUN.                                        DCQRY219
00698                                                                    DCQRY21
*CALL     MAST1RFC                                                      DCQRY219
*CALL     MAST1RNL                                                      DCQRY219
*CALL     MAST1EXT                                                      DCQRY219
*CALL     MAST1READ                                                     DCQRY219
*CALL     MAST1ALG                                                      DCQRY219
