[HECnet] Getting remote hostname in DCL?

[Sampsa Laine]

> On 26 Nov 2016, at 22:32, Brian Schenkenberger, VAXman- <system at TMESIS.COM> wrote:
> 
> 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")’”


That does look a lot simpler! Thanks.

Sampsa


-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 841 bytes
Desc: Message signed with OpenPGP using GPGMail
URL: <http://lists.sonic.net/pipermail/hecnet-list/attachments/20161126/0f3c65a3/attachment.sig>