MVSFORUMS.com

[yadav2005]

I have a file with records with Packed Decimal values in columns 15 to 19 in the following:
[code:1:21bb6f61b3]
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
MABC 07107PQR....@
MABC 07107PQR..l

[kolusu]

yadav2005,

You got 2 records because the summation resulted in an overflow. So you need to expand the field before summing. Try the following sort card

[yadav2005]

Thanks Kolusu for your wonderful answer.

[yadav2005]

Kolusu,

Can you please let me know what is 3X'00' , i am unable to understand .Please help me .

[kolusu]

yadav2005,

3x'00' = 3 byte binary zeroes. Since you are having an overflow I just 3 bytes of binary zeroes to the left of the actual summing field, thus making the field to be summed as 8 bytes which takes care of the overflow

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[yadav2005]

Kolusu,

I have a question why are inserting 3 Binary Zeroes when the field is Comp-3 Packed Decimal from pos 15 - 19.Can you please explain me , Thanks.

[expat]

I'd guess it's just a naming thing.

Anyway, binary zeros equate to PD zeros, so kolusu's solution was perfect.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

[Frank Yaeger]

yadav2005,

Your 5-byte PD value looks like this in hex: X'ddddddddds'

Each d is 0-9 and s is the sign (C, D or F).

To extend this 5-byte PD value to an 8-byte PD value, you would add zeros on the left to get this: X'000000ddddddddds'

The X'000000' part of this is equivalent to 3 binary zeros, so that's why Kolusu used 3X'00'. Alternatively, you could use 3Z since Z means binary zeros.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort