PI20757: EGL THROWS RUNTIME DIVIDE BY ZERO EXCEPTION ON A MATHLIB ROUND FUNCTION CALL

Rational Business Developer Fix Pack 2 (8.5.1.2) for 8.5.1
Rational Business Developer 9.1.1
Rational Business Developer Fix Pack 1 (9.0.1.1) for 9.0.1
Rational Business Developer Fix Pack 1 (9.1.1.1) for 9.1.1
Rational Business Developer Fix Pack 2 (9.0.1.2) for 9.0.1

APAR status

• Closed as fixed if next.

Error description

• When dividing by zero on a mathlib round function call, VAG
  allowed it and set the overflow flag, whereas EGL is causing a
  COBOL runtime divide by zero exception. EGL should be made to
  allow the exception like VAG does
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * This problem occurs only for users that use the              *
  * mathlib.round function and the 1st argument to that function *
  * causes an overflow or divide by zero. They would see a COBOL *
  * runtime exception occur indicating that there is a problem.  *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * VAG caused the overflow or divide by zero to be ignored and  *
  * instead caused an EGL overflow flag to be set, indicating    *
  * that the resulting value is not valid. EGL instead allowed   *
  * COBOL to issue an exception. The code has been changed to    *
  * use the VAG technique instead. This only affects user that   *
  * would have received a COBOL runtime exception.               *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

Applicable component levels

• R851 PSY

     UP

• R901 PSY

     UP

• R911 PSY

     UP