Trailing-Edge
-
PDP-10 Archives
-
iqlv30
-
bigrqs.mem
There are 2 other files named bigrqs.mem in the archive. Click here to see a list.
INCREASING THE QUERY SIZE CAPACITY OF IQL3
The query capacity of IQL3 is governed by the size of an
internal table which is defined once as an array of 36 bit
binary words and redefined as an array of 15-word entries.
To change the capacity of IQL3, you must edit changes into
the source code of modules IQA and IQE. The algorithm to
follow is:
1. Decide by what percentage you wish to increase the
capacity and apply this to 3000. The result must
be a multiple of 15. For example, to double the
capacity you would use 6000.
Apply this value as the new value of the OCCURS
clause at lines:
(019800 of IQE)
(007340 of IQA)
(014600 of IQA)
2. Subtract 22 from the result of (1). For example,
in doubling the capacity you would use 5978.
Apply this value as the new value of the OCCURS
clause at lines:
(019720 of IQE)
(014520 of IQA)
3. Divide 15 into the result of (1). In this example,
this would give a value of 400.
Apply this value as the new value in lines:
(008820, 019860, 020180 of IQE)
(001300, 014660, 014920, 015060,
015300, 015620, 015900, 016100,
016220, 016360, 016520 of IQA)
The examples on the next pages detail these changes for the
case of doubling the query capacity.
Page 2
Doubling Query Capacity of IQE
File 1) DSK:IQESML.CBL created: 0412 14-NOV-1978
File 2) DSK:IQEBIG.CBL created: 1610 27-APR-1979
1)1 008820 02 MAX-DX PIC S9(10) COMP VALUE 200.
1) 008840 02 MAX-FWX PIC S9(10) COMP VALUE 72.
****
2)1 008820 02 MAX-DX PIC S9(10) COMP VALUE 400.
2) 008840 02 MAX-FWX PIC S9(10) COMP VALUE 72.
**************
1)9 019720 02 FILLER PIC S9(10) COMP OCCURS 2978.
1) 019740
****
2)9 019720 02 FILLER PIC S9(10) COMP OCCURS 5978.
2) 019740
**************
1)9 019800 OCCURS 3000 INDEXED BY X.
1) 019820
1) 019840 01 FILE-TABLE REDEFINES INSTR-TABLE.
1) 019860 02 F-ENTRY OCCURS 200 INDEXED BY FX.
1) 019880 04 F-TYPE PIC S9(10) COMP.
****
2)9 019800 OCCURS 6000 INDEXED BY X.
2) 019820
2) 019840 01 FILE-TABLE REDEFINES INSTR-TABLE.
2) 019860 02 F-ENTRY OCCURS 400 INDEXED BY FX.
2) 019880 04 F-TYPE PIC S9(10) COMP.
**************
1)9 020180 02 D-ENTRY OCCURS 200 INDEXED BY DX.
1) 020200 04 D-TYPEV PIC S9(10) COMP.
****
2)9 020180 02 D-ENTRY OCCURS 400 INDEXED BY DX.
2) 020200 04 D-TYPEV PIC S9(10) COMP.
**************
Page 3
Doubling Query Capacity of IQA
File 1) DSK:IQASML.CBL created: 1428 15-NOV-1978
File 2) DSK:IQABIG.CBL created: 1610 27-APR-1979
1)1 001300 01 DX-MAX PICTURE S9(05) COMP VALUE 200.
1) 001320 01 DX-SAVE PICTURE S9(05) COMP.
****
2)1 001300 01 DX-MAX PICTURE S9(05) COMP VALUE 400.
2) 001320 01 DX-SAVE PICTURE S9(05) COMP.
**************
1)1 007340 01 X-MAX PICTURE S9(05) COMP VALUE 3000.
1) 007360 01 X-START PICTURE S9(05) COMP VALUE 24.
****
2)1 007340 01 X-MAX PICTURE S9(05) COMP VALUE 6000.
2) 007360 01 X-START PICTURE S9(05) COMP VALUE 24.
**************
1)1 014520 02 FILLER PICTURE S9(10) COMP OCCURS 2978.
1) 014540
****
2)1 014520 02 FILLER PICTURE S9(10) COMP OCCURS 5978.
2) 014540
**************
1)1 014600 OCCURS 3000 INDEXED BY X.
1) 014620
1) 014640 01 FILE-TABLE REDEFINES INSTR-TABLE.
1) 014660 02 F-ENTRY OCCURS 200 INDEXED BY FX.
1) 014680 04 F-TYPEV PICTURE S9(10) COMP.
****
2)1 014600 OCCURS 6000 INDEXED BY X.
2) 014620
2) 014640 01 FILE-TABLE REDEFINES INSTR-TABLE.
2) 014660 02 F-ENTRY OCCURS 400 INDEXED BY FX.
2) 014680 04 F-TYPEV PICTURE S9(10) COMP.
**************
1)1 014920 02 DB-ENTRY OCCURS 200 TIMES INDEXED BY BX.
1) 014940 04 B-TYPEV PICTURE S9(10) COMP.
****
2)1 014920 02 DB-ENTRY OCCURS 400 TIMES INDEXED BY BX.
2) 014940 04 B-TYPEV PICTURE S9(10) COMP.
**************
1)1 015060 02 R-ENTRY OCCURS 200 TIMES INDEXED BY RX.
1) 015080 04 R-TYPEV PICTURE S9(10) COMP.
****
2)1 015060 02 R-ENTRY OCCURS 400 TIMES INDEXED BY RX.
2) 015080 04 R-TYPEV PICTURE S9(10) COMP.
**************
1)1 015300 02 D-ENTRY OCCURS 200 INDEXED BY DX.
1) 015320 04 D-TYPEV PICTURE S9(10) COMP.
****
2)1 015300 02 D-ENTRY OCCURS 400 INDEXED BY DX.
2) 015320 04 D-TYPEV PICTURE S9(10) COMP.
**************
1)1 015620 02 V-ENTRY OCCURS 200 INDEXED BY VX.
1) 015640 04 V-TYPEV PICTURE S9(10) COMP.
****
2)1 015620 02 V-ENTRY OCCURS 400 INDEXED BY VX.
2) 015640 04 V-TYPEV PICTURE S9(10) COMP.
**************
1)1 015900 02 C-ENTRY OCCURS 200 INDEXED BY CX.
1) 015920 04 C-TYPEV PICTURE S9(10) COMP.
Page 4
File 1) DSK:IQASML.CBL created: 1428 15-NOV-1978
File 2) DSK:IQABIG.CBL created: 1610 27-APR-1979
****
2)1 015900 02 C-ENTRY OCCURS 400 INDEXED BY CX.
2) 015920 04 C-TYPEV PICTURE S9(10) COMP.
**************
1)1 016100 02 L-ENTRY OCCURS 200 INDEXED BY LX.
1) 016120 04 L-TYPEV PICTURE S9(10) COMP.
****
2)1 016100 02 L-ENTRY OCCURS 400 INDEXED BY LX.
2) 016120 04 L-TYPEV PICTURE S9(10) COMP.
**************
1)1 016220 02 K-ENTRY OCCURS 200 TIMES INDEXED BY KX.
1) 016240 04 K-TYPEV PICTURE S9(10) COMP.
****
2)1 016220 02 K-ENTRY OCCURS 400 TIMES INDEXED BY KX.
2) 016240 04 K-TYPEV PICTURE S9(10) COMP.
**************
1)1 016360 02 P-ENTRY OCCURS 200 TIMES INDEXED BY FPX.
1) 016380 04 P-TYPEV PICTURE S9(10) COMP.
****
2)1 016360 02 P-ENTRY OCCURS 400 TIMES INDEXED BY FPX.
2) 016380 04 P-TYPEV PICTURE S9(10) COMP.
**************
1)1 016520 02 A-ENTRY OCCURS 200 TIMES INDEXED BY AX.
1) 016540 04 A-TYPEV PICTURE S9(10) COMP.
****
2)1 016520 02 A-ENTRY OCCURS 400 TIMES INDEXED BY AX.
2) 016540 04 A-TYPEV PICTURE S9(10) COMP.
**************