Sum FIELDS with decimal

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Hi,
Can we sum fields with decimals?
The input file is like...

(column 3) (column 68)
003042193 0000009.08
003042193 0000009.08
003042193 0000009.08
007505628 0000001.73
007505628 0000001.73
007505628 0000001.73

I need to sum the amount fields which starts from 68th column and is of 10 digits including decimal. How do we do it?

I'm getting S0C7 if i use the control card mentioned below.
SORT FIELDS=(3,9,CH,A)
SUM FIELDS=(68,10,ZD)

Please comment.

Garry Carroll · Posted: Fri Aug 01, 2008 6:52 pm

You need to move the digits to a work-field, dropping the decimal. Then SUM the work-field and edit, if required to reinstate the decimal, to output field.

Where do you want to put the result of the SUM ?

Regards,
Garry

karthikr44 · Posted: Fri Aug 01, 2008 6:54 pm

Hi,

You can use FL format for floating point numbers. That itself
u can use only 4, 8, or 16 bytes. i.e. u can use

SUM FIELDS=(11,16,FL)

But not

SUM FIELDS=(11,15,FL)

Regards
R KARTHIK

Garry Carroll · Posted: Fri Aug 01, 2008 7:00 pm

karthikr44 · Posted: Fri Aug 01, 2008 7:04 pm

Hi,

I posted because the reason for SOC7 abend is he is using ZD format
for numbers like 0002.3

Regards
R KARTHIK

Garry Carroll · Posted: Fri Aug 01, 2008 7:08 pm

Hi,

Yes, he is. but treating the numbers like 0002.3 as floating point won't solve his problem - he'd have to first change the format of the data to floating point.

Regards,
Garry.

Frank Yaeger · Posted: Fri Aug 01, 2008 8:56 pm

Karthik,

FL is floating point format for numbers with a characteristic and fraction. It has nothing to do with values like 'ddddddd.dd' that the OP is asking about - you could have looked up FL format at:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/C.1?DT=20060615185603

lanand_hps,

You can use the technique discussed in the "Sum a number with a decimal point" Smart DFSORT Trick at:

www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000094

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Thanks Frank.
I had created a jcl with two steps to sum the digits with decimal points. First step to remove decimal and treat that as a ZD. Second step to inser the decimal point in the appropriate postion.
FL didnot work.
But one more clarification.
Under what scenarios can we use PD?
For test purpose, i had 3 records in my postion with a packed decimal from 20th postion till 25th.

SORT FIELDS=(107,9,CH,A)
SUM FIELDS=(20,5,PD)

It is resulting in S0C7. Any details?
I checked the input file and it had proper values.

Craq Giegerich · Posted: Fri Aug 01, 2008 10:41 pm

Frank Yaeger · Posted: Fri Aug 01, 2008 10:47 pm

lanand_hps,

You can only use PD for valid packed decimal data which has the following form in hex:

dd...ds

where d is a digit (0-9) and s is a sign (usually C or F for + or D for -).

For example:

12345C is the PD equivalent of +12345
00030D is the PD equivalent of -30

If you try to SUM with PD for values that are NOT PD, you will get an 0C7 ABEND.

Note that PD values do NOT contain a decimal point internally.

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Hi Craq,
This is how the file is now...

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Sorry guys..
It is of 6 digits..as Frank pointed out.. 20th to 25th column.
One more doubt. ((Please spare me

)

I have read in a lot of places that
Statement 1:
SORT FIELDS=COPY
SUM FIELDS=NONE will remove the duplicates.
Statement 2:
SORT FIELDS=NONE will also avoid duplicates.

When i just tested it, the duplicates are not getting removed with the first statement and statement 2 is throwing an error.

I guess it is a very basic doubt

.. Kindly give your comments..

Craq Giegerich · Posted: Fri Aug 01, 2008 11:08 pm

You either need to use 21,5,PD or 20,6,PD because the byte of the PD is in position 25 not 24.

Frank Yaeger · Posted: Fri Aug 01, 2008 11:27 pm

lanand_hps · New User Joined: 05 Dec 2007 Posts: 82 Location: chennai

Thanks a lot Frank .!

ksouren007 · Posted: Tue Jan 18, 2011 4:49 pm

Hi Frank,

The below link is no longer working. Could you please provide an alternate link for the document?

" You can use the technique discussed in the "Sum a number with a decimal point" Smart DFSORT Trick at: "

Use [URL] BBCode for External Links

Frank Yaeger · Posted: Wed Jan 19, 2011 12:21 am

I posted that link back in 2008. It changed later to:

www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000094

I've updated the link in the original post.