Re: OPNQRYF - Zero records

["alan shore" <SHOREA@xxxxxxxx>]

My aplogies if someone has already answered this, but I was late in arriving at 
work, and I am presently wading through ALL my e-mail, and I decided to answer 
this as I go through the list.
Plus it makes me feel good when there is something I can answer .That does'nt 
happen very often for me.

Anyway, in answer to your question,  another method is to use the following 
command.
Use the CPYFRMQF to create another file from the OPNQRYF command (into QTEMP is 
a suggestion) and then
RTVMBRD    FILE(QTEMP/&TEMPFL) NBRCURRCD(&TEMPFLREC)
The field   &TEMPFLREC will hold the number of records for that file.

>>> <Steven.Gray@arvalphh.co.uk> 02/05/02 07:00AM >>>
I am trying to test if the OPNQRYF file produced has no records from the
selection criteria.

I can do this by using the DSPFD to an OUTFILE and then using DCLF and RCVF
to read the 1st record which will contain the &field MBNRCD , to inform me
if there are indeed 0 records.

But,

is this the best way to go ,

as this will only allow 1 file comparison in the CL program.

If I want to test any more files for zero records , then they have to have
their own CL programs.Which is obviously not ideal.
Also the testing of this is messy , as another file has to be created which
holds the testing files data.

Regards

Steven Gray
Development/Support Analyst




_____________________________________________________________________
This message has been checked for all known viruses by UUNET delivered
through the MessageLabs Virus Control Centre. For further information visit
http://www.uk.uu.net/products/security/virus/
_______________________________________________
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.