Article 165671 of comp.os.vms:
In article <3304A5E1.7937@mail.adldata.com>, sol gongola <sol@mail.adldata.com> writes:
>> In article <5ds7l7$fqs@explorer.csc.com>, rkoehler@csc.com (Robert Koehler) writes:
>> > Richard Levitte - VMS Whacker (levitte@lp.se) wrote:
>> >
>> > : Ahemm, well, I'll stick my head out and say that there are times when I
>> > : do find it a neat feature...  But I'm not in absolute need of it...
>> >
>> > And every time I sit down to a eunichs machine with a prompt like:
>> >
>> > /usr/home/henry/work/junk/network/stuff/april/todo/lastweek/project/code 123>
>> >
>> > I wish there was some shell that didn't support it.  Can't even squeeze in a
>> > decent ls command without wrapping.
>> >
> You can use DCL to extract the information, determine what kind of terminal
> you have and issue ansii control codes to put whatever info you want to the 
> xterm heading line on top or to the vt host/status line. I may still have the 
> DCL code around somewhere.

I haven't done a 25th line one in a while, but here is an example 
of DCL that works for DECterm banner and icon modification.

$!
$! Banner.Com - Put P1 into the banner and the icon.  No P1?  Put nodename
$!              and directory in the banner.
$!
$  terminal = f$getdvi("TT","DEVNAM") - "_" - ":"
$  terminal = f$ext(0,2,terminal)
$  if terminal .eqs. "TT" .or. terminal .eqs. "LT" then exit
$!
$  if p1 .eqs. "" then -
      p1 = f$getsyi("NODENAME") + "::" + f$environment("DEFAULT")
$!
$ banner_name  = "''P1'"
$ icon_name    = P1
$ esc[0,8]     = 27			!Escape char
$ quote[0,8]   = 34			!Quote char
$ osc[0,8]     = 157                         ! 7-bit representation is Escape]
$ st[0,8]      = 156                         ! 7-bit representation is Escape\
$ write sys$output osc,"21;''banner_name'",st,osc,"2L;''icon_name'",st
$ exit

Marty


