On 18 Oct 2006 12:44:16 -0700, in bit.listserv.ibm-main you wrote:
Thanks, that will be very useful > > > > >Howard Brazee wrote on 10/18/2006 11:51:17 AM: >> Is there a way to use the sort utility (or another tool) to come up with >> the key with the most duplicates only? >> >> I want to search a file to find out which person has the most detail >> records, and how many detail records that person has. > >Howard, > >Here's a DFSORT/ICETOOL job that will do what you asked for. >I assumed your name field was in positions 1-20, but you can >change the job appropriately for other positions. > >//S1 EXEC PGM=ICETOOL >//TOOLMSG DD SYSOUT=* >//DFSMSG DD SYSOUT=* >//IN DD DSN=... input file >//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS) >//OUT DD DSN=... output file >//TOOLIN DD * >SORT FROM(IN) USING(CTL1) >SORT FROM(T1) TO(OUT) USING(CTL2) >/* >//CTL1CNTL DD * > SORT FIELDS=(1,20,CH,A) > OUTFIL FNAMES=T1,REMOVECC,NODETAIL, > SECTIONS=(1,20, > TRAILER3=(1,20,X,COUNT=(M11,LENGTH=8))) >/* >//CTL2CNTL DD * > SORT FIELDS=(22,8,ZD,D) > OUTFIL FNAMES=OUT,ENDREC=1 >/* > >Frank Yaeger - DFSORT Team (IBM) > Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration > > => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
