PM42963: differing truncation results in EGL and VAGen with math=CSPAE option

Rational Business Developer Fix Pack 8 (7.5.1.8) for 7.5.1

APAR status

• Closed as program error.

Error description

• Environment: Windows
  Product name: IBM? Rational? Business Developer
  
  Program Version    :  7.5.1.7
  Description.
  Migrating VAGen code to EGL produces errors in the generated
  COBOL causing an S07C abend at runtime.
  
  The problem occurs when math=CSPAE is specified in the build
  descriptor when generating the COBOL code.
  
  In EGL the COBOL Generator implements the math=CSPAE build
  descriptor option as documented where it is truncating the
  intermediate results.  The VAGen implementation does not match
  the documentation in that it truncates at the final assignment
  not the intermediate rounding/truncation as math=CSPAE is
  intended to.
  
  EGL should include an option to be compatible in behavior with
  the VAGen implementation to avoid this error.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  VAGen was using the number of decimals from the target
  variable and then using the maximum size of 18 - decimals
  for the significant digit part. EGL did not use the
  necessary number of significant digits.
  

Problem conclusion

• Now EGL uses the maximum allowed, either 18 or 31 - number
  of decimals.
  

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