[This note has been sent to the following InterNet address(es):
HP3000-L @ UTCVM.UTC.EDU
it has also been sent to the following JP Morgan address(es) :
      To : SSWPROD.OAS @ TRSSW
]
 
 
[Snipped various thoughts on the subject]
 
>One other thought - does the spooler send warnings to the console
>when the magic number (9999) is approaching?
 
>>No.  It might be a worthwhile addition, but as far as I know, the total
>>number of SPFDIR entries is not kept anywhere (it's an MPE symbol table,
>>accessed and managed by symbol table management routines.  Perhaps they
>>have that number stashed and a routine to retrieve it.  It's worth looking
>>into.
 
I have written a small command file to be called from a background job to avoid
the lockup that occurs when too many spoolfiles are encountered. I am happy to
share it here....
 
Call the command file SPOLCHEK from a job by doing :
 
:purge sptemp,temp >$null
:listspf @;status > sptemp
:spolchek < sptemp
 
The command file looks like the following :
 
setvar n finfo(hpstdin,"eof")
while setvar(n,n-1) >= 0 and len(setvar(sp_invar,rtrim(input()))) >= 0
  if pos("OUT FILES","!sp_invar") > 0
    setvar sp_semi pos(";","!sp_invar",2)
    setvar sp_equals pos("=","!sp_invar",2)
    setvar sp_files str("!sp_invar",sp_equals+2,sp_semi-(sp_equals+2))
    setvar sp_tot !sp_files
    if sp_tot >= 9000
      tellop  ** Currently !sp_tot Spoolfiles. Maximum is 10000 **
    endif
    deletevar sp_@
    return
  endif
endwhile
 
I have set it to check for more than 9000 spoolfiles and when it appears,
frantic spoolfile storing and purging takes place. Hope this helps.
 
Cheers,
John Dunlop ([log in to unmask])