GELÖST: IFS-CHGOWN

[FNeurieser]

Hallo allerseits,

gibt es eine einfache Möglichkeit den Eigner eines IFS-Verzeichnisses zu ändern inklusive aller Unterordner?

Danke schon mal für Rückmeldungen.

LG
Franz-Georg

[Robi]

/Meinikat *CAT &LIB durch deinen Pfad ersetzen

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

[FNeurieser]

Danke, funktioniert super!