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
______________________________________________________________________

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].