From: hammond@not@peek.ppb.cpqcorp.net
Sent: Thursday, January 04, 2001 10:30 AM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: Suggestion for improvement for DECterm.


The following kludge is undoubtedly incomplete and imperfect, but it 
is in my LOGIN.COM and seems to work.  Offered for what it is worth.
[actually modified a bit for clarity.]

..
$ IF F$GETDVI("SYS$COMMAND","TRM")
$ THEN
$     DEVNAM = F$GETDVI("SYS$COMMAND","TT_PHYDEVNAM") - "_" - "_"
$     DEVNAM = F$EXTRACE(0,2,DEVNAM)
$     IF DEVNAM .EQS. "WT" THEN GOTO IS_DECTERM
$     IF DEVNAM .EQS. "TW" THEN GOTO IS_DECTERM
$     IF DEVNAM .EQS. "FT" THEN GOTO IS_DECTERM
$     IF DEVNAM .EQS. "RT" THEN GOTO IS_DECTERM
$     IF DEVNAM .EQS. "TN" THEN GOTO IS_DECTERM 
$ ENDIF
$ GOTO NOT_DECTERM
..

-- 
    Charlie Hammond -- Compaq Computer Corporation -- Pompano Beach  FL USA
       (hammond@not@peek.ppb.cpqcorp.net -- remove "@not" when replying)
      All opinions expressed are my own and not necessarily my employer's.