|
Gad,
We used to use DLTEXPSPLF, but too slow and too much maintenance as you
have noted.
We purge all spoolfiles daily by using an AJS job.
Very fast, runs in under 1 minute.
We use 45 days as a default retention for each outq. If an outq needs to
kept longer/or shorter we use that value instead for that outq.
DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*OUTQ) DETAIL(*FULL) OUTPUT(*OUTFILE
CLP below
Read from work file created above
Retrieve all spoolfiles of each outq using IBM API QSPROUTQ
CALL PGM(QSPROUTQ) PARM(&RCVINF &RCVLEN &FORMAT +
&OBJLIB &APIERR) /* Retrieve Output Queue +
Information (QSPROUTQ) API */
TAATOOL CMD
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)
Go to read
If interested, I can post or send you the entire source.
Paul
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Gad
Miron
Sent: Sunday, April 05, 2020 7:01 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: CHGCMDDFT CRTPRTF
Hello pundits
We run weekly a DLTEXPSPLF to purge old spool files.
This method relies on (all) spool files having an expiration date so I
changed all PRTFs to have EXPDATE(*DAYES) and DAYS(45) and now all spool
files are stamped with an expiration date upon creation.
However,
not all developers remembers/cares to specify EXPDATE/DAYS parameters
when creating/changing PRTFs and so there are now spool files taht are not
marked with expiration date.
So I turned to CHGCMDDFT for CRTPRTF.
I've found out that you can do
CHGCMDDFT CMD(CRTPRTF) NEWDFT('EXPDATE(*DAYS)') but you *cannot* do
CHGCMDDFT CMD(CRTPRTF) NEWDFT('DAYS(30)') you get a "No default value
exists for keyword DAYS" MSG
Anyone willing/able to advise?
TIA
Gad
--
T*****************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.