From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 20-SEP-1990 21:39:29.34
To:	MRGATE::"ARISIA::EVERHART"
CC:	
Subj:	RE: Re: Changing the name of a DECterm window

Received:  by crdgw1.ge.com (5.57/GE 1.73)
	 id AA21522; Thu, 20 Sep 90 21:21:53 EDT
Received: From CRDGW1.GE.COM by CRVAX.SRI.COM with TCP; Thu, 20 SEP 90 16:06:59 PDT
Received:  by crdgw1.ge.com (5.57/GE 1.73)
	 id AA17666; Thu, 20 Sep 90 18:58:21 EDT
Date:  Thu, 20 Sep 90 18:58:21 EDT
Message-Id:  <9009202258.AA17666@crdgw1.ge.com>
From: sessions%sparev.DECNET@crdgw1 (Zack Sessions 8*292-5517)
To: info-vax@sparev.DECNET
Subject: RE: Re: Changing the name of a DECterm window

Bob Techentin <Techentin@Mayo.Edu> writes:
>Zack C. Sessions <Sessions@Sparev.dnet.ge.com> posted some DCL:
> 
>>  $ OSC[0,8] = 157
>>  $ ST[0,8] = 156
>>  $ write sys$output OSC,"2L;New Icon Name",ST
>>  $ write sys$output OSC,"21;New Window Bar Name",ST
> 
>That's really neat!  It is also about 10 times faster than invoking the 
>X program posted here about a year ago.  (DECW$CHANGE_TITLE.C)
> 
>But, what does it do?  And how did you come across it, anyway?

As a matter of fact, I got it from a message posted to this very list
on July 5 by Jim Gerland. The command procedure Jim posted was this:

$ ! SET_VT220.COM
$ ! Author: Mike Foley
$ ! Modified: Jim Gerland 07/05/90
$ !
$ OSC[0,8] = 157
$ ST[0,8] = 156
$ ECHO = "WRITE SYS$OUTPUT "
$!
$ IF P1 .EQS. "ICON"   THEN ECHO OSC,"2L;",P2,ST
$ IF P1 .EQS. "ICON1"  THEN ECHO OSC,"2L;",F$GETSYI("NODENAME"),ST
$ IF P1 .EQS. "ICON3" THEN ECHO OSC,"2L;",F$TRNLNM("SYS$NODE"), -
     F$ENVIRONMENT("DEFAULT"),ST
$ IF P1 .EQS. "BANNER"  THEN ECHO OSC,"21;",P2,ST
$ IF P1 .EQS. "BANNER1" THEN ECHO OSC,"21;Node: ",F$TRNLNM("SYS$NODE"), -
     "  <<",F$GETJPI("","PRCNAM"),">>  (",F$GETJPI("","PID"),")",ST
$ IF P1 .EQS. "BANNER2" THEN ECHO OSC,"21;",F$TRNLNM("SYS$NODE"), -
     F$ENVIRONMENT("DEFAULT")," (",F$GETJPI("","PRCNAM"),")",ST
$ IF P1 .EQS. "BANNER3" THEN ECHO OSC,"21;",F$TRNLNM("SYS$NODE"), -
     F$ENVIRONMENT("DEFAULT"),ST
$ IF P1 .EQS. "BANNER4" THEN ECHO OSC,"21;Node: ",F$TRNLNM("SYS$NODE"), -
     "  <<",F$GETJPI("","PRCNAM"),">>  (",F$GETJPI("","PID"),")",-
     F$ENVIRONMENT("DEFAULT"),ST
$ EXIT

Sparsly commented <grin>, but you should be able to figure it out!

Zack C. Sessions
Sessions@Sparev.dnet.ge.com (Internet)
Sessions%Sparev.dnet.ge.com@crdgw1.ge.com (Alternate Internet)
...!uflorida!ki4pv!macs!stetson!rewop!sencland!sessions (UUCP at home)

