Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
maxsubrat,
Use the following DFSORT JCL
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
H -100.00
D 200.00
H 50.00
D 10.00
D 05.00
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,1,CH,EQ,C'H')
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('TOTAL OF ALL H RECORDS: ',
TOT=(2,15,SFF,EDIT=(IIIIIIIIIIIIT.TT)))
//* |
the output from this job is
Code: |
TOTAL OF ALL H RECORDS: 50.00
|
|
|