HP3000-L Archives

February 2002, Week 4

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 Emerson <[log in to unmask]>
Reply To:
Tom Emerson <[log in to unmask]>
Date:
Thu, 28 Feb 2002 17:00:19 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines)
> -----Original Message-----
> From: Larry Barnes
>
> I have a job stream file that I [submit with] streamx ...
> The if statement works well inside of MPEX
> but [fails with] Streamx
>
> Here's what's in the variable   IAFILE = IA120215.TSLARBAR
>
> ::IF NOT FINFO("NTOKEN('!IAFILE',1,'.').CODEHIST",'EXISTS')

You have the first double-quote in the wrong place.  Essentially, you are
asking if the file explicitly named

   NTOKEN('IA120215.TSLARBAR',1,'.').CODEHIST

exists, which is not a valid MPE filename.

Personally, I would use the MPEX/STREAMX function "FEXISTS" -- it has the
same functionality as FINFO(...,0) but "reads" better [more "english like"
as opposed to "german like" with the "verb" 'EXISTS' placed last... ;) ]  So
the code should read:

::IF NOT FEXISTS(NTOKEN(IAFILE,1,".")+".CODEHIST")
(NOTE also that in "expressions", MPE variables are implicit -- no need for
the "!" character in this context.  This just leads to a profusion of quote
characters and probably contributed to misplacing it in the first place...)
:: ECHO
[error message snipped]
:: EXIT
::ENDIF

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2