*DECK     DCQRY210
00001  IDENTIFICATION DIVISION.                                         07/31/78
       PROGRAM-ID. QRY210.
*CALL COPYRIGHT 
      *    THIS MODULE FORMATS THE QUERY RESPONSE REPORT
      *    FOR SHOW QUERIES AGAINST ENTRY-TYPE 10 
      *    ENTRY-TYPE 10 = GROUP
00009  ENVIRONMENT DIVISION.                                            DCQRY210
00010  CONFIGURATION SECTION.                                           DCQRY210
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL UPQRYSN 
00013  INPUT-OUTPUT SECTION.                                            DCQRY210
00014  FILE-CONTROL.                                                    DCQRY210
           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.                                                   DCQRY210
00023  FILE SECTION.                                                    DCQRY210
*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     DCDWA10                                                          CL**5
           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). 
*CALL     DATACOM                                                          CL**2
*CALL     RPTDEF10                                                         CL**5
00040                                                                    DCQRY21
00041  PROCEDURE DIVISION.                                                 CL**2
*CALL     DCQRYCOM                                                         CL**2
00045 *                                                                    CL**2
00046  3460-SHOW-CHAR.                                                  DCQRY210
00047 *                                                                    CL**2
00048      MOVE "030" TO CATEGORY-NUMBER.                               DCQRY210
00049      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY210
00050      IF QTBL-OUT-CAT EQUAL TO "996" OR "995"                         CL**2
00051          GO TO 3470-CHECK-SUPER.                                  DCQRY210
00052      MOVE "200" TO CATEGORY-NUMBER.                                  CL**2
00053      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY210
00054      MOVE "210" TO CATEGORY-NUMBER.                                  CL**2
00055      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY210
00056      MOVE "900" TO CATEGORY-NUMBER.                                  CL**2
00057      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRY210
00058      IF QTBL-OUT-CAT EQUAL TO "997"                                  CL**2
00059          GO TO 3470-CHECK-SUPER.                                     CL**2
00060  3465-SHOW-COMP.                                                     CL**2
00061      IF QTBL-OUT-CAT EQUAL TO "999"                                  CL**2
00062          GO TO 3466-JUST-COMP.                                       CL**2
00063      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00064      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00065  3466-JUST-COMP.                                                     CL**2
00066      MOVE "300" TO CATEGORY-NUMBER.                                  CL**2
00067       PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.       CL**2
00068      GO TO 3470-CHECK-SUPER.                                         CL**2
00069  3467-SHOW-PERS.                                                     CL**2
00070      MOVE "030" TO CATEGORY-NUMBER.                                  CL**2
00071      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.        CL**2
00072 *                                                                 DCQRY210
00073 *    CHECK TO SEE IF ANY OUTPUT FOR GROUPS                           CL**2
00074 *                                                                 DCQRY210
00075  3470-CHECK-SUPER.                                                DCQRY210
00076      IF CATEGORY-OUTPUT-SW EQUAL TO "Y"                           DCQRY210
00077          GO TO 3100-NEXT-HIT.                                     DCQRY210
00078  3475-NO-CATS.                                                    DCQRY210
00079      MOVE NO-CATS-MSG TO STD-RPT-MESSAGE.                         DCQRY210
00080      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY210
00081      GO TO 3100-NEXT-HIT.                                         DCQRY210
00082                                                                    DCQRY21
00083 ******************************************************************DCQRY210
00084 *                                                                 DCQRY210
00085 *    DISPLAY CATEGORY                                             DCQRY210
00086 *        RETRIEVES LINES FOR SPECIFIED CATEGORY AND FORMATS       DCQRY210
00087 *        EITHER A 70, 80 OR 132 CHARACTER LINE                    DCQRY210
00088 *                                                                 DCQRY210
00089 ******************************************************************DCQRY210
00090  3500-DISPLAY-CATEGORY.                                           DCQRY210
00091      MOVE CATEGORY-NUMBER TO DATA-ENTRY-CAT.                      DCQRY210
00092      MOVE 0001 TO CATLINE-COUNTER.                                DCQRY210
00093      PERFORM READ-CATEGORY THRU READ-CATEGORY-XIT.                DCQRY210
00094      IF DATA-RETURN-CODE EQUAL TO "0"                                CL**2
00095          GO TO 3510-CK-1ST-LINE.                                     CL**2
00096 *                                                                    CL**2
00097 *    CHECK FOR SUPER CAT AND BYPASS MSG                              CL**2
00098 *                                                                    CL**2
00099      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00100          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00101      GO TO 3715-NOCAT-LINE.                                          CL**2
00102 *                                                                 DCQRY210
00103 *    CHECK IF FIRST CATEGORY LINE IS IN DESIRED RANGE             DCQRY210
00104 *        READ PAST LINES WITH NUMBERS LOWER THAN LOW LIMIT        DCQRY210
00105 *                                                                 DCQRY210
00106  3510-CK-1ST-LINE.                                                DCQRY210
00107      IF CAT-LINE LESS THAN FRLINE-LIMIT                           DCQRY210
00108          GO TO 3515-BYPASS-LINE.                                  DCQRY210
00109 *                                                                 DCQRY210
00110 *    RETRIEVE 1ST LINE OF CATEGORY                                DCQRY210
00111 *                                                                 DCQRY210
00112      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY210
00113          GO TO 3517-CK-SUPER-CAT.                                    CL**2
00114      GO TO 3520-OUTPUT-CATHDR.                                    DCQRY210
00115  3515-BYPASS-LINE.                                                DCQRY210
00116      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY210
00117      IF DATA-RETURN-CODE EQUAL TO "0" OR "3"                      DCQRY210
00118          GO TO 3510-CK-1ST-LINE.                                  DCQRY210
00119  3517-CK-SUPER-CAT.                                                  CL**2
00120      IF QTBL-OUT-CAT GREATER THAN 950                                CL**2
00121          GO TO 3749-DISPLAY-CAT-XIT.                                 CL**2
00122      GO TO 3715-NOCAT-LINE.                                          CL**2
00123 *                                                                 DCQRY210
00124 *    LOOKUP AND OUTPUT CATEGORY HEADER LINE                       DCQRY210
00125 *                                                                 DCQRY210
00126  3520-OUTPUT-CATHDR.                                              DCQRY210
00127      MOVE 1 TO SUB4.                                              DCQRY210
00128  3525-NEXT-CATNUM.                                                DCQRY210
00129       IF ENT10-CATNUMS (SUB4) EQUAL TO CATEGORY-NUMBER               CL**2
00130          GO TO 3530-DISPLAY-HDG.                                  DCQRY210
00131      ADD 1 TO SUB4.                                               DCQRY210
00132      GO TO 3525-NEXT-CATNUM.                                      DCQRY210
00133  3530-DISPLAY-HDG.                                                DCQRY210
00134      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00135      MOVE ENT10-CATHDRS (SUB4) TO CATEGORY-HEADER.                   CL**2
00136      MOVE 2 TO PRT-CTL.                                              CL**2
00137      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY210
00138      MOVE 1 TO PRT-CTL.                                              CL**2
00139      MOVE SPACES TO STD-RPT-CATHDG.                                  CL**2
00140      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00141      MOVE "Y" TO CATEGORY-OUTPUT-SW.                              DCQRY210
00142 *                                                                 DCQRY210
00143 *    FORMAT CATEGORY DETAIL LINES                                 DCQRY210
00144 *        IF 70 CHR FORMAT PUT OUT LINE NO ON SEP LINE             DCQRY210
00145 *                                                                 DCQRY210
00146  3540-FMT-CAT-DETAIL.                                             DCQRY210
00147       IF DISPLAY-LINE-LENGTH NOT EQUAL TO "070"                      CL**2
00148          GO TO 3550-FMT-LINE-PREFIX.                              DCQRY210
00149      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY210
00150      GO TO 3560-OUTPUT-STD.                                       DCQRY210
00151  3550-FMT-LINE-PREFIX.                                            DCQRY210
00157      MOVE CAT-REV            TO  STDRPT-REVNO.                    DCQRY210
00158      MOVE CAT-LINE           TO  STDRPT-LINE.                     DCQRY210
00159 *                                                                 DCQRY210
00160 *    CHECK FOR COMMENT LINE                                       DCQRY210
00161  3560-OUTPUT-STD.                                                 DCQRY210
00162      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00163          GO TO 3565-CATEGORY-CHECK.                                  CL**2
00166      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00167      GO TO 3700-GET-NEXT-LINE.                                       CL**2
00168 *                                                                 DCQRY210
00169 *    CHECK FOR CATEGORY NUMBERS AND ENTER FORMATTING RT           DCQRY210
00170 *                                                                 DCQRY210
00171  3565-CATEGORY-CHECK.                                                CL**2
00172      IF CATEGORY-NUMBER EQUAL TO "010"                            DCQRY210
00173          PERFORM 5100-FMT-CAT010 THRU 5199-FMT-CAT010-XIT         DCQRY210
00174          GO TO 3700-GET-NEXT-LINE.                                DCQRY210
00175      IF CATEGORY-NUMBER EQUAL TO "020"                            DCQRY210
00176          PERFORM 5200-FMT-CAT020 THRU 5299-FMT-CAT020-XIT         DCQRY210
00177          GO TO 3700-GET-NEXT-LINE.                                DCQRY210
00178      IF CATEGORY-NUMBER EQUAL TO "030"                            DCQRY210
00179          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT         DCQRY210
00180          GO TO 3700-GET-NEXT-LINE.                                DCQRY210
00181      IF CATEGORY-NUMBER EQUAL TO "200"                               CL**2
00182          PERFORM 10200-FMT-CAT200 THRU 10260-FMT-CAT200-XIT          CL**2
00183          GO TO 3700-GET-NEXT-LINE.                                DCQRY210
00184      IF CATEGORY-NUMBER EQUAL TO "210"                               CL**2
00185          PERFORM 10500-FMT-CAT210 THRU 10690-FMT-CAT210-XIT          CL**2
00186          GO TO 3700-GET-NEXT-LINE.                                DCQRY210
00187      IF CATEGORY-NUMBER EQUAL TO "300"                               CL**2
00188          PERFORM 10800-FMT-CAT300 THRU 10995-FMT-CAT300-XIT          CL**2
00189          GO TO 3700-GET-NEXT-LINE.                                   CL**2
00190      IF CATEGORY-NUMBER EQUAL TO "900"                            DCQRY210
00191          PERFORM 5900-FMT-CAT900 THRU 5999-FMT-CAT900-XIT         DCQRY210
00192          GO TO 3700-GET-NEXT-LINE.                                DCQRY210
00193      GO TO 3710-NOCAT-DATA.                                          CL**2
00194 *                                                                 DCQRY210
00195 *    RETRIEVE NEXT LINE OF CATEGORY - CK FOR END                  DCQRY210
00196 *                                                                 DCQRY210
00197  3700-GET-NEXT-LINE.                                              DCQRY210
00198      IF CATLINE-COUNTER EQUAL TO FORLINE-LIMIT                    DCQRY210
00199        GO TO 3749-DISPLAY-CAT-XIT.                                DCQRY210
00200      PERFORM READ-NEXT-DATA THRU READ-NEXT-DATA-XIT.              DCQRY210
00201      IF DATA-RETURN-CODE EQUAL TO  1 OR 2                         DCQRY210
00202          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY210
00203      IF CAT-LINE GREATER THAN TOLINE-LIMIT                        DCQRY210
00204          GO TO 3749-DISPLAY-CAT-XIT.                              DCQRY210
00205      ADD 1 TO CATLINE-COUNTER.                                       CL**2
00206      GO TO 3540-FMT-CAT-DETAIL.                                   DCQRY210
00207  3749-DISPLAY-CAT-XIT.                                            DCQRY210
00208      EXIT.                                                        DCQRY210
00209                                                                    DCQRY21
00210 *                                                                 DCQRY210
00211 *   FORMAT WARNING AND INFORMATION MESSAGES                       DCQRY210
00212 *                                                                 DCQRY210
00213  3710-NOCAT-DATA.                                                 DCQRY210
00214      MOVE NO-CAT-MSG   TO        STD-RPT-MESSAGE.                 DCQRY210
00215      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY210
00216      GO TO 3100-NEXT-HIT.                                            CL**2
00217  3715-NOCAT-LINE.                                                 DCQRY210
00218      MOVE NO-LINES-MSG  TO       STD-RPT-MESSAGE.                 DCQRY210
00219      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRY210
00220      GO TO 3100-NEXT-HIT.                                            CL**2
00221                                                                    DCQRY21
00222  3800-NOMORE-HITS.                                                DCQRY210
00223 *                                                                 DCQRY210
00224 *    ON-LINE VERSION WILL DETERMINE NEXT STEP HERE                DCQRY210
00225 *                                                                 DCQRY210
00226      GO TO 1500-QUERY-END.                                        DCQRY210
00227                                                                    DCQRY21
*CALL     RPTRTCOM                                                         CL**2
00229                                                                    DCQRY21
*CALL     RPTRT10                                                          CL**5
*CALL     DISPLAYLN                                                        CL**5
*CALL     WRITELN                                                          CL**5
00233  USER-ROUTINE.                                                       CL**2
00234      MOVE SUB-HEADING-LINE TO PRINT-DATA.                            CL**2
00235      ADD 2 TO LINE-CT.                                               CL**2
00236      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00237      MOVE SPACES TO PRINT-DATA.                                      CL**2
00238      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00239      IF SEC-PAGE-SW EQUAL TO "Y"                                     CL**2
00240          MOVE LIST-LINE-MSG TO CATA-NAME-LINE                        CL**2
00241          MOVE CONTINUATION-LINE TO PRINT-DATA                        CL**2
00242          MOVE 1 TO PRT-CTL                                           CL**2
00243          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                      CL**2
00244          MOVE 1 TO PRT-CTL                                           CL**2
00245          MOVE STATEMENT-LINE TO PRINT-DATA                           CL**2
00246          PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                     CL**2
00247      MOVE "Y" TO SEC-PAGE-SW.                                        CL**2
00248  USER-ROUTINE-XIT.                                                   CL**2
00249      EXIT.                                                           CL**2
00250  PROGRAM-END-BAD.                                                    CL**2
00251      MOVE PROGRAM-PROBLEM-MSG TO STD-RPT-MESSAGE.                    CL**2
00252      GO TO 1900-ABORT-RUN.                                           CL**2
00253                                                                    DCQRY21
*CALL     MAST1RFC                                                         CL**5
*CALL     MAST1RNL                                                         CL**5
*CALL     MAST1EXT                                                         CL**5
*CALL     MAST1READ                                                        CL**5
*CALL     MAST1ALG                                                         CL**5
