Hallo,

hier ist ein kleines CL-Programm für die Aufgabe:

PGM
DCLF FILE(QADSPOBJ)
DSPOBJD OBJ(LIBNAME/*ALL) OBJTYPE(*FILE) +
DETAIL(*SERVICE) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/OBJD)
OVRDBF FILE(QADSPOBJ) TOFILE(QTEMP/OBJD)
LOOP: RCVF
MONMSG MSGID(CPF0864)
EXEC(GOTO CMDLBL(ENDE))
IF COND(&ODOBAT *EQ 'PF ') THEN(DO)
RGZPFM FILE(&ODLBNM/&ODOBNM)
ENDDO
GOTO CMDLBL(LOOP)

ENDE: ENDPGM

Das Programm erstellt eine Datei in der Bibliothek QTEMP. Dort wird die OBJD aller Objekte vom Typ *File erstellt.

Diese Datei kann man dann durchlesen und bei allen Datensätzen mit dem Atrribut PF wird der RGZPGM gestartet.

Gruss
akorb