Hallo AleX,
hier ein CL Beispielprogramm:

CL program using RTVMBRD:

PGM *(&LIB &FILE &MBR)

/* GET NUMBER OF RECORDS IN A FILE MEMBER */
/* IF NO MEMBER IS SPECIFIED **FIRST IS USED */
/* IF RETRIEVE FAILS -000000001 IS RETURNED IN &RCDS */


DCL **&LIB ***CHAR 10
DCL **&FILE **CHAR 10
DCL **&MBR ***CHAR 10
DCL **&RCDS **CHAR 10
DCL **&RCDSN *DEC (10 0)

IF (&MBR *EQ ' ') (CHGVAR &MBR '*FIRST ')

RTVMBRD ***FILE(&LIB/&FILE) MBR(&MBR) NBRCURRCD(&RCDSN)
MONMSG ***(CPF3000 CPF9800) EXEC(CHGVAR &RCDSN -1)

CHGVAR *&RCDS *&RCDSN

ENDPGM