IBM Mainframe Forum

by **ykreddy** » Thu Feb 10, 2011 5:46 pm

Hi All,

I have an input file with values of

ykreddy -100000
gkreddy +000100
ykreddy -200000
gkreddy -400000

I want to sum these values
like

ykreddy -300000
gkreddy -399900

Can any one help me please...

by **Frank Yaeger** » Fri Feb 11, 2011 12:07 am

Here's a DFSORT job that will do what you asked for. I assumed it was ok to have the output records sorted by the first field.

Select all

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ykreddy -100000
gkreddy +000100
ykreddy -200000
gkreddy -400000
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,9,CH,A)
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,9,
TRAILER3=(1,9,
TOT=(10,7,FS,EDIT=(STTTTTT),SIGNS=(+,-))))
/*

SORTOUT would have:

Select all

gkreddy -399900
ykreddy -300000

If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

http://www.ibm.com/support/docview.wss? ... g3T7000080

IBM Mainframe Forum

How to sum sign values

How to sum sign values

Re: How to sum sign values