/Meinikat *CAT &LIB durch deinen Pfad ersetzen
Code:
PGM (&USR &LIB)
DCL VAR(&USR) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&QSHC) TYPE(*CHAR) LEN(25)
DCLF QTEMP/T_IFS
CRTPF QTEMP/T_IFS RCDLEN(1000)
CHGVAR VAR(&QSHC) VALUE('FIND /MEINIKAT/' *CAT &LIB)
OVRDBF FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)
STRQSH CMD(&QSHC)
DLTOVR FILE(STDOUT) LVL(*JOB)
OVRDBF DATEI QTEMP/T_IFS
START: RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))
CHGOWN &T_IFS NEWOWN(&USR)
GOTO START
ENDE: DLTOVR FILE(DATEI)
Robi
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
Bookmarks