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

DFSORT/ICETOOL :: RE: For each given key value, how to keep up to the first n recs

$
0
0
Author: Rohit Umarjikar
Posted: Sat Nov 12, 2016 12:14 am (GMT 5.5)

Code:
//SYSIN DD *                                                   
      SORT FIELDS=(1,3,CH,A,10,2,ZD,D)                         
      OUTREC IFTHEN=(WHEN=INIT,                               
                      OVERLAY=(81:SEQNUM,2,ZD,RESTART=(1,3))) 
      OUTFIL FNAMES=SORTOUT,INCLUDE=(81,2,ZD,LE,3),BUILD=(1,80)

_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."icon_razz.gif


Viewing all articles
Browse latest Browse all 8500

Trending Articles