Find the Tna device after by a telnet/create

[labadie_1]

Hello

Not a critical problem :-)

it is possible in a procedure to test if a process listens on a port from a remote node by issuing a command like
$ telnet/create alpha 515
to check LPD is Ok on this node.

This creates a TNA device that the procedure should delete.
I can log the output of this command to a file, and look for the TNA number like in
http://dcl.openvms.org/stories.php?story=03/09/23/7962305

I can find an available TNA with
f$getdvi("tna222","exists")
and then
$ telnet/create alpha 515 222
and telnet/delete 222

I look for a better way.
Is there a logical or symbol or anything giving the tna number just created after a
$ telnet/create ..., like the symbol $entry after a submit, or any other hack ?

Thanks for any hint

[Karl Rohwedder · Accepted solution]

Labadie,

it seems the symbol $TELNET_DEVICE contains the created TNA device string (at least under V8.2/V8.3).

regards Kalle

[labadie_1]

Great !

It even works with Alpha 7.3-2

As they Read the funny manual :-)

[IFX_1]

It even works in OpenVMS V7.2-1H1.
I try a couple of scripts to run in this OS version and $TELNET_DEVICE works.