Thanks for the CLOSE idea, but we are on v5r4.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Anderson, Kurt
Sent: Wednesday, May 30, 2012 3:14 PM
To: Midrange Systems Technical Discussion
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm
Joel,
Sorry, it's not CLOF, it's actually CLOSE.
"The Close Database File (CLOSE) command will explicitly close a database file that was implicitly opened by a Receive File (RCVF) command run within the same CL program or ILE CL procedure. A file with the same open identifier must have been declared by a Declare File (DCLF) command within the same CL program or ILE CL procedure.
After the CLOSE command is run, the next RCVF command for this file will implicitly reopen the file and read a record from the file.
You can use CLOSE for a database file that is already closed or was never opened; no error message will be sent."
Thanks,
Kurt
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, May 30, 2012 2:17 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm
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.
--
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.
________________________________________________________________________
This inbound email has been scanned for all viruses by the MessageLabs SkyScan
service.
________________________________________________________________________
______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit
http://www.symanteccloud.com
______________________________________________________________________
midrange.com
