Subject: | |
From: | |
Reply To: | |
Date: | Thu, 17 Jun 2010 10:49:26 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
HELP STREAM shows me this:
STREAM
ANYPARM ALLPARMS=![""]
COMMENT This UDC implements VESOFT's STREAM command on MPE/iX
IF BOUND(HPPIN) THEN
COMMENT ** Loading UDC parm into variable handles embedded quotes.
COMMENT ** Using HPPIN handles process-handling environments.
ECHO >VE!HPPIN !ALLPARMS
INPUT VE!HPPIN<VE!HPPIN
SETVAR VE!HPPIN LTRIM(VE!HPPIN)
PURGE VE!HPPIN,TEMP>$NULL
IF POS('"', VE!HPPIN)<>0 THEN
IF POS("'", VE!HPPIN)<>0 THEN
SETVAR VESAVEHPMSGFENCE 0
SETVAR HPMSGFENCE 2
SETJCW INSIDEMPEX=0
SETVAR HPMSGFENCE VESAVEHPMSGFENCE
IF INSIDEMPEX=0 THEN
ECHO ERROR: You can't use ' and " quotes together outside of MPEX.
ELSE
RUN MAIN.PUB.VESOFT;INFO=VE!HPPIN;PARM=%1021
ENDIF
ELSE
XEQ MAIN.PUB.VESOFT;INFO='![VE!HPPIN]';PARM=%1021
ENDIF
ELSE
XEQ MAIN.PUB.VESOFT;INFO="![VE!HPPIN]";PARM=%1021
ENDIF
DELETEVAR VE!HPPIN
ELSE
XEQ MAIN.PUB.VESOFT;INFO='!ALLPARMS';PARM=%1021
ENDIF
Nothing has been changed in system libraries at all.
Tom
From: Tony Summers
Sent: Thursday, June 17, 2010 10:15 AM
To: Tom Hula
Subject: RE: [HP3000-L] VESOFT STREAMX
1) Check the MPE stream command is being diverted to use the special UDC
that VESOFT provide (i.e. HELP STREAM)
2) Has VESOFT being removed from the system libraries ?
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Tom Hula
Sent: 17 June 2010 15:11
To: http://raven.utc.edu/archives/hp3000-l.html *
<Clip>
The contents of this email are confidential to the intended recipient and may not be disclosed. Although it is believed that this email and any attachments are virus free, it is the responsibility of the recipient to confirm this.
Details of Smith & Williamson group companies and Nexia Smith & Williamson Audit Limited and their regulators (where applicable), can be found at this URL
http://www.smith.williamson.co.uk/disclosure
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|