Hi Kolusu, I was finally able to get to this, and it works great for
what I need!
Thanks!
Billy
------ Original Message ------
From: "Sri h Kolusu" <[email protected]>
To: [email protected]
Sent: 5/27/2020 7:30:48 PM
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 [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
