Re: Did OPNQRYF give out an empty record set?

Vern, answering your question on what I'd like to do differently...
In the CL I have a display file where I introduce some fields that will serve
as "filter" for the data being processed.
Sometimes the user makes some mistake, ans as result no data is pulled from the
OPNQRYF.
I'd like to pop-up a message or a window warning the user and asking for new
filter data, before the RPG pgm will run without any results.

Thanks to everybody who answered.
Antonio


Vern Hamberg escribió:

> Antonio
>
> Not that I know of. For one thing, the actual generation of the result set
> does not take place until it's opened in the RPG, so there is no
> information available in the CL.
>
> To see this, run an OPNQRYF from a command line, then CPYFRMQRYF. You don't
> get the "records selected, records processed" message until you execute the
> copy, or until you open the file in your RPG.
>
> Be sure to close the file after the copy!!!
>
> What do you want to do differently if there are no records? Just curious.
>
> Regards
>
> Vern
>
> At 01:06 AM 11/21/2002 +0100, you wrote:
> >An CL pgm does an OVRDBF xxxx  SHARE(*YES), then executes an OPNQRYF,
> >then runs an RPG pgm. Sometimes the selected conditions result in an
> >empty selection, so the RPG pgm reading ( I P , sequential processing)
> >the opened file will directly set  LR and end.
> >If this was a normal file, I could know in advance the file was empty
> >with RTVMBRD  number of records, but cannot with the result of the
> >OPNQRYF.
> >Is there any way to find out whether the result file is/isnot empty
> >before running the RPG pgm?
> >TIA
> >-------------------------
> >Antonio Fernandez-Vicenti
> >afvaiv@wanadoo.es
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.

--
-------------------------
Antonio Fernandez-Vicenti
afvaiv@wanadoo.es