RE: # of records in a file

["Guy Henza" <guyhenza@xxxxxxxxxxx>]

Deepak,

I had to do this exact same thing to validate a warehouse typed in to a 
display file.

OPNQRYF    FILE((whfile1)) QRYSLT(' (SWH *EQ ''' +
            *CAT &WHSE *CAT ''') *OR  (DWH *EQ ''' +
            *CAT &WHSE *CAT ''') ')
CPYFRMQRYF FROMOPNID(whfile1) TOFILE(QTEMP/whfile2) +
            MBROPT(*REPLACE)
RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +
            MSGID(&MSGID)
IF         COND(&MSGID *EQ CPC2957) THEN(DO)
          CHGVAR     VAR(&IN34) VALUE('1')
          CLOF       OPNID(whfile1)
          GOTO       CMDLBL(LOOP)
          ENDDO      /* MSGID(CPC2957) */
CLOF       OPNID(whfile1)

Hope this helps.


Guy

> # of records in a file
> Hi
>
> I have a CL in which I copy records from an OPNQRYF to another file. I
> want
> to check if any records are copied. How can I check?
> I thought of DSPFD (*MBRLST) where MLNRCD gives # of records but this
> outfile has to be created using DDS, cannot be created runtime.
> The other option, I thought of is DCLF and RCVF. If EoF for RCVF, the file
> is blank. But I have to test this for multiple files and I can declare
> only
> 1 file in CL.
>
> Any suggestions?
>
> Deepak

_________________________________________________________________
Is your PC infected? Get a FREE online computer virus scan from McAfee® 
Security. http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963