[HECnet] Getting remote hostname in DCL?

[Brian Schenkenberger, VAXman-]

G. <gerry77 at mail.com> writes:

>On Sat, 26 Nov 2016 21:26:31 +0200, Sampsa Laine wrote:
>
>> Guys, what=E2=80=99s the DCL lexical for extracting the remote host and=
> username of=20
>> someone logged into my system over DECNET? I=E2=80=99m writing a script=
> that needs=20
>> the host + username of the person connecting to a captive account..
>
>REMPORT =3D F$GETDVI("TT:","TT_ACCPORNAM")
>REMNODE =3D F$ELEMENT(0,":",REMPORT)
>REMUSER =3D F$ELEMENT(2,":",REMPORT)

Why not just translate the logicals: SYS$REM_NODE and SYS$REM_ID?

$ WRITE SYS$OUTPUT "''F$trnlnm("SYS$REM_NODE")'"
$ WRITE SYS$OUTPUT "''F$trnlnm("SYS$REM_ID")'"

-- 
VAXman- A Bored Certified VMS Kernel Mode Hacker    VAXman(at)TMESIS(dot)ORG

I speak to machines with the voice of humanity.