Hello Brian,
First of all you could have a look at SFPURGER. It's located on the MAINT
193 disk. Have a look at the CMS Commands and utilities reference, Chapte
r
3.8.
On a few systems we do not use SFPURGER so we are running an exec there.
Or rather, just a pipe statement.
'PIPE (END ?) CP Q RDR ALL ISO DIST',
'| drop 1 ',
'| specs /RDR/ 1 1-* nw',
'| a: faninany',
'| nlocate w9 /OPEN-/',
'| c: locate w13 /DVH/',
'| b: faninany',
'| specs /PURGE/ 1 w2 nw w1 nw w3 nw',
'| CP',
'| count lines',
'| specs /SBM_CLSP:/ 1 1-* nw /Files deleted from spooling./ nw',
'| >> logfile log a,
'? CP Q PRT ALL ISO DIST',
'| drop 1 ',
'| specs /PRT/ 1 1-* nw',
'| a:',
'? CP Q PUN ALL ISO DIST',
'| drop 1 ',
'| specs /PUN/ 1 1-* nw',
'| a:',
'? c:',
'| d: locate 5.8 /SBM /',
'| locate w5 /CON/',
'| sort 44.17 D',
'| drop 14',
'| b:',
'? d:',
'| e: locate 5.8 /OPERATOR/',
'| locate w5 /CON/',
'| sort 44.17 D',
'| drop 14',
'| b:',
'? e:',
etc..., you get the idea.
Basically, list all spoolfiles (RDR, PRT, PUN) and select all files you
want to delete. At the end we specify users and select how many of the
files are to be kept. You can code some kind of selection inside the
locate/sort/drop sequence. I did not have the time yet to make something
fancy to replace sfpurger functions. (Like a real select based on date or
some config file like SFPURGER has). As for SBM or OPERATOR we want to
keep 2 weeks of consolelogs. The consolelog is closed daily at 00:00 for
these users.
Regards, Berry.
