HP3000-L Archives

July 2000, Week 3

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:
From:
Keven Miller <[log in to unmask]>
Reply To:
Keven Miller <[log in to unmask]>
Date:
Wed, 19 Jul 2000 14:05:57 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (51 lines)
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
>
>

ATOM RSS1 RSS2