Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: RE: Updating the counters after eliminating duplicates

$
0
0
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.
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


Viewing all articles
Browse latest Browse all 8500

Latest Images

Trending Articles



Latest Images