RE: Multiple Member File...

[Mark Allen <allenmark@xxxxxxxx>]

EXAMPLE:

RTVMBRD    FILE(DIRAHLD) NBRCURRCD(&NUMRCD)
IF         COND(&NUMRCD > 0) THEN(DO)
CPYF       FROMFILE(DIRAHLD) TOFILE(DIRAHLD_PR) +
             MBROPT(*REPLACE) CRTFILE(*YES)
ENDDO


Mark Allen
I.S. Manager
Wilkes Telephone & Electric
A Dycom Company
Phone: (706) 678-9565
Email: allenmark@nu-z.net
http://www.nu-z.net




:-----Original Message-----
:From: rpg400-l-admin@midrange.com
:[mailto:rpg400-l-admin@midrange.com] On Behalf Of Jeff Clouse
:Sent: Thursday, February 14, 2002 3:23 PM
:To: 'rpg400-lmidrangecom'
:Subject: Multiple Member File...
:
:
:--
:
:Hello all...
:
:I have a question... I have a file which has multiple members
:that are created and removed constantly.
:
:Is there any way to check for a member that has Zero records
:in it?   Can this be checked though a CL program or a RPG
:program?  I know I can do a 'DSPFD' interactively, and see
:which members have no records, but am looking for a way for a
:program to do this for me.
:
:Any ideas?
:
:Thanks,
:
:Jeff
:
:--
:[ Content of type application/ms-tnef deleted ]
:--
:
:_______________________________________________
:This is the RPG programming on the AS400 / iSeries (RPG400-L)
:mailing list To post a message email: RPG400-L@midrange.com To
:subscribe, unsubscribe, or change list options,
:visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
:or email: RPG400-L-request@midrange.com
:Before posting, please take a moment to review the archives
:at http://archive.midrange.com/rpg400-l.
:
: