|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.