Author: Arun Raj
Posted: Wed Apr 19, 2017 9:11 pm (GMT 5.5)
Sumanta_89,
Welcome to the forums, code tags can be used here to preserve alignment of code/data. Just select the data/code and click the 'code' button and do a 'Preview' before submitting.
You are not INCLUDEing the 'LIMIT' record from the LISTCAT output, so I think you will have to start with that.
EDIT : A quick modified version would be something like this.
Gives this:
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Wed Apr 19, 2017 9:11 pm (GMT 5.5)
Sumanta_89,
Welcome to the forums, code tags can be used here to preserve alignment of code/data. Just select the data/code and click the 'code' button and do a 'Preview' before submitting.
You are not INCLUDEing the 'LIMIT' record from the LISTCAT output, so I think you will have to start with that.
EDIT : A quick modified version would be something like this.
| Code: |
| INCLUDE COND=(01,8,CH,EQ,C'GDG BASE',OR, 04,7,CH,EQ,C'NONVSAM',OR, 08,5,CH,EQ,C'LIMIT',OR, 37,8,CH,EQ,C'CREATION') SORT FIELDS=COPY OUTREC IFTHEN=(WHEN=GROUP, BEGIN=(01,8,CH,EQ,C'GDG BASE',OR, 04,7,CH,EQ,C'NONVSAM'), PUSH=(081:ID=4,17,44)), IFTHEN=(WHEN=GROUP, BEGIN=(16,5,CH,EQ,C'OWNER'), PUSH=(129:26,08,53,4,58,3)) OUTFIL INCLUDE=(08,5,CH,EQ,C'LIMIT',OR, 37,8,CH,EQ,C'CREATION',AND,81,4,ZD,GT,1), IFTHEN=(WHEN=(81,4,ZD,EQ,1), BUILD=(C'GDG BASE:',85,44,3X, C'LIMIT:',31,3,X, C'CREATED:',137,7,Y4T,TOGREG=Y4T(-),X, C'OWNER:',129,8)), IFTHEN=(WHEN=NONE, BUILD=(C'GENERATION:',85,44,X, C'CREATED:',137,7,Y4T,TOGREG=Y4T(-))) |
| Code: |
| GDG BASE:XXXX.ABCDEFG.XPQRSTU.AAA LIMIT:3 CREATED:2008-04-04 OWNER:A11111 GENERATION:XXXX.ABCDEFG.XPQRSTU.AAA.G0014V00 CREATED:2017-04-10 GENERATION:XXXX.ABCDEFG.XPQRSTU.AAA.G0015V00 CREATED:2017-04-18 GENERATION:XXXX.ABCDEFG.XPQRSTU.AAA.G0016V00 CREATED:2017-04-18 |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard