I defined the same file under 2 FD names and that worked like a charm. Sweet!
Thanks for all your help!
Nancy Barney
Dakota Drug, Inc
(701) 857-1158
nbarney@xxxxxxxxxxx
-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Finucci Domenico
Sent: Wednesday, June 04, 2008 9:39 AM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] R: How to do sequential and random reads concurrently
Good evening: declare two files in the same program and you 'll be able to indipendently access them.
Sincerely
D
Domenico Finucci
P Print this mail only if necessary
-----Messaggio originale-----
Da: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] Per conto di Nancy Barney
Inviato: mercoledì 4 giugno 2008 16.32
A: cobol400-l@xxxxxxxxxxxx
Oggetto: [COBOL400-L] How to do sequential and random reads concurrently
I have an indexed file that I am reading sequentially using a repeating, non-unique alternate key, using start and read next. Access is dynamic.
As I am reading through this file sequentially, I also have to randomly retrieve records from the same file using the primary key. (For each record that I retrieve sequentially, I have to get another record
randomly.)
I can't do a start after the random read to reset the record pointers for the sequential read, because I am using a non-unique alternate key to start the sequential read.
How do I do this without messing up the record pointers? When I tested this, I don't get all the records I should get from the sequential read, as if the random read 'resets' the record pointers.
How do I get around this? Thanks in advance for your help!
Nancy Barney
Dakota Drug, Inc
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/cobol400-l.
midrange.com
