Subject: | |
From: | |
Reply To: | |
Date: | Wed, 19 Jul 2000 14:05:57 -0600 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Try this fir Minisoft
ECHO ![CHR(27)]&oCWINTITLE !TITLE_TITLE
Here is my full TITLE.CMD script
ANYPARM USERTITLE=""
IF HPJOBTYPE = "S" THEN
IF BOUND ( HPVT_CLIENT_VENDOR ) AND &
LFT ( HPVT_CLIENT_VENDOR, 3 ) <> "HEW" &
THEN
SETVAR TITLE_TERMID HPVT_CLIENT_VENDOR
ELSE
XEQ TERMID.CMD.XSI TITLE_TERMID
ENDIF
IF POS ( LFT ( TITLE_TERMID, 3 ), "WRQ MIN MS9" ) > 0 THEN
IF "!USERTITLE" = """" THEN
SETVAR TITLE_TITLE &
"!HPUSER.!HPACCOUNT - #!HPJOBTYPE!HPJOBNUM on LDev #!hpldevin"
IF "!HPJOBNAME" <> "" THEN
SETVAR TITLE_TITLE "!HPJOBNAME,!TITLE_TITLE"
ENDIF
ELSE
SETVAR TITLE_TITLE "!USERTITLE"
ENDIF
IF LFT ( TITLE_TERMID, 3 ) = "WRQ" THEN
ECHO ![CHR(27)]&oCSET WINDOW-TITLE '!TITLE_TITLE'
ELSEIF POS ( LFT ( TITLE_TERMID, 3 ), "MIN MS9" ) > 0 THEN
ECHO ![CHR(27)]&oCWINTITLE !TITLE_TITLE
ELSE
ECHO ![CHR(27)]&oCHELP TITLE
ENDIF
SET ECHO=OFF
INPUT TITLE_RESULT;WAIT=3
SET ECHO=ON
IF TITLE_RESULT <> "S" THEN
ECHO ![CHR(27)]&dB !HPFILE return code !TITLE_RESULT ![CHR(27)]&d@
ENDIF
ENDIF
DELETEVAR TITLE_@
ENDIF
> _____________________________________________________________
> Keven Miller mailto:[log in to unmask] http://www.exegesys.com
>
>
|
|
|