For right now, apply to '4' accounts, save misses to a file, then close and open for input and process the '5' account and report the misses.
I assume the input is sorted into ascending order for the fast results. How about changing the key definition so the account number is in front and the account type (4 or 5) is at the end. Should be able to change the copylib and recompile, group move would have to be broken into individual moves. You can still print and display them the other way. On Tue, Apr 3, 2012 at 4:23 PM, Frank Swarbrick <[email protected]> wrote: > Current program does the following (in COBOL!). > > - Opens KSDS for I-O > - Sequentially processes another file (non-VSAM). > - For each record in the non-VSAM file it attempts a random (keyed) read of a > record on the KSDS file. The key is, essentially, a concatenation of a > record type code ('4' or '5') and an account number. If no record of type > '4' is found then it tries again for the same account, but with record type > '5'. If either the '4' or '5' type is found it updates it and rewrites the > record (assuming the data changed). > > This takes about 16 minutes to run. However if the 'type 5' logic is > removed, so that it only ever looks for type '4' records, it takes only about > one minute. > > Our resident VSAM expert says it has something to do with the VSAM "sequence > set" and the fact that only one is kept in memory at a time. Since the same > sequence set doesn't appear to be able to be used for both the 'type 4' > records and the 'type 5' records it's constantly going back and forth, > loading the "other" sequence set from disk. He says on VSE (which we were up > until May 2010) more than one sequence set can be in memory, but with MVS > this appears to not be the case. > > > Hopefully that reason is accurate. Is there a solution? We thought about > having two COBOL FDs pointing to two DDs, where both DDs pointed to the same > KSDS. This would probably(?) work, except for the fact of the update. > > Thanks, > Frank > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
