Re: Re[2]: number of records in a file

OR YOU CAN HAVE EMBEDDED SQL TO CHECK THE RECORD COUNT


----- Original Message -----
From: Chris Bipes <ChrisB@cross-check.com>
To: <RPG400-L@midrange.com>
Sent: Thursday, August 05, 1999 10:38 AM
Subject: RE: Re[2]: number of records in a file


> My first question is WHY do you not want to execute the RPG is no records
> are selected?  If this is an interactive job, Don't you want to give a
> message stating that there was no records meeting the user selection?  If
a
> batch report is being submitted based on the user selection, do you not
want
> to print the report header, including the user selection, then a message
> stating no records met the selection criteria?  When no output is
generated
> does not your users look for the output, report the program has an error
> and/or resubmit with the same selection?  I say don't worry about no
records
> are selected and let the RPG handle the fact.
>
> Christopher K. Bipes mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc. http://www.cross-check.com
> 6119 State Farm Drive Phone: 707 586-0551 x 1102
> Rohnert Park  CA  94928 Fax: 707 586-1884
>
>
>
> > << Subj:
> >  Date:  8/1/99 2:01:23 PM Central Daylight Time
> >  From:  cmcd@radiks.net (Mary Lynn Riggins)
> >  Sender:    owner-rpg400-l@midrange.com
> >  Reply-to:  <A
> > HREF="mailto:RPG400-L@midrange.com">RPG400-L@midrange.com</A>
> >  To:    RPG400-L@midrange.com (RPG LIST)
> >
> >  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 been
> > selected,
> >  if no records are selected I do not want to process the
> > subsequent RPG
> > program.
> >
> >  I tried looking at using the RTVOBJA and RTVOBJD cmds, but I
> > don't see
> > anything
> >  that would give me a record count.  Perhaps I'm missing it.
> > If anyone has
> > any
> >  ideas on a proper process for this I would appreciate your insights.
> >
> >  Thank you,
> >
> >  Mary Lynn Riggins
> >
> >  Mary; check out RTVMBRD QTEMP/OBJLIST NBRCURRCD(&NBRCURRCD)
> >
> > hope this helps;
> > Kathie
> > +---
> > | 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
> >
> +---
> | 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
> +---
> | 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
>
> +---
> | 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
> +---
> | 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
>

+---
| 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