Oder auch mit: DSPFD FILE(Bibliothek/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*SAVF) OUTFILE(Ausgabedatei)
Die einzelnen Sicherungsdateien in einer Bibliothek kannst du zum Beispiel so bearbeiten (Angaben ohne Gewähr). Anstelle des DSPSAVFs müßtest du dann die API mit den entsprechenden Werten aufrufen.
Code:
PGM
DCLF FILE(QAFDSAV)
MONMSG MSGID(CPF0000)
DLTF FILE(QTEMP/SAVFLIST)
OVRDBF FILE(QAFDSAV) TOFILE(QTEMP/SAVFLIST)
DSPFD FILE(QGPL/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) +
FILEATR(*SAVF) OUTFILE(QTEMP/SAVFLIST)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
LOOP: RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
DSPSAVF FILE(&SALIB/&SAFILE)
GOTO CMDLBL(LOOP)
ENDPGM: DLTF FILE(QTEMP/SAVFLIST)
ENDPGM
Bookmarks