As an alternative to regexen, there is a package called PROC that does the subset of IKJPARSE needed for CLIST style parameters. There may be other such tools out there; if I knew of a decent search engine ...
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of David Crayford [dcrayf...@gmail.com] Sent: Thursday, February 27, 2020 6:07 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Rexx parse using period as placeholder OK. Let me change the requirements again ;) How about also handling single quotes for a fully qualified data set. Simple to do with a regex. Not so simple using REXX. Syntax: INDSN(DSNAME(MEMBER)) INDSN(DSNAME) INDSN('HLQ.DSNAME(MEMBER)') INDSN('HLQ.DSNAME') On 2020-02-27 12:28 AM, Seymour J Metz wrote: >> Great! How will that work if I don't have a member name? > The code will tell me not to believe you when you write > > "Syntax: > > INDSN(DSNAM(MEMBER))" > > Writing the code is the easy part; the hard part is getting the actual > requirements. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > ________________________________________ > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > David Crayford [dcrayf...@gmail.com] > Sent: Wednesday, February 26, 2020 7:18 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Rexx parse using period as placeholder > > Great! How will that work if I don't have a member name? > > INDSN(DSNAME) > > > On 2020-02-26 8:11 PM, Seymour J Metz wrote: >> When I'm testing a template I usually use variable names so it's easier to >> follow what's happening; feel free to change them to periods. >> >> trace i;parse var parm kw '(' dsn '(' mem ')' ')' >> 95 *-* parse var parm kw '(' dsn '(' mem ')' ')' >> >V> "INDSN(DSNAME(MEMBER))" >> >L> "(" >> >>> "(" >> >>> "INDSN" >> >L> "(" >> >>> "(" >> >>> "DSNAME" >> >L> ")" >> >>> ")" >> >>> "MEMBER" >> >L> ")" >> >>> ")" >> 96 *-* trace 'Off' /* Don't trace rexxtry. >> */ >> ................................................ REXXTRY.CMD on OS/2 >> say dsn mem >> DSNAME MEMBER >> >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> ________________________________________ >> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of >> David Crayford [dcrayf...@gmail.com] >> Sent: Wednesday, February 26, 2020 7:01 AM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Rexx parse using period as placeholder >> >> I've got a REXX parse puzzle to solve and I would like suggestions on >> how to solve it. >> >> Syntax: >> >> INDSN(DSNAM(MEMBER)) >> >> The code is simple. It uses the parse instruction with a template. >> >> parse var parm . '(' val ')' >> >> >> *-* parm = 'INDSN(DSNAME(MEMBER))' >> >L> "INDSN(DSNAME(MEMBER))" >> *-* parse var parm . '(' val ')' >> >.> "INDSN" >> >>> "DSNAME(MEMBER" >> >> Unfortunately the value is truncated because "parse" has no way to >> anchor to the end of the string. >> >> Using a regex this is very simple "\((.*)\)$" >> >> Most modern languages have PEG libraries (parsing expression grammers) >> which are much more powerful that regex. They can be called recursively >> and used to implement real parsers. >> >> Even a simple scripting like Lua (which runs on z/OS) has a library >> which can be used to implement a C99 parser in 500 lines of code >> https://secure-web.cisco.com/1-qpVukWY5CQ__uk-jb69c-vU9oQiHr0QYGSPlCeoZgyD2_0Vr7rZvCFOZMHJg7zk3VOksBvTUY8MLW1evN4UV9cNBh-pn9n-5F9_X82JabsK-ab5tZgKrsgKaJaEaxaxX5DQT-npVqFY2v_bsph_x8TPP0FtlXCodigNSekdfPE7jkgJNBmS59AWuMpG8X-Uk87HGTSjWom-rjWZ2cck7YmxwA8YD0v-eN-AL17ABCPz1J03MFZeG5DTXPPIQZDHjFYyC1zarF945-8oyYAd868yq1R6J7tuZO3LwSG-nXLyxFjuFhxAFLZjb5wzxr9ud0_gAOZpFtSdNUpsdux1AoWvZREOg5L4JMcfEVubG-1nO2eSTtdsuvL3IPGSGD4-HEKFuhCLSVZQb4nT1RtVUgxxwK-lTjuUgN8iE103myJE9v-kJevMwsdsZ3jGRYmT/https%3A%2F%2Fgithub.com%2Ftitan-lang%2Fc-parser%2Fblob%2Fmaster%2Fc99.lua. >> >> >> On 2020-02-26 11:41 AM, Paul Gilmartin wrote: >>> On 2020-02-24, at 13:43:52, Ambros, Thomas wrote: >>>> A trivial item, but this surprised me. >>>> >>>> I wanted to parse out the string 'word3' using the period as a place >>>> holder. The input could have a blank delimited string containing an >>>> embedded period before the one I wanted to parse out. The Parse Var as >>>> coded didn't work. ... >>>> >>>> myVar = 'word1 word2 9.12 word3.ext' >>>> Parse Var myVar . . . myVal '.' . >>>> ... >>>> Say 'myVal=' myVal >>>> ... >>> The simple answer to the elliptically stated problem is: >>> MyVal = 'word3' >>> >>> A more general solution, using regex is: >>> 556 $ echo 'word1 word2 9.12 word3.ext' | sed 's/.* \([^.]*\).*/\1/' >>> word3 >>> 557 $ >>> This finds the last substring in the subject preceded by a space >>> and followed by a period. >>> >>> Full disclosure, for Tony to gloat: >>> o It's easier to code than to review. >>> o I got it right on the third try. >>> o I haven't fuzz tested. >>> >>> -- gil >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
