Good idea, but CLOF only works with OPNQRYF and OPNDBF according to help.
I tried that, issues error Message ID . . . . . . : CPF4520
Date sent . . . . . . : 05/30/12 Time sent . . . . . .
Message . . . . : No file open with identifier EMADDR.
Close File - Help
The Close File (CLOF) command closes a database file. This command
works in conjunction with the Open Query File (OPNQRYF) and Open
Database File (OPNDBF) commands.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Anderson, Kurt
Sent: Wednesday, May 30, 2012 2:10 PM
To: Midrange Systems Technical Discussion
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm
You can't reposition an open file, can you? For some reason I was thinking you couldn't. Then again, I rarely do anything than the most basic I/O in CL.
Have you tried using CLOF before going to the Top label?
-Kurt
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, May 30, 2012 1:46 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RCVF - how to do multiple CHAINS in one CL pgm
I have a CL loop as follows:
Top:
Load keyValue
OVRDBF FILE(TestFile) POSITION(*KEYAE 1 *N &KeyValue)
rcvf
goto Top
The OVRDBF positions the file ONLY the first time thru (apparently it only positions for the NEXT file open).
How can I read the record that I need (using keys) several times in on CL run?
Thanks!
______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit
http://www.symanteccloud.com ______________________________________________________________________
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
