Sorting amounts and find their difference using sort

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

Hi,

I have an I/P file with LRECL 80, FB

ID Amounts CR/DR
--- ---------- -------
10 100.00 CR
10 200.00 DR
10 100.00 DR

My O/P should be

10 100.00 DR

ID -> Start position =1, length 2
Amounts -> Start position 3, length=10
CR/DR -> Start position 13, length=2

Here the Amounts are in displayable format (ZZZ.99)

Can you please let me know how to do this using DFSORT?

Regards,
Kiran.

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

Hi,

I have an I/P file with LRECL 80, FB

ID Amounts CR/DR
--- ---------- -------
10 100.00 CR
10 200.00 DR
10 100.00 DR

My O/P should be

10 200.00 DR

ID -> Start position =1, length 2
Amounts -> Start position 3, length=10. Amounts are not in SFF format. its in ZZZ.99 format.
CR/DR -> Start position 13, length=2

Here the Amounts are in displayable format (ZZZ.99)

Can you please let me know how to do this using DFSORT?

Regards,
Kiran.

Regards,
Chinni.

Skolusu · Posted: Wed Feb 18, 2009 9:55 pm

chinnielr,

If you sum the amounts it would be 10 200.00DR , not 100.00 DR

I assumed CR is positive amounts and DR is negative amounts. The following JCL will give you the desired results

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

Hi Kolusu,

Thanks for your kind reply. Can you please explain me the below syntax.
OVERLAY=(81:C'+',3,10,81,11,SFF,PD,LENGTH=8))

Regards,
Chinni.

Skolusu · Posted: Wed Feb 18, 2009 11:52 pm

chinnielr,

You have the Amounts in CR and DR form. We need to convert them into positive and negative numbers inorder to sum.

So using an IFTHEN we look at the CR/DR flag and put and + or - negative sign in 81st byte followed by your amount field from pos 3 for 10 bytes

so now your Amount field looks like this at pos 81 for 11 bytes which would look like SFF format.

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

Hi Kolusu,

I am glad to see you response. Thanks. Can you kindly let me know how you decided 8 bytes for PD?

Thanks and regards,
Chinni.

Skolusu · Posted: Thu Feb 19, 2009 12:26 am

chinnielr,

Packed-decimal(PD) items occupy 1 byte of storage for every two decimal digits and the rightmost byte contains only one digit and the sign. Since your input is only 10 bytes of decimal digits data I chose 8 bytes of Packed decimal format as we are summing.