PH64890: DIFFERENT RESULTS USING THE NUMVAL FUNCTION FOR COBOL V6.3 AND V6.4

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Program produces different rounding results compared to one
  compiled without LP(64) and ARCH(14) options.
  
  The different value is the result of using COMPUTE = FUNCTION
  NUMVAL on the value, putting that into a packed decimal (COMP-3)
  data item.
  
  ADDITIONAL SYMPTOMS:
  Incorrect output
  

Local fix

• BYPASS/CIRCUMVENTION:
  Compile at a different ARCH level than ARCH(14).
  
  RECOVERY ACTION:
  Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.4 compiling      *
  *                 programs with LP(64) and ARCH(14)            *
  *                 that calls NUMVAL on alphanumeric data       *
  *                 items containing Floating-Point values.      *
  ****************************************************************
  * PROBLEM DESCRIPTION: Program produces different rounding     *
  *                      results compared to one compiled        *
  *                      without LP(64) and ARCH(14) options.    *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF                       *
  ****************************************************************
  In the z16 architecture, the compiler generates instructions to
  inline the conversions from alphanumeric data items containing
  Floating-Point values to numeric values internally, instead of
  calling the runtime method. In rare instances, this inlined
  algorithm may produce different results compared to one
  compiled without LP(64) and ARCH(14) options.
  

Problem conclusion

• The compiler has been updated to generate correct instructions
  for NUMVAL.
  

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:

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOSCN IGYCPGEN
  IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT  IGYCSCAN IGYCSIMD
  IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8
  IGYCUE$D IGYCUE$R IGYCXREF IGYDRV   IGYEQCWI IGYMSGE  IGYMSGK
  IGYMSGT  IGYQCBE  IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UO02221

     UP25/03/01 P F502

• R641 PSY UO02222

     UP25/02/28 P F502

• R642 PSY UO02223

     UP25/02/28 P F502

• R64H PSY UO02224

     UP25/02/28 P F502

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.