PM21505: Result of using AS DECIMAL with truncateExtraDecimals=YES is wrong when running EGL generated COBOL program on iSeries

APAR status

• Closed as program error.

Error description

• Rational Business Developer V7.5.1.5:
  
  The result of using AS DECIMAL with the
  truncateExtraDecimals=YES build descriptor option is wrong when
  running the EGL generated COBOL program on iSeries (System i).
  
  The results are correct running the program in the EGL debugger
  and the EGL generated COBOL program for zSeries (System z).
  
  For example:
  
    field 1char(10) = "123.567";
    field2 num(10, 5);
    field2 = field1 as decimal(10, 5);
  
  the result for field2 on iSeries is 123.56699 instead of
  123.56700.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The problem lies in the iSeries COBOL compiler's handling of
  the intrinsic function numval-c. It uses floating point and
  sometimes produces a close, but inexact answer. This causes
  EGL to produce an answer based on this inexact value. The
  problem has been resolved by a change in EGL's code
  generation. For iSeries only, assignments that used to use
  numval-c are now calling the EGL runtime instead and using
  its technique for determining the value of a text field as a
  number. This never uses floating point and produces the
  correct value in all cases.
  

Problem conclusion

• Software updated. Fixtest available.
  

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

• Fixed component name

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R751 PSN

     UP