Alain Benveniste
New User
Joined: 14 Feb 2005 Posts: 88
|
|
|
|
sangiah,
Here is the JCL that do what you need
Code: |
//STEP0001 EXEC PGM=ICETOOL
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//TOOLIN DD *
SORT FROM(IN) TO(OUTX) USING(ICE0)
/*
//IN DD *
017 04000 050000
017 03000 030000
017 07000 020000
810 01000 020000
810 02000 010000
900 01000 020000
/*
//OUTX DD SYSOUT=*
//ICE0CNTL DD *
OPTION ZDPRINT
SORT FIELDS=(1,3,ZD,A)
SUM FIELDS=(5,5,ZD,11,6,ZD)
|
The output is:
Code: |
017 14000 100000
810 03000 030000
900 01000 020000
|
Alain |
|