Here's one I use to reduce the log volume. You'll need to change some of the
literals to suit your installation.
 
Andy Hooper
--- File: LSVLOG XEDIT --------------------------------------------------------
/**/
    'SET ARBCHAR ON ?'
    'SET CASE MIXED RESPECT'
    'SET SHADOW OFF'
  /*'EXCLUDE /LSV$FORW/'*/
    'EXCLUDE / Processing file ? from/'
    'EXCLUDE / From LISTSERV@?: DIST/'
    'EXCLUDE / Distributing mail/'
  /*'EXCLUDE / Mail distributed to /'*/
    'EXCLUDE / Mail delivered to /'
    'EXCLUDE / Mail posted via BSMTP to /'
    'EXCLUDE / Done - ?outbound file/'
    'EXCLUDE / Distributing file/'
    'EXCLUDE / File ? distributed to /'
    'EXCLUDE / Sent information mail to /'
    'EXCLUDE / FILE ? FROM RSCS/'
    'EXCLUDE /RDR FILE ? SENT FROM MAILER/'
    'EXCLUDE / Mail forwarded to LISTSERV@'
  /*'EXCLUDE / Mail was DISTRIBUTEed to /'*/
  /*'EXCLUDE / Done - ? job/'*/
    'EXCLUDE / File ? JOB" from LISTSERV@? has been sent to you/'
    'EXCLUDE / From LISTSERV@?: X-FOR ? UNSUB/'
    'EXCLUDE / From LISTSERV@?: X-FOR ? SIGNOFF/'
    'EXCLUDE / SIGNOFF *?FWDED=/'
    'EXCLUDE / UNSUB *?FWDED=/'
    'EXCLUDE / DELETE *?NETWIDE/'
    'EXCLUDE / From LISTSERV@?: X-SUPD /'
    'EXCLUDE / From LISTSERV@?: X-LUPD /'
    'EXCLUDE /> CKS /'
    'EXCLUDE /> REP /'
    'EXCLUDE /> HDR /'
    'EXCLUDE /> DEL /'
    'EXCLUDE / GLOBLIST FILE has been successfully updated/'
    'EXCLUDE / RSCS message: /'
    'EXCLUDE / <LMON> Link ? now operates in /'
    'EXCLUDE / Link ? has been in /'
    'EXCLUDE / STOPped and re-STARTed./'
    'EXCLUDE / Executing WAKEUP event: &01:00 CP SMSG RSCSV2 START QUCDN/'
    'EXCLUDE / Job ? is being suspended (Prime=QUIETNO)./'
    'SET ZONE 1 3'
    'EXCLUDE /> +/'
    'SET ZONE 1 *'
    exit
    'EXCLUDE /(VIA) HOST(/'
    'EXCLUDE / HOST(79/'
    'EXCLUDE />>> ? peered lists/'
    'EXCLUDE /PASCAL run-time environment lost - acquiring a new one.../'
-------------------------------------------------------------------------------
 
--- File: EXCLUDE XEDIT -------------------------------------------------------
/*- Converse of ALL -*/
    trace n
    parse source . . . . . myname .
 
    argstring = arg(1)
    push argstring
    'MACRO PARSE 1 TARGET'
    if rc ^= 0 then do
         ret = rc
         'COMMAND EMSG EXCLUDE Invalid operand :' argstring
         'COMMAND CMSG' myname argstring
         exit ret
    end
    pull parseCount
    if parseCount ^= 1 then do
         'COMMAND EMSG EXCLUDE Invalid operand :' argstring
         'COMMAND CMSG' myname argstring
         exit 5
    end
    pull targetStart targetLength
    target = substr(argstring,targetStart,targetLength)
 
    'COMMAND PRESERVE'
    'COMMAND SET SCOPE DISPLAY'
    'COMMAND SET DISPLAY 0 0'
    'COMMAND SET VERIFY OFF'
    'COMMAND SET WRAP OFF'
    'COMMAND TOP'
    'COMMAND LOCATE' target
    if rc ^= 0 then do
         ret = rc
         if rc = 1 then 'COMMAND EMSG EXCLUDE Target not found'
         'COMMAND CMSG' myname target
         'COMMAND RESTORE'
         'COMMAND TOP'
         exit ret
    end
    'COMMAND SET MSGMODE OFF'
    'COMMAND SET SELECT 1 1'
    foundCount = 1
    do forever
         'COMMAND -1 LOCATE' target
         if rc ^= 0 then leave
         foundCount = foundCount + 1
         'COMMAND SET SELECT 1 1'
    end
    'COMMAND TOP'
    'COMMAND RESTORE'
    'COMMAND SET DISPLAY 0 0'     /* must repeat after RESTORE */
    'COMMAND SET SCOPE DISPLAY'
    'COMMAND MSG' left('EXCLUDEd' foundCount target,75)
    exit
-------------------------------------------------------------------------------