*COMDECK  DCQRYCOM
00001 ********************************************************          06/26/78
00002 *                                                                 DCQRYCOM
00003 *    INITIALIZATION                                                  LV002
00004 *                                                                 DCQRYCOM
00005 ********************************************************          DCQRYCOM
00006  0000-BEGIN.                                                      DCQRYCOM
           OPEN OUTPUT SYSPRINT WITH NO REWIND. 
00008      MOVE SPACES TO PRINT-LINE.                                   DCQRYCOM
00009      MOVE SPACES TO STD-REPORT-REC.                               DCQRYCOM
00010      MOVE "N" TO DATA-OPEN-SW.                                    DCQRYCOM
00011 *                                                                 DCQRYCOM
00012 *         READ CTL FILE CLIENT RECORD FOR PRIME NUMBERS           DCQRYCOM
00013 *                                                                 DCQRYCOM
00014      OPEN INPUT MAST3.                                            DCQRYCOM
00021      GO TO 3000-SHOW-COMMAND.                                     DCQRYCOM
00022                                                                    DCQRYCO
00023 ***************************************************************   DCQRYCOM
00024 *                                                                 DCQRYCOM
00025 *    END OF SHOW PROCESSING                                       DCQRYCOM
00026 *                                                                 DCQRYCOM
00027 ***************************************************************   DCQRYCOM
00028  1500-QUERY-END.                                                  DCQRYCOM
00029      IF DATA-OPEN-SW EQUAL TO "Y"                                 DCQRYCOM
00030          CLOSE MAST1.                                             DCQRYCOM
00031      CLOSE MAST3.                                                 DCQRYCOM
           CLOSE SYSPRINT WITH NO REWIND. 
00033      EXIT PROGRAM.                                                 DCQRYCO
00034  1900-ABORT-RUN.                                                  DCQRYCOM
00035      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRYCOM
00036      MOVE "12" TO RETURN-CODE.                                    DCQRYCOM
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT. 
00037      STOP RUN.                                                    DCQRYCOM
*CALL RETCODE 
00038                                                                    DCQRYCO
00039 ******************************************************************DCQRYCOM
00040 ******************************************************************DCQRYCOM
00041 *    SHOW COMMAND PROCESSING                                      DCQRYCOM
00042 *        DISPLAY REQUESTED CATEGORIES AND LINES OF QUALIFYING     DCQRYCOM
00043 *         ENTRIES                                                 DCQRYCOM
00044 *                                                                 DCQRYCOM
00045 ******************************************************************DCQRYCOM
00046 ******************************************************************DCQRYCOM
00047  3000-SHOW-COMMAND.                                               DCQRYCOM
00048 *                                                                 DCQRYCOM
00049 *     OPEN DATA FILE (MAST1)                                      DCQRYCOM
00050      OPEN INPUT MAST1.                                            DCQRYCOM
00051      MOVE "Y" TO DATA-OPEN-SW.                                    DCQRYCOM
00052 *                                                                 DCQRYCOM
00053 *    RETRIEVE NAME AND TYPE OF QUALIFYING ENTRY                   DCQRYCOM
00054 *        OUTPUT LIST LINE                                         DCQRYCOM
00055  3010-FIRST-HIT.                                                  DCQRYCOM
00056      MOVE 1 TO SUB1.                                              DCQRYCOM
00057  3100-NEXT-HIT.                                                   DCQRYCOM
00058 *     RETRIEVE NAME AND TYPE OF QUALIFYING ENTRY                  DCQRYCOM
00059 *            FROM HIT TABLE OR FROM MAST3 HIT RECORDS             DCQRYCOM
00060 *                                                                 DCQRYCOM
00061      IF SUB1 GREATER THAN HIT-TBL-LIMIT                           DCQRYCOM
               GO TO 3800-NOMORE-HITS.
      *  MAST3 NOLONGER USED AS OVERFLOW WORK AREA
00063      MOVE HIT-ENTRIES (SUB1) TO HIT-WORK-REC.                     DCQRYCOM
00064      ADD 1 TO SUB1.                                               DCQRYCOM
00065      GO TO 3190-HIT-FETCHED.                                      DCQRYCOM
00111  3190-HIT-FETCHED.                                                DCQRYCOM
00112      IF HIT-WORK-NAME EQUAL TO SPACES                             DCQRYCOM
00113          GO TO 3800-NOMORE-HITS.                                  DCQRYCOM
00114      IF HIT-WORK-ENTTYPE NOT EQUAL TO ENTRY-TYPE-CONSTANT            CL**2
00115         GO TO 3100-NEXT-HIT.                                      DCQRYCOM
00116      MOVE HIT-WORK-NAME TO LIST-LINE-NAME.                        DCQRYCOM
00117 *                                                                 DCQRYCOM
00118 *    LIST ENTRY NAME AND TYPE                                     DCQRYCOM
00119 *                                                                 DCQRYCOM
00120  3300-LIST-LINE.                                                  DCQRYCOM
00121      MOVE "N" TO SEC-PAGE-SW.                                     DCQRYCOM
00122      MOVE "Y" TO FIRST-REC-SW.                                    DCQRYCOM
00123      MOVE 99 TO LINE-CT.                                          DCQRYCOM
00124      MOVE 1 TO PRT-CTL.                                           DCQRYCOM
00125      MOVE SPACE TO STD-REPORT-REC.                                DCQRYCOM
00126      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRYCOM
00127      MOVE LIST-LINE-MSG TO STD-RPT-MESSAGE.                       DCQRYCOM
00128      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  DCQRYCOM
00129 *                                                                 DCQRYCOM
00130 *    INITIALIZE LINE RETRIEVAL LIMITS FOR QUERY                   DCQRYCOM
00131 *                                                                 DCQRYCOM
00132  3400-INIT-LINELIMS.                                              DCQRYCOM
00133      IF QTBL-OUT-FRLINE EQUAL TO SPACES                           DCQRYCOM
00134          MOVE 0001 TO FRLINE-LIMIT                                DCQRYCOM
00135         ELSE                                                      DCQRYCOM
00136          MOVE QTBL-OUT-FRLINE TO FRLINE-LIMIT.                    DCQRYCOM
00137      IF QTBL-OUT-TOLINE EQUAL TO SPACES                           DCQRYCOM
00138          MOVE 9999 TO TOLINE-LIMIT                                DCQRYCOM
00139         ELSE                                                      DCQRYCOM
00140          MOVE QTBL-OUT-TOLINE TO TOLINE-LIMIT.                    DCQRYCOM
00141      IF QTBL-OUT-FORLINES EQUAL TO SPACES                         DCQRYCOM
00142          MOVE 9999 TO FORLINE-LIMIT                               DCQRYCOM
00143         ELSE                                                      DCQRYCOM
00144          MOVE QTBL-OUT-FORLINES TO FORLINE-LIMIT.                 DCQRYCOM
00145 *                                                                 DCQRYCOM
00146 *    DETERMINE IF SHOW IF FOR A CATEGORY OR SUPER CATEGORY        DCQRYCOM
00147 *                                                                 DCQRYCOM
00148      MOVE QTBL-OUT-CAT TO CATEGORY-NUMBER.                        DCQRYCOM
00149      MOVE HIT-WORK-NAME TO DATA-ENTRY-NAME.                       DCQRYCOM
00150      MOVE HIT-WORK-ENTTYPE TO DATA-ENTRY-TYPE.                    DCQRYCOM
00151      MOVE "N" TO CATEGORY-OUTPUT-SW.                              DCQRYCOM
00152      IF CATEGORY-NUMBER EQUAL TO "999"                            DCQRYCOM
00153          GO TO 3450-SHOW-ALL.                                     DCQRYCOM
00154      IF CATEGORY-NUMBER EQUAL TO "998"                            DCQRYCOM
00155          GO TO 3465-SHOW-COMP.                                    DCQRYCOM
00156      IF CATEGORY-NUMBER EQUAL TO "996"                            DCQRYCOM
00157          GO TO 3450-SHOW-ALL.                                     DCQRYCOM
00158      IF CATEGORY-NUMBER EQUAL TO "997"                            DCQRYCOM
00159          GO TO 3460-SHOW-CHAR.                                    DCQRYCOM
00160      IF CATEGORY-NUMBER EQUAL TO "995"                            DCQRYCOM
00161          GO TO 3467-SHOW-PERS.                                    DCQRYCOM
00162 *                                                                 DCQRYCOM
00163 *    SHOW ONE CATEGORY HE ASKED FOR                               DCQRYCOM
00164 *                                                                 DCQRYCOM
00165      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRYCOM
00166      GO TO 3100-NEXT-HIT.                                         DCQRYCOM
00167 *                                                                 DCQRYCOM
00168 *    SHOW ALL                                                     DCQRYCOM
00169 *                                                                 DCQRYCOM
00170  3450-SHOW-ALL.                                                   DCQRYCOM
00171      MOVE "010" TO CATEGORY-NUMBER.                               DCQRYCOM
00172      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRYCOM
00173      MOVE "020" TO CATEGORY-NUMBER.                               DCQRYCOM
00174      PERFORM 3500-DISPLAY-CATEGORY THRU 3749-DISPLAY-CAT-XIT.     DCQRYCOM
