Yes, I have it working in other stages. The X2D is converting a hex number to a decimal for the FROM then I use the (PIPE SPEC) conversion D2X to convert it back to HEX. I had to add the RIGHT to get the output correct.
Frank M. Ramaekers Jr. > -----Original Message----- > From: CMSTSO Pipelines Discussion List [mailto:CMS- > pipeli...@vm.marist.edu] On Behalf Of Kris Buelens > Sent: Thursday, April 24, 2014 4:06 PM > To: CMS-PIPELINES@VM.MARIST.EDU > Subject: Re: [CMS-PIPELINES] SPEC with multiple IFs. > > 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 <mike.wal...@aon.com>: > > > 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:CMS-PIPELINES@VM.MARIST.EDU] > > On Behalf Of Frank M. Ramaekers > > Sent: Thursday, April 24, 2014 15:40 > > To: CMS-PIPELINES@VM.MARIST.EDU > > 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- > > > > > pipeli...@vm.marist.edu] On Behalf Of Kris Buelens > > > > > Sent: Thursday, April 24, 2014 3:24 PM > > > > > To: CMS-PIPELINES@VM.MARIST.EDU > > > > > 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 <jgp4...@hotmail.com > <mailto: > > jgp4...@hotmail.com> >: > > > > > > > > > > > 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: framaek...@ailife.com <mailto:framaek...@ailife.com> > > > > > > > Subject: SPEC with multiple IFs. > > > > > > > To: CMS-PIPELINES@VM.MARIST.EDU > > > > > <mailto:CMS-PIPELINES@VM.MARIST.EDU> > > > > > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
