Hallo nochmal, hab's gefunden:

PGM
/* VOR DER ÜBERSETZUNG AUSFÜHREN: */
/* CRTPF FILE(QTEMP/TMPFILE) RCDLEN(132) */

DCL VAR(&DIR#) TYPE(*CHAR) LEN(15) +
VALUE('/test_dir/*')
DCL VAR(&DIR) TYPE(*CHAR) LEN(15) +
VALUE('/test_dir/')
DCL VAR(&LNKOBJ) TYPE(*CHAR) LEN(80)
DCLF FILE(TMPFILE)

DSPLNK OBJ(&DIR#) OUTPUT(*PRINT) OBJTYPE(*STMF) +
DETAIL(*NAME) DSPOPT(*ALL)

CRTPF FILE(QTEMP/TMPFILE) RCDLEN(132)
MONMSG MSGID(CPF0000)

CPYSPLF FILE(QSYSPRT) TOFILE(QTEMP/TMPFILE) +
SPLNBR(*LAST) TOMBR(*FIRST)

DLTSPLF FILE(QSYSPRT) SPLNBR(*LAST) SELECT(*CURRENT +
*ALL *ALL DSPLNK)

LOOP1: RCVF RCDFMT(*FILE)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))

IF COND(%SST(&TMPFILE 2 17) *NE +
'Objektverbindung ') THEN(GOTO CMDLBL(LOOP1))

LOOP2: RCVF RCDFMT(*FILE)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))

CHGVAR VAR(&LNKOBJ) VALUE(&DIR *TCAT %SST(&TMPFILE +
2 50))
CHGAUT OBJ(&LNKOBJ) USER(*PUBLIC) DTAAUT(*RWX) +
OBJAUT(*ALL)
MONMSG MSGID(CPF0000)
GOTO CMDLBL(LOOP2)

ENDE: ENDPGM