Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Tue Dec 16, 2003 10:21 am Post subject:
Prayank,
Here's a DFSORT job for the SUM you want:
Code:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
aa 10.1
aa 20.1
bb 30.1
cc 40.1
dd 50.1
dd 60.2
//SORTOUT DD SYSOUT=*
//SYSIN DD *
* Get ZD value without decimal point
INREC FIELDS=(1,2, key
3:8,3, digits before decimal point
6:12,1) digit after decimal point
SORT FIELDS=(1,2,CH,A)
SUM FIELDS=(3,4,ZD)
OUTREC FIELDS=(1,2, key
8:3,4,ZD,EDIT=(ITT.T),
80:X)
/*
And here's a DFSORT job to display the 1-byte binary value:
_________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum