Re: members in a file

Other than the DSPFD's suggestions you will see maybe a RTVMBRD will work.

The following is a simple CL I used to do some testing.

PGM PARM(&FILE &LIB)

DCL &FILE *CHAR 10
DCL &LIB *CHAR 10
DCL &MBR *CHAR 10

/* Priming "read" */
RTVMBRD FILE(&LIB/&FILE) MBR(*LASTMBR) RTNMBR(&MBR)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&LIB +
*TCAT '/' || &FILE *BCAT '==> ' || &MBR) +
TOPGMQ(*EXT) MSGTYPE(*INFO )
LOOP:
RTVMBRD FILE(&LIB/&FILE) MBR(&MBR *PRV) RTNMBR(&MBR)
MONMSG MSGID(CPF3049) EXEC(GOTO CMDLBL(DONE))
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&LIB +
*TCAT '/' || &FILE *BCAT '==> ' || &MBR) +
TOPGMQ(*EXT) MSGTYPE(*INFO )
GOTO LOOP
DONE:
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('* * * * +
End of List * * * *') TOPGMQ(*EXT) +
MSGTYPE(*INFO)

END:
ENDPGM


Bryan


Hatzenbeler, Tim said the following on 12/27/2007 12:56 PM:

Is there a table, I can SQL, that contains the member names of a pf-src file?

Thanks, Tim


------------------------------------------------------------------------------
This e-mail message, including any attachments, is for the
sole use of the intended recipient(s) and may contain confidential or privileged information. Any unauthorized
review, use, disclosure or distribution is prohibited. If
you are not the intended recipient, please contact the sender by reply e-mail and destroy the message.


==============================================================================