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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.