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
![[NEWSboard IBMi Forum]](images/duke/nblogo.gif)



Mit Zitat antworten
Bookmarks