Fichier non vide

[steph]

Bonjour,

Comment scanner une bibliotheque pour lister tous les Fichiers non vide.

Merci.

[GAPIII]

Code:

PGM   &LIB

DCL    &LIB *CHAR 10

DCLF FILE(QAFDMBRL)

DSPFD FILE(&LIB/*ALL) TYPE(*MBRLIST) OUTPUT(*OUTFILE) FILEATR(*PF) OUTFILE(QTEMP/FIC)
OVRDBF FILE(QAFDMBRL) TOFILE(QTEMP/FIC)

LOOP:
RCVF
MONMSG CPF0864 EXEC(GOTO EOF)
         /* mettre ici le traitement à faire pour chaque fichier */
         /* MLFILE = nom du fichier */
         /* MLNAME = nom du membre de fichier  */
         /* MLNRCD = nombre d'enregistrements du membre */
ENDDO
GOTO LOOP

EOF:
ENDPGM

[steph]

Merci