Re: RCVF - how to do multiple CHAINS in one CL pgm

I have to ask - maybe it already was - the OP is in a COBOL shop, I believe - I'm wondering about why this isn't just being done in COBOL (or RPG for others of us). Dancing around CL for file IO is so much harder than just using a language made for it.

On another tack - as a general rule, I found it can be problematic to go directly to these system tables, whether in CL like this or in an HLL. I don't remember if format level checks are done in CL - but one of these files changed at v7.1, and a program compiled over it at an earlier release will blow up.

It seems safer to go with embedded SQL. Doing something like RUNSQL in CL and then jumping through hoops - more work than we like to do, normally. Of course, Bruce V. has utilities to help with this.

Anyhow, just a fair warning out of my own experience, as well as a general question.

Later - off to conduct the pit for A Chorus Line here in town. Too much fun!

Vern

On 6/2/2012 5:37 PM, CRPence wrote:

Although there was no followup to better describe the actual
scenario, I will offer the following scenario as an example of something
like what I alluded to in the quoted message:

The desired effect is to retrieve the rows with the following key
values [shown delimited by quotation marks] from the System Database
Cross Reference file QADBXREF, using the Access Path defined by the
Logical File QADBXFIL on the two fields (DBXFIL, DBXLIB) which are each
10-byte character:

"QCLSRC QGPL "
"QCLSRC PLIB07 "
"QCLSRC C1 "

dclf mydbxfil /* like QADBXFIL; min.: omit unsupported flds */
opnqryf qadbxfil *inp opnid(xfil) format(mydbxfil)
qryslt(' dbxfil *eq "QCLSRC"
*and dbxlib *eq %values("QGPL" "PLIB07" "C1")
')
ovrdbf mydbxfil qadbxfil share(*yes) ovrscope(*calllvl)
loop:
rcvf opnid(*none)
monmsg cpf0864 exec(do)
...
enddo
...
goto loop
...
clof xfil

Regards, Chuck

On 30 May 2012 14:57, CRPence wrote:

The true intent can not be divined from what little is given to
describe the scenario, but if CL must be used, then what about using
OPNQRYF to get the desired key values. Then loop through those
selected rows with the RCVF, omitting\ignoring any values\rows that
do not match what is desired within the CL? That would be just one
full-open, and the Receive File request would share the ODP of the
Open Query File.

<<SNIP>>

Stone, Joel on Wednesday, May 30, 2012 1:46 PM wrote:

I have a CL loop as follows:

Top:
Load keyValue
OVRDBF FILE(TestFile) POSITION(*KEYAE 1 *N&KeyValue)
rcvf
monmsg (cpf4137 cpf0864) exec(deal-with-it) /*<ed: addendum> */
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?