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

[Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>]

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