[This note has been sent to the following InterNet address(es):
[log in to unmask]]



Paul H. Christidis   ( [log in to unmask] ) wrote on Thu, 5 Dec 1996
15:40:47 PST8 :

>Dear fellow Listers,
>
>I did not ever think that I'll be asking a question about PowerHouse but we
>have this job that takes *forever* to finish and if I want it not to
>interfere with my backup, I better do something about it.  I've determined
>that much of the delay occurs within the following code.
>
>ACC PCTRD0 LINK (TRD0-PACCOUNT[1:4]) TO PJM0-PROJECT OF PCPJM0
>
>SEL IF (PJM0-TYPE[1:1]        EQ 'I' OR                &
>        PJM0-TYPE[1:1]        EQ 'B' OR                &
>        PJM0-TYPE[1:1]        EQ 'H')                  &
>    AND PJM0-CLASS            NE ' '                   &
>    AND TRD0-FISCALNO         GE '0161'                &
>    AND TRD0-PACCOUNT[18:1]   EQ '5'                   &
>    AND TRD0-PACCOUNT[18:4]   NE '5190'                &
>    AND TRD0-ID#10            EQ ' '
>
>SET REP LIMIT 2000000
>SET SUBFILE   NAME    D6665OT1 KEEP
>.....
>....
>
>PCTRD0 is an Image detail dataset of 10,000,000+ entries
>PCPJM0 is an Image master dataset of ~9,000 entries
>TRDO-FISCALNO is a search key within PCTRD0 and the range of interest is
>    from '0161' to the current fiscal period of '0180'+.
>
>If I was writing this using a 3GL I would determine the range of fiscal
>periods and then for each period I'd read down the corresponding chain
>within PCTRD0, getting the corresponding master record, and applying the
>other selection criteria.
>
>Is there a way of doing something similar in QUIZ?


I believe that your situation could be improved by the use of  <plug> Suprtool
from Robelle</plug>. As long as you have the product, you can do a very fast
serial read from both data sets using the specified selection criteria and use
Suprlink2 to merge the results so you can use the resulting file of key values
for your Quiz chained reads. I am sure other people could expand on the process.

Cheers,
John Dunlop

Work : [log in to unmask]
Home : [log in to unmask]
Web : http://www.tcp.co.uk/~jdunlop/index.html   (for a collection of HP3000
links)