Sri,
Sir this is great..
Scott
On Wed, Feb 26, 2020 at 11:53 AM Sri h Kolusu <skol...@us.ibm.com> wrote:
> >The input could have a blank delimited string containing an embedded
> period before the one I wanted to parse out.
>
> Even though this is a rexx topic, DFSORT has rich parsing facility that can
> parse the strings with ease.
>
> //STEP0100 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN DD *
> WORD1 WORD2 9.12 WORD31.EXT 3.14
> WORD1 WORD2 9.12 WORD32.PDF WORD4
> WORD1 WORD2 9.12 XXXXZ.EXT FRED.SMITH
> WORD1 WORD2 9.12 WORD33 WORD4
> //SORTOUT DD SYSOUT=*
> //SYSIN DD *
> OPTION COPY
> INREC PARSE=(%=(ENDBEFR=C' ',REPEAT=3),
> %1=(ENDBEFR=C' ',
> ENDBEFR=C'.',
> FIXLEN=8)),
> BUILD=(%1)
> /*
>
> Will produce
>
> WORD31
> WORD32
> XXXXZ
> WORD33
>
> >>I've got a REXX parse puzzle to solve and I would like suggestions on how
> to solve it.
> INDSN(DSNAM(MEMBER))
>
> //STEP0200 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN DD *
> INDSN(DSNAM()) NULL MEMBER
> INDSN(DSNAM(A)) 01 CHARACTER MEMBER
> INDSN(DSNAM(AB)) 02 CHARACTER MEMBER
> INDSN(DSNAM(ABC)) 03 CHARACTER MEMBER
> INDSN(DSNAM(ABCD)) 04 CHARACTER MEMBER
> INDSN(DSNAM(ABCDE)) 05 CHARACTER MEMBER
> INDSN(DSNAM(ABCDEF)) 06 CHARACTER MEMBER
> INDSN(DSNAM(ABCDEFG)) 07 CHARACTER MEMBER
> INDSN(DSNAM(ABCDEFGH)) 08 CHARACTER MEMBER
> INDSN(DSNAME) BLAH NO MEMBER
> //SORTOUT DD SYSOUT=*
> //SYSIN DD *
> OPTION COPY
> INREC PARSE=(%1=(STARTAFT=C'DSNAM(',
> ENDBEFR=C'))',
> FIXLEN=8)),
> BUILD=(%1,2X,31,20)
> /*
>
> The output of this is
>
> NULL MEMBER
> A 01 CHARACTER MEMBER
> AB 02 CHARACTER MEMBER
> ABC 03 CHARACTER MEMBER
> ABCD 04 CHARACTER MEMBER
> ABCDE 05 CHARACTER MEMBER
> ABCDEF 06 CHARACTER MEMBER
> ABCDEFG 07 CHARACTER MEMBER
> ABCDEFGH 08 CHARACTER MEMBER
> NO MEMBER
>
>
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
Scott Ford
IDMWORKS
z/OS Development
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
