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

[CRPence <CRPbottle@xxxxxxxxx>]

  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?