Re: Did OPNQRYF give out an empty record set?

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Antonio,

This should work

OVRDBF SHARE (*YES)
OPNQRYF OPNID(lucky)
CPYFRMQRYF OPNID(lucky)
POSDBF OPNID(lucky) POSITION(*START)
CALL pgm
CLOF lucky
DLTOVR

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 21-11-02 at 1:06 afvaiv 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.