Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!columbia!rutgers!sri-spam!ames!ucbcad!ucbvax!ALASKA.BITNET!FXHELP
From: FXHELP@ALASKA.BITNET (UAF Computer Support Group)
Newsgroups: comp.os.vms
Subject: re: non-hostile security brick sh-thouse...
Message-ID: <8706031057.AA20296@ucbvax.Berkeley.EDU>
Date: Mon, 1-Jun-87 15:50:00 EDT
Article-I.D.: ucbvax.8706031057.AA20296
Posted: Mon Jun  1 15:50:00 1987
Date-Received: Sat, 6-Jun-87 18:59:50 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 34

You could easily set up your own LOGIN to do that, or it could be added
to the system-wide login com.  Following is a rather lengthy example from
my own LOGIN.COM:

$       count = 0
$       name    :=      "fxhelp"
$       set message/noid/nosev/nofac/notext
$ next:
$       on warning then goto duplicate
$       set process/name="''name'"
$       goto continu
$ duplicate:
$       count = count + 1
$       name    =       name + " "
$       goto next
$ continu:
$       set message/text
$       on warning then exit
$       if (count.eq.0) then goto ok
$       outstring := "You are signed on "'count'" other time"
$       if (count.eq.1) then goto prt
$       outstring = outstring + "s"
$ prt:
$       write sys$output outstring
$ ok:
 ...
(Don't look at me like that!  I guess that's what happens when you have an
8800 to waste -- besides, I only sign on once, in the morning!)
Anyway, have fun!

*************************************************************************
* Jo Knox / UAF Computer Support Group / University of Alaska Fairbanks *
*                                ``he never said a mumblin' word!''     *
*************************************************************************