Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
raam_kumar,
The following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
----+----1----+----2----+----3----+----4----+----5----
AAAAA 111 250
AAAAA 121 150
AAAAA 111 100
AAAAA 311 100
BBBBB 111 000
BBBBB 111 125
CCCCC 121 125
CCCCC 131 125
DDDDD 111 100
DDDDD 121 100
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(01,09,CH,A)
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(20:18C'0')),
IFTHEN=(WHEN=(7,3,CH,EQ,C'111'),OVERLAY=(20:11,3)),
IFTHEN=(WHEN=(7,3,CH,EQ,C'211'),OVERLAY=(23:11,3)),
IFTHEN=(WHEN=(7,3,CH,EQ,C'311'),OVERLAY=(26:11,3)),
IFTHEN=(WHEN=(7,3,CH,EQ,C'121'),OVERLAY=(29:11,3)),
IFTHEN=(WHEN=(7,3,CH,EQ,C'131'),OVERLAY=(32:11,3)),
IFTHEN=(WHEN=(7,3,CH,EQ,C'141'),OVERLAY=(35:11,3))
OUTFIL REMOVECC,NODETAIL,
BUILD=(80X),
SECTIONS=(1,5,
TRAILER3=(1,5,X,TOT=(20,3,ZD,M10,LENGTH=8),X,
TOT=(23,3,ZD,M10,LENGTH=8),X,
TOT=(26,3,ZD,M10,LENGTH=8),X,
TOT=(29,3,ZD,M10,LENGTH=8),X,
TOT=(32,3,ZD,M10,LENGTH=8),X,
TOT=(35,3,ZD,M10,LENGTH=8)))
/* |
The output from the above job is
Code: |
AAAAA 350 0 100 150 0 0
BBBBB 125 0 0 0 0 0
CCCCC 0 0 0 125 125 0
DDDDD 100 0 0 100 0 0 |
Hope this helps... |
|