RE: # of records in a file

Deepak,

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