Re: How to get count of number of records in a file.

[Raul A Jager <raul@xxxxxxxxxx>]

This CL program will return the nuber of records for the file.

*************** Principio de datos ************************************
0001.00              PGM PARM(&NAME &LIBR &SIZE)
0002.00              DCL        VAR(&NAME) TYPE(*CHAR) LEN(10)
0003.00              DCL VAR(&LIBR) TYPE(*CHAR) LEN(10)
0004.00              DCL        VAR(&SIZE) TYPE(*DEC) LEN(10) VALUE(0)
0005.00              DCL        VAR(&NBRCURRCD) TYPE(*DEC) LEN(10) VALUE(0)
0006.00              DCL VAR(&NBRDLTRCD) TYPE(*DEC) LEN(10) VALUE(0)
0007.00              RTVMBRD    FILE(&LIBR/&NAME) NBRCURRCD(&NBRCURRCD) +
0008.00                           NBRDLTRCD(&NBRDLTRCD)
0009.00              MONMSG     MSGID(CPF9812) EXEC(DO) /* 'Archivo no esta' */
0010.00                    CHGVAR     VAR(&SIZE) VALUE(-1)
0011.00                    RETURN
0012.00                    ENDDO
0013.00              CHGVAR     VAR(&SIZE) VALUE(&NBRCURRCD + &NBRDLTRCD)
0014.00              ENDPGM
        ****************** Fin de datos ***************************************

Venkateshwar Venkataraman wrote:

> This is a multi-part message in MIME format.
> --
> --
> [ Picked text/plain from multipart/alternative ]
> Is there any way I can find out the number of records in a PF from a CL 
>Program.
>
> Regds,
> Venky
>