From: Brian Tillman [tillman_brian@notnoone.notnohow.com]
Sent: Monday, August 12, 2002 4:28 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: VMSMAIL_PROFILE clean up

>Are there any programs or methods that can be use to clean up
>VMSMAIL_PROFILE.DATA of old users who have been deleted from SYSUAF?

I have a command procedure I downloaded called BAD_MAIL_NAMES.COM that
compares VMSMAIL_PROFILE.DATA entries with entries from SYSUAF and writes a
command procedure containing VMS Mail REMOVE commands for all mail names not
in the authorization file.  Here's the starting comments.  Sorry for any
line wraps.

The file can be found in
ftp://ftp.process.com/vms-freeware/fileserv/mailuaf_rlb.zip

$ if f$mode() .eqs. "BATCH" then set noverify
$!--------------------------------------------------------------------------
----
$!
$! Bad_Mail_Names.Com
$!
$!      p1 =   NOCOM            shows non-existent usernames and forwarding
address
$!         =   anything else    creates remove-bad-mail-names.com as part of
the
$!                              mail message
$!
$! Examine the VMSMAIL_PROFILE.DAT file and compare it to a list of valid
$! VMS users.  Report any non-existent users in the VMSMAIL_PROFILE file,
$! showing their mail forwarding address, since using VMSMAIL_PROFILE info
for
$! forwarding _is_ a legitimate use of an entry without a corresponding
$! SYSUAF username.
$!
$! By default, within the mail meassage that "bad-mail-names.com" sends you
$! is the command procedure "remove-bad-mail-names.com".  Extract it from
$! mail and delete the usernames you want to keep.
$!
$! Lines with site-specific definitions are preceded with a comment line
$! containing $!!!!
$!
$! 18-Jul-1990 Chris Simon
$!
$! Modifications:
$!
$! 23-Aug-1990  Bruce Dow
$!              STS Consultants, Ltd.
$!              Northbrook, IL
$!              (708) 272-6520          actual STS office
$!              (217) 328-7221          home telecommuter
$!
$!              adapted to use the features of VMS 5.* mail, so that the
$!              mailuaf.com is not required.  less site-specific definitions
$!              needed.
$!
$! 24-Aug-1990  Bruce Dow
$!
$!              format "non-existent" usernames as
remove-bad-mail-names.com.
$!
$! 22-May-1992  Chris Simon
$!              FMC Corp., Dallas, TX
$!
$!              fix for variable number of header lines in mailuaf.lis.
$!--------------------------------------------------------------------------
----
$!