Wenns denn sein muss:

1) CRTDTAQ
DTAQ(QGPL/MYDTAQ) MAXLEN(128) SENDERID(*YES) AUT(*ALL)

2) CHGOUTQ
OUTQ(MYOLDOUTQ) DTAQ(QGPL/MYDTAQ)

3) CLProgrämmle mit Loop
DCL VAR(&DTAQ) TYPE(*CHAR) LEN(10) VALUE('MYDTAQ')
DCL VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE('QGPL')
DCL VAR(&PLEN) TYPE(*DEC) LEN(5 0) VALUE(128)
DCL VAR(&PARM) TYPE(*CHAR) LEN(128)
DCL VAR(&WAIT) TYPE(*DEC) LEN(5 0) VALUE(-1)
DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&USERNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
DCL VAR(&SPLFNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&OQNAME) TYPE(*CHAR) LEN(10)
CALL QRCVDTAQ PARM(&DTAQ &LIB &PLEN &PARM &WAIT)
CHGVAR VAR(&JOBNAME) VALUE(%SST(&PARM 13 10))
CHGVAR VAR(&USERNAME) VALUE(%SST(&PARM 23 10))
CHGVAR VAR(&JOBNBR) VALUE(%SST(&PARM 33 6))
CHGVAR VAR(&SPLFNAME) VALUE(%SST(&PARM 39 10))
CHGVAR VAR(&OQNAME) VALUE(%SST(&PARM 53 10))
CPYSPLF....

Gruß