Alain Benveniste
Active User
Joined: 14 Feb 2005
Posts: 90
|
|
|
|
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 |
|
