The following EXEC  can be run from the LISTSERV  userid to eliminate all
netwide SIGNOFF requests still in the reader.
 
The netwide DELETE function was removed from version 1.8a for a very good
reason, which has  been extensively documented about a  thousand times on
this  mailing list  and many  others (NODMGT-L,  TECHREP, etc).  This has
understandably upset a number of people who were using netwide DELETE and
were not  aware of  the problems  it created  on other  people's machines
because they were not impacted themselves.  Many times it was pointed out
to these  people that  it is  easy to  complain when  you're not  the one
getting the angry  phone calls from your manager and  paying the bill. In
particular people  were explicitly  warned not to  convert the  jobs into
netwide SIGNOFF  requests as  the resource  cost is  even higher  and the
response would be to disable  netwide SIGNOFF forever, leaving absolutely
no means of  action for the few reasonable emergencies  that one does get
from time to time. Unfortunately it seems that the CSGHSG5A staff decided
otherwise  and I  have already  had to  purge 713  X-DEL jobs  from their
systems to restore a decent level of service. This is exactly the kind of
thing  I love  to  see  happening on  a  Friday while  I  am  away for  a
conference. There are two solutions to the removal of netwide DELETE:
 
1. Install PMDF V4.2 or MX V3.3 and stop sending netwide DELETE jobs.
 
2. Stop sending netwide DELETE jobs.
 
If the community of sites that use but do not contribute resources to the
LISTSERV service persists in not behaving like good network citizens, the
sites that pay the CPU bills for the service will have no recourse but to
remove functionality that is too easily abused.
 
  Eric
 
/**/
 Address ''
 Trace off
 Parse Value Diag(8,'Q F *',80) with ':' nf .
 If ^Datatype(nf,'W') Then Exit
 
'PIPE (ENDCHAR %)',
     'CP' (nf+1)*81 'Q R ALL * |',
     'DROP 1                   |',
     'LOCATE /X-DEL     JOB/   |',
     'SPECS /PURGE RDR/ N WORD 2 NW |',
  'C: COUNT LINES              |',
     'CP',
'%',
     'C:                       |',
     'VAR PURGED'
 If purged == 0
  Then msg = 'No file purged.'
  Else msg = 'Purged' purged 'file'Word('s',1+(purged==1))'.'
 Address 'XEDIT' 'COMMAND MSG' msg
 If rc ^== 0 Then Say msg