RE: RCVF - how to do multiple CHAINS in one CL pgm -- MIDRANGE-L

Joel,

It has been a while but if I remember correctly you have to manually open and close the file.

Top:
Load keyValue
OVRDBF FILE(TestFile) POSITION(*KEYAE 1 *N &KeyValue)
OPNDBF FILE(TestFile) OPTION(*INP)
Rcvf
CLOF FILE(TextFile)
DLTOVR FILE(TextFile)
goto Top

Gary Monnier
IT Software Engineer II
T 425.895.6457
F 425.556.8777
E Gary.Monnier@xxxxxxxxx

Terex Aerial Work Platforms
18465 NE 68th St.
Redmond, WA 98052
www.genielift.com

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, May 30, 2012 12:08 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm

Thanks for the good idea, I tried it but it doesn't work.

Any other ideas? Is calling another pgm the only way?

The OVRDBF only works once - just for the file open. The follow-on DLTOVRs are ignored by RCVF.

The IBM manual states the following; although it is not totally accurate. It does work one time, but not more than once.

Setting a position in the file
Note:
File positioning by means of the Override with Database File (OVRDBF) command does not occur until the next time the file is opened. Because a file can be opened only once within a CL program, this command cannot be used within a single CL program to affect what will be read through the RCVF command.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bill Hopkins
Sent: Wednesday, May 30, 2012 1:51 PM
To: Midrange Systems Technical Discussion
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm

Maybe

Top:
Load keyValue
OVRDBF FILE(TestFile) POSITION(*KEYAE 1 *N &KeyValue)
Rcvf
DLTOVR FILE(TextFile)
goto Top

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, May 30, 2012 2: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
______________________________________________________________________