We run an AJS (Advanced Job Scheduler) job daily that purges all outqs based on the number of days set for that outq.
The default is 45 days for each outq.
999 implies don't purge anything from that outq.
If an outq needs a different value we store the number of days in User defined option . . . . . .
User defined option . . . . . . '10 '
We use the system API QSPROUTQ to retrieve the value stored in the User defined option field.
The command to purge the outq is TAATOOLS command DLTOLDSPLF, based on the Retain days for that outq.
CALL PGM(QSPROUTQ) PARM(&RCVINF &RCVLEN &FORMAT +
&OBJLIB &APIERR) /* Retrieve Output Queue +
Information (QSPROUTQ) API */
CHGVAR VAR(&FILEN) VALUE(%SST(&RCVINF 93 4)) /* +
User defined option-No. fo Files +
(Reports) in the Outq */
IF COND(&FILEN *EQ &HEX0) THEN(GOTO +
CMDLBL(READ)) /* If Outq has 0 Spooled +
Files, then skip */
CHGVAR VAR(&RETOFFA) VALUE(%SST(&RCVINF 1041 4)) /* +
Offset User defined option-Purge Days */
DLTOLDSPLF OUTQ(&ODLBNM/&ODOBNM) FILE(*ALL) USER(*ALL) +
EXCLUDEUSR(*NONE) JOB(*ALL) +
EXCLUDEJOB(*NONE) FORMTYPE(*ALL) +
USRDTA(*ALL) STS(*ALL) ASPDEV(*) +
RETAINDAYS(&RETENTION) QPJOBLOG(999) +
QPSRVDMP(999) MOVTOOUTQ(*LIBL/*NONE) +
ACTION(&ACTION) COMPDATE(*CRTDAT) +
SUMMARY(*YES)
Paul
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of gio.cot via MIDRANGE-L
Sent: Friday, November 12, 2021 4:32 AM
To: 'Midrange Systems Technical Discussion' <midrange-l@xxxxxxxxxxxxxxxxxx>
Cc: gio.cot <gio.cot@xxxxxxxxxxx>
Subject: Keep spool file in outq QEZDEBUG
Hi all
I would like to keep the spool file in outq QEZDEBUG for one year but
instead i would like the keep the spool file in outq QEZJOBLOG for one
week .. is it possible to manage this situation ?
Thanks in advance
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
