On Fri, 12 Dec 2008 16:36:50 -0600 Mike Walter said:
>From a CLASS D userid (not usually a good thing for MAINT, but you can
>from MAINT usually enter: SET PRIV MAINT +D, and then when done CP STE
>PRIV MAINT -D), enter:
>PIPE CP Q RDR ALL ISO | > ALLSPOOL FILES A
>PIPE CP Q PRT ALL ISO | >> ALLSPOOL FILES A
>PIPE CP Q PUN ALL ISO | >> ALLSPOOL FILES A
>XEDIT the "ALLSPOOL FILES A" file, sort as you see fit, maybe by size,
>maybe by date, maybe by user - your call.
All the examples shown have used ALL, but if you are truely worried
about spool filling up, I'd suggest that rather than use ALL, you use
EXP (or TBL). That will show the size of the spool file in pages,
rather than records, and pages are what are used up. You have to deal
with the usage of K and M in the number of pages.
PIPE CP Q RDR EXP ISO | > ALLSPOOL FILES A
PIPE CP Q PRT EXP ISO | >> ALLSPOOL FILES A
PIPE CP Q PUN EXP ISO | >> ALLSPOOL FILES A
Or what I use is below, where cnt is the number of spool files.
(We don't have million page spool files, and we've never had
zero files of one kind, so both aren't handled) It records the
largest 20% spool files.
per = (0+cnt) % 5
size = 126*(3 + cnt)
'pipe (end ?) literal RDR | ' ,
'literal PRT | ' ,
'literal PUN | ' ,
'spec /Q / 1-2 1-3 3-5 / TBL/ 6-9 | ' ,
'cp' size ' | ' ,
'NFIND OWNERID| ' ,
'k: nlocate (80) /K/ |' ,
'spec 1-76 1 77-* 79 |' ,
'i: faninany |' ,
'SORT 77-80 D | ' ,
'TAKE' per '| ' ,
'> SPOOL 20PERCENT A' ,
'? k: |' ,
'spec 1-79 1 /000/ n |' ,
'i:'
