RE: Getting record count from OPNQRYF

[Mark Walter <mwalter@xxxxxxxxxx>]

Bob,

What I've done in the past is something like this:

DCL VAR(numrecs) TYPE(*DEC) LEN(10 0)
OVRDBF FILE(Myfile) SHARE(*YES)
OPNQRYF FILE(Myfile) +
                   QRYSLT('Somefield = "Something"') +
                    KEYFLD(somefield)
CPYFRMQRYF FROMOPNID(Myfile) TOFILE(Qtemp/Tempfile) MBROPT(*ADD) 
CRTFILE(*YES)
RTVMBRD FILE(Qtemp/Tempfile) MBR(*FIRST) NBRCURRCD(numrecs)
DLTF FILE(Qtemp/Tempfile)
...
CLOF OPNID(Myfile)
DLTOVR FILE(Myfile)

Hope this helps.

-----Original Message-----
From:   Bob Luebbe [SMTP:bluebbe@LINOMA.COM]
Sent:   Tuesday, March 06, 2001 10:17 AM
To:     MIDRANGE-L@midrange.com; Ken Killian
Subject:        Getting record count from OPNQRYF

Is there a way within a CL program to get the record count from an OPNQRYF 
statement without having to read and count every record in the HLL program?

Thanks,

Bob Luebbe

 << File: ATT00005.htm >> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---