$!
$!/* acf4:vmsnet.misc / tp@mccall.com /  3:50 am  Sep 24, 1990 */
$!In article <1990Sep23.111909.1@dac.mdcbbs.com>, jmi@dac.mdcbbs.com (JM Ivler) writes:
$!> In article <294@aupair.cs.athabascau.ca>, terryt@cs.athabascau.ca (Terry Tanski) writes:
$!>> 
$!>>> Has anybody written a program that will change the title and icon
$!>>> names of the DECterm window in which they're running? A few
$!...
$!>> I an not sure about the icon name but I use the following DCL command
$!>> to change the title of a DECWindow/VWS window.
$!...
$!> Here is a C program to do the ICON :-)
$!
$!I already sent this to the original requestor, but since people keep
$!posting programs or partial solutions, I thought I'd post this. I got it
$!out of comp.os.vms a little while back, but maybe most people didn't see
$!it. I use it a great deal. I don't know for sure, but I don't think it will
$!work on any version of VMS before 5.3 (whereas the programs probably will).
$!-------------------------------------cut here--------------------------------
$ ! 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
--
Terry Poot <tp@mccall.com>                The McCall Pattern Company
(uucp: ...!rutgers!ksuvax1!mccall!tp)     615 McCall Road
(800)255-2762, in KS (913)776-4041        Manhattan, KS 66502, USA
/* ---------- */