Are you sure this works:
NW RECNO FROM" X2D(F800) "D2X NW.4 RIGHT a: 6.3 .",
I mean the D2X. If you use the standard VM pipes, I don't think SPECS
allows to convert a RECNO you just inserted.
Kris Buelens,
--- freelance z/VM consultant, Belgium ---
-----------------------------------------------------------------------
2014-04-24 22:54 GMT+02:00 Mike Walter <[email protected]>:
> I'll repeat the suggestion to run it thought PIPEDMEO EXEC, and add
> another suggestion: when in XEDIT on the EXEC, enter: QDI
> You can get QDI (it uses color to point our missing commas, parens, etc.)
> from the same web site: http://www2.marist.edu/~pipeline/
>
> Another useful EXEC syntax checker is Guy De Ceulaer and Kris Buelens'
> CKRX package.
>
> A bit of time invested now in installing and getting even moderately
> familiar with PIPEDEMO, PDEM, QDI, and CKRX will save uncounted hours later.
>
> CKRX package details:
> ---<snip>---
> CKRX is part of REXXG (Rexx Goodies):
> http://www.vm.ibm.com/download/packages/dscript.cgi?REXXG
>
> * CKRX - Perform a basic REXX syntax check (uses TRACE S)
> * EXECCALL - Execute/activate edited EXEC, XEDIT macro, FILELIST, ...
> * REXDATES - Show all formats REXX date() function
> * REXFINDS - Show syntax of REXX's searching functions
> * REXTIMES - Show all formats REXX time() function
> * XTOX - show result of all REXX data conversion functions (as C2X )
> CKRX PACKAGE *
> CKRX EXEC *
> CKRX XEDIT *
> EXECCALL XEDIT *
> EXECCALL HELPXEDI *
> DOREXX XEDIT *
> REXTIMES EXEC *
> REXDATES EXEC *
> REXFINDS EXEC *
> XTOX EXEC *
> * Others, not mine, so can't pass them on
> * REXXTRY EXEC *
> * QDI XEDIT *
> * QDI REXX *
> ---<snip>---
>
> Mike Walter
> Aon Corporation
> The opinions expressed herein are mine alone, not my employer's.
>
>
>
>
>
> -----Original Message-----
> From: CMSTSO Pipelines Discussion List [mailto:[email protected]]
> On Behalf Of Frank M. Ramaekers
> Sent: Thursday, April 24, 2014 15:40
> To: [email protected]
> Subject: Re: SPEC with multiple IFs.
>
> After correcting the missing comma and using ELSEIF, it ends with a
> cryptic:
>
>
>
> "| SPEC /UAGLOBE/ 1.8 1-* NW RECNO FROM" X2D(F800) "D2X NW.4 RIGHT
> a: 6.3 .",
>
> "IF a==/MOD/ THEN",
>
> "/C/ NW",
>
> "ELSEIF a==/MVS/ THEN",
>
> "/C/ NW",
>
> "ELSE",
>
> "/R/ NW",
>
> "ENDIF",
>
> PIPYAC1434E Parse error in state 137, unexpected O_MULT at offset 3:
> "/MOD/ THEN /C/ NW ELSEIF a==/MVS/ THEN /C/ NW ELSE /R/ NW ENDI
>
> F".
>
> PIPMSG003I ... Issued from stage 2 of pipeline 11.
>
> PIPMSG001I ... Running "SPEC /UAGLOBE/ 1.8 1-* NW RECNO FROM 63488 D2X
> NW.".
>
> PIPYAC1435I Expecting T_IDLETTER T_NUMBER T_QSTRING T_IDENT T_ID_CHAR
> T_CTR T_DOT T_DOTDOT T_CTRARRAY S_LP O_PLUS O_NOT F_FIRST F_EO
>
> F F_BREAK F_C2D F_C2F F_X2D F_X2F F_STRING F_AVERAGE F_VARIANCE F_NUMBER
> F_EXACT F_SQRT F_STDDEV F_STDERRMEA
>
> PIPSPE192I ... Scan at position 69; previous data "OM 63488 D2X NW.4 RIGHT
> a: 6.3 . IF a==/".
>
>
>
> Frank M. Ramaekers Jr.
>
>
>
>
>
> > -----Original Message-----
>
> > From: CMSTSO Pipelines Discussion List [mailto:CMS-
>
> > [email protected]] On Behalf Of Kris Buelens
>
> > Sent: Thursday, April 24, 2014 3:24 PM
>
> > To: [email protected]
>
> > Subject: Re: [CMS-PIPELINES] SPEC with multiple IFs.
>
> >
>
> > I don't know if that will help: PIPE alos has ean ELSEIF
>
> >
>
> > "ELSEIF a==/MVS/ THEN",
>
> > "/C/ NW",
>
> >
>
> >
>
> > Kris Buelens,
>
> > --- freelance z/VM consultant, Belgium ---
>
> > -----------------------------------------------------------------------
>
> >
>
> >
>
> > 2014-04-24 22:19 GMT+02:00 Joe Parker <[email protected] <mailto:
> [email protected]> >:
>
> >
>
> > > Well, it's been quite a few years since I wrote any pipe code, but....
>
> > > could it be there's a comma missing in the first line?
>
> > >
>
> > > > Date: Thu, 24 Apr 2014 15:13:22 -0500
>
> > > > From: [email protected] <mailto:[email protected]>
>
> > > > Subject: SPEC with multiple IFs.
>
> > > > To: [email protected] <mailto:[email protected]>
>
> > > >
>
> > > > I can't seem to find information on what could be wrong with this:
>
> > > >
>
> > > >
>
> > > >
>
> > > > "| SPEC /xxxx/ 1.8 1-* NW RECNO FROM" X2D(F800) "D2X NW.4 RIGHT a:
>
> > > > 6.3 ."
>
> > > >
>
> > > > "IF a==/MOD/ THEN",
>
> > > >
>
> > > > "/C/ NW",
>
> > > >
>
> > > > "ELSE",
>
> > > >
>
> > > > "IF a==/MVS/ THEN",
>
> > > >
>
> > > > "/C/ NW",
>
> > > >
>
> > > > "ELSE",
>
> > > >
>
> > > > "/R/ NW",
>
> > > >
>
> > > > "ENDIF",
>
> > > >
>
> > > > "ENDIF",
>
> > > >
>
> > > >
>
> > > >
>
> > > > I'm not getting the output I expect (I don't see PIPE flagging
>
> > > > anything). I've only had single IF's in the past.
>
> > > >
>
> > > >
>
> > > >
>
> > > > Frank M. Ramaekers Jr. | Systems Programmer | Information Technology
>
> > > > | American Income Life Insurance Company | 254-761-6649
>
> > > >
>
> > > >
>
> > >
>
> > >
>
>
