IBM Mainframe Forum

Posted: **Thu Nov 15, 2012 5:08 pm**

Hi,

I ran below SORT but getting rounded value (known thing) and expecting to get 500.75".

//STEP0001 EXEC PGM=SORT
//SORTIN DD *
2004
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(10:1,4,ZD,DIV,+4))

Output:

Select all

********************************* TOP OF DATA **********************************
2004 501
******************************** BOTTOM OF DATA ********************************

Expected Output:

Select all

********************************* TOP OF DATA **********************************
2004 500.75
******************************** BOTTOM OF DATA ********************************

Please help.

Thanks.

Posted: **Thu Nov 15, 2012 5:19 pm**

2004 divided by 4 is 501.

501 multiplied by 4 is 2004.

So your example is poor. We'll assume 2003.

Sort does not do "rounding". If you want rounding, you have to code it yourself.

Sort does not know about implied decimal places. If you want a result of 50075 then you have to make the value to be divided 200300. You then use an EDIT to give you the decimal places you want.

Posted: **Thu Nov 15, 2012 5:25 pm**

Your arithmetic teacher should be tarred, feathered, hanged and left on the gallows until it rots :mrgreen:

Posted: **Thu Nov 15, 2012 5:55 pm**

Yes Bill.....it was 2003 :oops:

.....what if I have more different values instead of one input record?

Thanks.

Posted: **Thu Nov 15, 2012 6:09 pm**

Bill, am I right with this code? Got results though

Select all

//*====================================================================*
//STEP0001 EXEC PGM=SORT
//SORTIN DD *
2003
2005
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(10:1,4,ZD,MUL,+100,DIV,+4,EDIT=(TTT.TT)))
//*

Thanks.

Posted: **Thu Nov 15, 2012 7:07 pm**

Yes, that is one way to do it. Do you know how it works, given that you are starting with only four bytes?

Select all

OVERLAY=(15:C'00',10:1,6,ZD,DIV,+4,EDIT=(TTT.TT)))

Would be another.

Posted: **Thu Nov 15, 2012 9:29 pm**

Thanks Bill.......nice idea

Posted: **Thu Nov 15, 2012 9:38 pm**

Bill, all attempts with your suggested code end with S0C7

Posted: **Thu Nov 15, 2012 9:44 pm**

Sorry, 15 should have been 5 :-)

It is adding the two zeros to your input.

Better, perhaps, so is not there permanently

Select all

OVERLAY=(10:1,4,C'00',10:10,6,ZD,DIV,+4,EDIT=(TTT.TT)))

Posted: **Thu Nov 15, 2012 9:49 pm**

ran it with latest code and got the results

IBM Mainframe Forum

How to get decimal places?

How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?

Re: How to get decimal places?