$	!@RRL
$	!
$	On Error Then GoTo Quit
$	Put	= "Write sys$output"
$	define sys$output mail_to_sysman.txt
$	v = f$verify(0)
$	!
$	Open/Write f msg$$$.$$$msg
$	Write f "Hi !"
$	Write f "Your Post Box is cleaned from messages older than 1 week."
$	Write f "For any problem call your System Manager ""Ruslan R. Laishev"" <laishev@host1>."
$	Write f ""
$	Write f "---"
$	Write f "@RRL,Best regards !"
$	Close f
$	!
$Loop:  !
$     	MailFile = F$SEARCH("VMSUsers$Top:[000000...]mail.mai")
$     	If MailFile .EQS. "" THEN GoTo Quit
$	MailDir = f$locate ("MAIL.MAI",MailFile)	
$	MailDir = f$extract(0,MailDir,MailFile)
$	MailUser= f$file_attrib(MailFile,"UIC")
$	MailUser = f$element(1,"[",MailUser)
$	MailUser = f$element(0,"]",MailUser)	
$	!
$!	Delete 'MailDir'mail$*.mai;1 /before="-7-00:00" /nolog /noconf
$	!
$	Open/Write f msg$$$.$$$com
$	Write f "$Mail"
$	Write f "set file ''MailFile'"
$	Write f "select mail"
$	Write f "delete /all"
$	Write f	"compress" 
$       Write f	"exit"
$       Write f	"$"
$	Close f
$       @msg$$$.$$$com
$	!
$	Delete 'MailDir'mail.old;*   /before="-7-00:00" /nolog /noconf
$	Mail msg$$$.$$$msg 'MailUser'
$	!
$	GoTo Loop
$Quit:
$	!
$	!Submit /nolog /noprint /restart sys$login:MailPurge.Com /after="+7-00:00"
$	v = f$verify(v)
$	Deass sys$output
$	Mail mail_to_sysman.txt laishev
$	Delete /nolog /noconf msg$$$.$$$msg;*
$	Delete /nolog /noconf msg$$$.$$$com;*
$	Delete /nolog /noconf mail_to_sysman.txt;*
$       exit