Author: Arun Raj
Posted: Tue Nov 22, 2016 11:09 am (GMT 5.5)
I think we are good without an END for the group.
This is UNTESTED, this has the essence of Bill's suggestion above.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Tue Nov 22, 2016 11:09 am (GMT 5.5)
I think we are good without an END for the group.
This is UNTESTED, this has the essence of Bill's suggestion above.
Code: |
//SYSIN DD * INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,2,CH,EQ,C'01'), PUSH=(81:ID=8)), IFTHEN=(WHEN=(1,2,CH,EQ,C'01'),OVERLAY=(89:5X'00')), IFTHEN=(WHEN=(1,2,CH,EQ,C'99'),OVERLAY=(89:5X'FF')), IFTHEN=(WHEN=NONE,OVERLAY=(89:14,5)) SORT FIELDS=(81,13,CH,A) SUM FIELDS=NONE OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(89:SEQNUM,5,ZD,RESTART=(81,8))), IFTHEN=(WHEN=(1,2,CH,EQ,C'99'), OVERLAY=(89:89,5,ZD,SUB,+2,ZD,M10,LENGTH=5, 13:89,5,JFY=(SHIFT=LEFT)), IFOUTLEN=30 |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard