RE: OPNQRYF record count

["Randy Robb" <rwrobb@xxxxxxxxxxxx>]

Instead of doing DASD intensive functions like RCVF or CPYFRMQRYF, why not
use RPG's File Information Data Structure INFDS to retrieve the Current
number of records?
In fact, you could write a small program to do this generically.

Define a file called Fxxx in F-specs, User Controlled open, with the INFDS
data structure specification in the continuation specs.
In I-specs (for non-ILE RPG), describe the INFDS, filling the from/to
positions of the current records field (map of INFDS can be found in RPG
manual)
In C-specs, receive the three parms (you can make allowance for MBR being
blank to use *FIRST), then perform a CL command via QCMDEXC call to override
file Fxxx to the file named in passed parms.  Then, open the file, retrieve
the "Current Number of records" from INFDS.
  Well, you could even use a fourth parameter to return this number to the
CLP (best passed as alpha and converted to decimal in the CL) to let the CLP
know number of records found WITHOUT  reading them for a count.

> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Ravi
> Sent: Wednesday, March 10, 1999 10:15 AM
> To: MIDRANGE-L@midrange.com
> Subject: Re: OPNQRYF record count
>
>
> Joe,
>
> You can RCVF in the CL and monitor for CPF0864
> or
> CPYFRMQRYF into a temp file and RTVMBRD to check number of records in
> the member.
>
> Ravi
> Joe Giusto wrote:
> >
> > Is there any way to see how many or if any records were selected with an
> > OPNQRYF statement.  I would need to know this before calling the next
> > program in the CL.
> >
> > Thank you,
> >
> > Joe Giusto II
> > Patuxent Publishing Company
> >  <mailto:jgiusto@patuxent.com> mailto:JGiusto@patuxent.com
> > http://www.lifegoeson.com <http://lifegoeson.com>
> >
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> david@midrange.com
> > +---
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---