Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!ames!ucbcad!ucbvax!TAMCHEM.BITNET!bmw6957
From: bmw6957@TAMCHEM.BITNET.UUCP
Newsgroups: comp.os.vms
Subject: RE: Physical terminal from DCL
Message-ID: <8706142051.AA27761@ucbvax.Berkeley.EDU>
Date: Sun, 14-Jun-87 16:51:31 EDT
Article-I.D.: ucbvax.8706142051.AA27761
Posted: Sun Jun 14 16:51:31 1987
Date-Received: Mon, 15-Jun-87 05:58:53 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 6

You can get the physical terminal name in DCL with the following:

    Phys_Term = F$GetDVI(F$GetJPI("pid","TERMINAL"),"TT_PHYDEVNAM")

Brad Wilson
Texas A&M University