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 -------------------------------------------------------------------------------