HP3000-L Archives

June 2010, 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:
Tom Hula <[log in to unmask]>
Reply To:
Date:
Thu, 17 Jun 2010 10:49:26 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (69 lines)
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 *

ATOM RSS1 RSS2