Amazing! Charles
-----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Wednesday, May 27, 2020 4:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Sort extracting values in PDS members Billy, On second thoughts, We can optimize to parse everything in a single parse. Use the following control cards //SYSIN DD * OPTION COPY INCLUDE COND=(02,80,SS,EQ,C'KEYWORD1',OR, 02,80,SS,EQ,C'LONGKEYWORD2') INREC IFOUTLEN=80, IFTHEN=(WHEN=(01,80,SS,EQ,C'KEYWORD1',OR, 01,80,SS,EQ,C'LONGKEYWORD2'), PARSE=(%01=(STARTAT=C'KEYWORD1', STARTAT=C'LONGKEYWORD2', ENDBEFR=C'(', FIXLEN=16), %02=(ENDBEFR=C')', FIXLEN=16)), BUILD=(%02,JFY=(SHIFT=LEFT), C'.', %01,JFY=(SHIFT=LEFT), C'.', DATE1),HIT=NEXT), IFTHEN=(WHEN=ANY, BUILD=(1,80,SQZ=(SHIFT=LEFT))) /* 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
