From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  8-AUG-1989 17:29
To:	MRGATE::"ARISIA::EVERHART"
Subj:	ALFMAINT -- Yes you can

Message-Id:  <8908082123.AA02353@crdgw1.ge.com>
Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue,  8 AUG 89 13:47:34 PDT
Received: from CORNELLC.cit.cornell.edu by KL.SRI.COM with TCP; Tue, 8 Aug 89 13:40:51 PDT
Received: from UNCWIL.BITNET by CORNELLC.cit.cornell.edu (IBM VM SMTP R1.2.1MX) with BSMTP id 3318; Tue, 08 Aug 89 16:39:15 EDT
Date: Tue, 8 Aug 89 16:24 EST
From: Systems Programming <SYSMIKE%UNCWIL.BITNET@CORNELLC.cit.cornell.edu>
Subject: ALFMAINT -- Yes you can
To: INFO-VAX@KL.SRI.COM
X-Vms-To: IN%"INFO-VAX@KL.SRI.COM"

I got the following from DEC, and have tried it -- it works
for autologin from a DECSERVER 200 set as a dedicated service.
I think this for VMS 5.0-1 and up:


Modify ALFMAINT.COM to support a server/port format as the terminal
name.  Modify the following code:

  $do_term:
  $say ""
  $say "Enter the name of the terminal that you would like to set"
  $say "for automatic login, or a blank line or EXIT to exit."
  $say ""
  $ask term "Terminal (ddcu)? "
  $if term .eqs. "" then goto done
  $if f$locate(term,"EXIT") .eq. 0 then goto done
  $term = term - "_" - "_" - "_" - ":"
  $term = term + ":"
  $if .not. f$getdvi(term,"EXISTS") then goto e_notaterm
  $term = f$getdvi(term,"FULLDEVNAM")
  $if term .eqs. "" then goto do_term
  $short_term = f$getdvi (term, "DEVNAM") - "_" - "_" - "_"
  $phy_term = f$getdvi (term, "TT_PHYDEVNAM") - "_" - "_" - "_"
  $term = term - short_term + phy_term
  $if f$getdvi(term,"TRM") then goto get_user
  $e_notaterm:

to appear as follows:

  $do_term:
  $say ""
  $say "Enter the name of the terminal that you would like to set"
  $say "for automatic login, or a blank line or EXIT to exit."
  $say ""
  $ask term "Terminal (ddcu)? "
  $if term .eqs. "" then goto done
  $if f$locate(term,"EXIT") .eq. 0 then goto done
  $!
  $! modification to permit server/port terminal port names
  $!
  $term = f$edit(term,"UPCASE,TRIM")
  $!
  $! if the terminal name contains a slash, assume that it is a lat terminal
  $! port and server and therefore it must be valid...
  $!
  $if f$locate("/",term) .ne. f$length(term) then goto get_user
  $!
  $! end of modification to permit server/port terminal port names
  $!
  $term = term - "_" - "_" - "_" - ":"
  $term = term + ":"
  $if .not. f$getdvi(term,"EXISTS") then goto e_notaterm
  $term = f$getdvi(term,"FULLDEVNAM")
  $if term .eqs. "" then goto do_term
  $short_term = f$getdvi (term, "DEVNAM") - "_" - "_" - "_"
  $phy_term = f$getdvi (term, "TT_PHYDEVNAM") - "_" - "_" - "_"
  $term = term - short_term + phy_term
  $if f$getdvi(term,"TRM") then goto get_user
  $e_notaterm:

This modification will allow you to enter a terminal name in the
format "server/port" in response to ALFMAINT.COM's Terminal prompt.

Mike Sheehan            (SYSMIKE@UNCWIL)        BITNET (Preferred)
Systems Programming     (WMIKE@ECSVAX)          Other nets
UNC-Wilmington
Wilmington, NC 28403    (919)395-3047           If all else fails

Reparation, n. Satisfaction that is made for a wrong and deducted
from the satisfaction felt in committing it.