We get around this by having another STREAM UDC called STREAMX, which gets
ignored by Streamx so no checking.  The SETVARs in STREAM may be superfluous
and leftover from trying to get around the problem, but I'm not about to
change them.

STREAMX
ANYPARM ALLPARMS=![""]
COMMENT implements STREAM (below), but with a different name.  Use STREAMX
COMMENT when STREAM causes problems - VESOFT sees STREAM in its input & does
COMMENT more checking than it should - (i.e. non-existent object fails).
STREAM !ALLPARMS

STREAM
ANYPARM ALLPARMS=![""]
COMMENT these 2 jcws prevent STREAMX from looking deeper than it should...
SETVAR STREAMXPERMNONEST 1
SETVAR STREAMXPERMNONESTERROR 1
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
      SETJCW INSIDEMPEX=0>$NULL
      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=%1421
      ENDIF
    ELSE
      XEQ MAIN.PUB.VESOFT;INFO='![VE!HPPIN]';PARM=%1421
    ENDIF
  ELSE
    XEQ MAIN.PUB.VESOFT;INFO="![VE!HPPIN]";PARM=%1421
  ENDIF
  DELETEVAR VE!HPPIN
ELSE
  XEQ MAIN.PUB.VESOFT;INFO='!ALLPARMS';PARM=%1421
ENDIF


Tracy Pierce
Golden Gate Bridge
> -----Original Message-----
> From: Carl McNamee [mailto:[log in to unmask]]
> Sent: Monday, May 22, 2000 7:36 AM
> To: [log in to unmask]
> Subject: Vesoft and streaming a job within a job?
>
>
> I am trying to figure out how to do error checking within a
> job stream to
> see if a file exists before I attempt to stream it.  I have
> the following in
> a job stream:
>
> !COMMENT Stream jobs that should run every two hours.
> !
> !STREAM JILOGCHK.JOB.SYS
> !IF FINFO('JNBCHECK.JOB.SYS',0)
> !  STREAM JNBCHECK.JOB.SYS
> !ENDIF
> !
>
> What is happening to me is that Vesoft/Streamx is checking
> all the stream
> statements in my jobstream and when it sees that JNBCHECK
> does not exist it
> give an error that the file does not exist and never streams
> my job.  If I
> bypass the Streamx udc's the job stream works fine.
>
> What can I do to make this work???
>
> Carl McNamee
> Systems Administrator
> Billing Concepts
>