IBM Mainframe Forum

by **kolakumar** » Sun Apr 16, 2017 12:40 am

Hi

How to handle BANKERS ROUNDING logic in cobol

by **Robert Sample** » Sun Apr 16, 2017 1:58 am

What have you tried so far? What is the specific problem you're having? This is a HELP forum, not a WRITE-THE-CODE-FOR-YOU forum. From what I can see from my Google search, the algorithm doesn't seem particularly difficult to implement.

by **prino** » Sun Apr 16, 2017 1:59 am

By using PL/I, where the maintainers have just added a builtin (ROUNDTOEVEN) function requested by yours truly to do just that.

Or translate this to COBOL:

dcl rd fixed (9,5);

if (unspec(rd) & '000000fff0'bx) = '0000005000'bx then
if (unspec(rd) & '0000010000'bx) = '0000000000'bx then
rd = rd - 0.005;

by **kolakumar** » Mon Apr 17, 2017 7:12 pm

Hi

Whether is there any possibility in COBOL to get this bankers rounding logic by changing any Inbuilt options?

by **Robert Sample** » Mon Apr 17, 2017 7:46 pm

Enterprise COBOL has no facility to do this. You MUST write code to implement it in COBOL.

IBM Mainframe Forum

How to write a logic for BANKERS ROUNDING in cobol

How to write a logic for BANKERS ROUNDING in cobol

Re: How to write a logic for BANKERS ROUNDING in cobol

Re: How to write a logic for BANKERS ROUNDING in cobol

Re: How to handle BANKERS ROUNDING in cobol

Re: How to write a logic for BANKERS ROUNDING in cobol