| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 2151.1 | | SMAUG::MENDEL | I don't want to burn in Paradise! | Fri Jan 26 1990 16:43 | 20 |
| I think I had this same problem.
What you need to do is execute a SET DISP/CREATE in, how shall I say it,
the *new* process - the one who's terminal is the new DECTERM window.
I put this in my login.com from the accounts I create/term from:
$ if f$loc("TWA",f$trnlnm("TT")) .lt. 3
$ then
$ !
$ ! In a DECterm window
$ !
$ SET DISPLAY/CREATE
$ SET TERMINAL/PAGE=40
$ icon_name = f$trnlnm("SYS$NODE") - "_" - "::" + " " + f$proc()
$ window_name = icon_name + " ""I don't want to burn in Paradise!"" "
$ say escape,"]O21;",window_name,escape,"\"
$ say escape,"]O2L;",icon_name,escape,"\"
$
$ endif ! DECterm
|
| 2151.2 | And with just a bit more twiddling.... | QUILL::BNELSON | Caribbean Dreamin'.... | Mon Jan 29 1990 11:51 | 7 |
|
That fixes it for DECterms created on the workstation itself; for DECterms
created on the main nodes of my cluster, you need to add the /NODE=
<workstation> qualifier to the SET DISPLAY/CREATE command.
Brian
|
| 2151.3 | | SMAUG::MENDEL | I don't want to burn in Paradise! | Mon Jan 29 1990 13:03 | 18 |
| Ouch! Maybe your right. But this is weird.
For some reason, SET DISP/CREATE is good enough to run MOPS, which
is all I needed.
Anyway, to now fix *my* login .com, is there any logical name or
symbol that points to the node that the display is on? Then, I can do
a
$ SET DISPLAY/CREATE/NODE=''f$trnlnm("logical_name")'
or
$ SET DISPLAY/CREATE/NODE=''symbol_name'
So that I can automatically do what *should* automatically be done ...
Kevin
|
| 2151.4 | I don't know an easy way | QUILL::BNELSON | Caribbean Dreamin'.... | Tue Jan 30 1990 13:34 | 19 |
|
I figure I won't (I hope) be changing workstations too often, so I simply
hardcoded the name of my workstation in.
The closest I could come to what you'd need (and personally, I'd prefer
not to have the hardcoded version too!) is the DCL command SHOW DISPLAY.
What you *could* do is do this command and specify some tmp file as
SYS$OUTPUT, and parse it to find out the info you need. Problem is that's
a lot of work for little return, and what if VMS decides to change how
it looks in future verions (which they have been known to do)? You have
to go and rework that code.
Hopefully they will put in something in VMS sometime soon that will allow
DCL programs to get this info through a symbol or logical or lexical.
Brian
|
| 2151.5 | | AITG::DERAMO | Dan D'Eramo, nice person | Tue Jan 30 1990 19:05 | 36 |
| If the display device has already been set, then you do not
need to capture and parse the output of the SHOW DISPLAY
command. Instead use the undocumented [?] qualifier /symbols
to have the parameters of the display device assigned to
DCL symbols. See the example below.
However, the problem .0 and .3 mentioned was that the display
device wasn't set [except for the first created DECterm process]
and he needs to know what to use in the set display command.
Dan
$! Example use of show display/symbols
$ spawn/nosymbols
%DCL-S-SPAWNED, process DERAMO_1 spawned
%DCL-S-ATTACHED, terminal now attached to process DERAMO_1
$ show symbol *
$RESTART == "FALSE"
$SEVERITY == ""
$STATUS == ""
$ show display/symbols
Device: WSA1: [exec]
Node: 0
Transport: LOCAL
Server: 0
Screen: 0
$ show symbol *
$RESTART == "FALSE"
$SEVERITY == "1"
$STATUS == "%X00000001"
DECW$DISPLAY_NODE == "0"
DECW$DISPLAY_SCREEN == "0"
DECW$DISPLAY_SERVER == "0"
DECW$DISPLAY_TRANSPORT == "LOCAL"
|
| 2151.6 | | SMAUG::MENDEL | I don't want to burn in Paradise! | Wed Jan 31 1990 13:19 | 9 |
| Yes, this is chasing your tail. SHOW DISPLAY doesn't have the node
name yet, because we're trying to figure out what it is in order to
SET DISPLAY!
It would sure be nice if there was *some* hook, *somewhere* ...
If there were a way to go, having the WSA unit number...
Kevin
|