Spoolfiles von einer QUTQ zur anderen OUTQ verschieben

[Fuerchau]

Nein, leider nicht.
Du musst dir per Spool-API die Spools auflisten lassen und dann jede enzelne dann verschieben.

[Robi]

Warscheinlich ist das bekannt aber trotzdem ...

Bei der Handarbeit kannst du zumindest alle gleichzeitig mit 2 markieren und auf der Komandolinie

Outq(neueOQ)

eintippen

[Fuerchau]

Und wer soll das alle paar Minuten machen ?

Andererseits sollen ja wohl alle Spools verschoben werden. Da stellt sich schon die Frage, warum denn die Spools nicht gleich in der neuen Outq erstellt werden ?

[RobertMack]

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ß

[Fuerchau]

Die DTAQ habe ich deshalb weggelassen, da hier nur RDY-Spools berücksichtigt werden.
Per API bekommst du aber alle Spools.

[XMan]

Danke an alle!

Somit muss ich mir wohl oder übel etwas anderes einfallen lassen.

Ich hätte dies nur deshalb benötigt, da ich testweise eine Druckerumstellung machen kann ohne die originale DEVD und somit die OUTQ ändern zu müssen, und noch dazu alle Benutzeranpassungen zu überarbeiten.

Dennoch danke für Eure Antworten.

Gruß
XMan