HP3000-L Archives

September 2003, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Reflection Command File
From:
Robert Mills <[log in to unmask]>
Reply To:
Robert Mills <[log in to unmask]>
Date:
Mon, 22 Sep 2003 10:10:59 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (71 lines) 
I use the following in our system-wide session startup script (watch the
wrap):

echo ![chr(27)]&o2G
echo Sub Main
if '!hpjobname' = '' then
  echo   Application.Caption = "!hpuser.!hpaccount (#S!hpjobnum) - &n"
else
  echo   Application.Caption = "!hpjobname,!hpuser.!hpaccount (#S!hpjobnum)
- &n"
  endif
echo   End Sub
echo ![chr(27)]&oH

regards,

Robert W.Mills
Systems Development Manager
Windsong Services
(01689) 870622 x3005


Ron Horner <mailto:[log in to unmask]> scribbled on 19 September
2003 18:10:

> I have a command file that does just that.  Here is the key piece.
>
> IF "!HPJOBTYPE" = "S" and bound(HPVT_CLIENT_VENDOR)
>    SETVAR WIN_TITLE "!HPUSER.!HPACCOUNT - #S!HPJOBNUM"
>    ECHO ![CHR(27)]&oBSET WINDOW-TITLE "!WIN_TITLE"
>    INPUT SF_RETURN
> ENDIF
>
> Hope it helps.
>
> Ron Horner
> Horner Consulting
>
>
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
> Behalf Of
> Jonathan M. Backus
> Sent: Friday, September 19, 2003 12:01 PM
> To: [log in to unmask]
> Subject: [HP3000-L] Reflection Command File
>
>         I am using Reflection (Version 9.0) and would like to create a
> command file on the 3000 that would change the "Title" of my
> Reflection
> window.  I'm pretty sure I can do this and I'm part way into the
> research, but if somebody has already done it the economy of effort
> would be appreciated.
>
> Thanx,
>     Jonathan (Jon) M. Backus, MPE-CSM ~ President
>     Tech Group ~ 15 Catawba Place ~ Hagerstown, MD ~ 21742-6515
>     Vmail: 301.988.0614 ~ Fmail: 301.714.1854
>     Email: [log in to unmask] ~ Web: www.TechGroupMD.com
>     AIM: JMBackus ~ MSN: [log in to unmask]
>     Yahoo: techgroupjon ~ ICQ: 250635614
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2