Re:

Hi Mary,

As far as I know, OPNQRYF doesn't even know the number of records
that have been selected.  In many cases, OPNQRYF is doing the
selection WHILE the program is reading the records.

(If I'm wrong, I'm sure people will correct me)

One way that I've worked around this issue is to use CPYFRMQRYF
to make a temp file containing all of the selected records.  You can
then use the RTVMBRD command to get the number of records that
are in this temp file.

Something like:

PGM
           DCL VAR(&RECS) TYPE(*DEC) LEN(10 0)

           OVRDBF FILE(MYFILE) SHARE(*YES)

           OPNQRYF FILE((MYFILE)) QRYSLT('...etc, etc, etc...')

           CPYFRMQRYF FROMOPNID(MYFILE) TOFILE(QTEMP/RECTEST)

           RTVMBRD FILE(QTEMP/RECTEST) NBRCURRCD(&RECS)

           IF COND(&RECS *NE 0) THEN(DO)
                    POSDBF OPNID(MYFILE) POSITION(*START)
                    CALL   PGM(MYRPGPGM)
           ENDDO

           DLTF FILE(QTEMP/RECTEST)
           MONMSG MSGID(CPF2105)

           CLOF OPNID(MYFILE)
           DLTOVR FILE(MYFILE)

ENDPGM

A better (or at least more efficient) way to do this would be to
change your RPG program to properly detect that there are no records
to read -- saving the time it takes to copy all of those records
to another file...   but this workaround is useful when thats not
possible to do :)

Hope that helps,

Scott Klement
Information Systems Manager
Klement's Sausage Co, Inc.



"Mary Lynn Riggins" <cmcd@radiks.net> wrote:
>
> I have a CL program which uses an OPNQRYF to select certain data
>  requested by
> user.
>
> I then want to check the record count to see if any records have bee
>  selected,
> if no records are selected I do not want to process the subsequent R
>  program.
>
> I tried looking at using the RTVOBJA and RTVOBJD cmds, but I don't s
>  anything
> that would give me a record count.  Perhaps I'm missing it.  If anyo
>  has any
> ideas on a proper process for this I would appreciate your insights.
>
> Thank you,
>
> Mary Lynn Riggins
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END