PH59402: UNEXPECTED BEHAVIOR (ERROR MESSAGES) RECEIVED WHEN USING ARITH(EXTEND)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Unexpected behavior (error messages) received when using
  ARITH(EXTEND)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases compiling and running programs      *
  *                 compiled with ARITH(EXTEND) and using        *
  *                 COMP-2 data types to perform                 *
  *                 exponentiation calculations.                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: When the On Size Error clause is not    *
  *                      defined, results from exponentiation    *
  *                      calculations for programs compiled with *
  *                      ARITH(EXTEND) behave differently from   *
  *                      programs compiled with ARITH(COMPAT)    *
  *                      by producing LE error messages in       *
  *                      cases where COBOL Runtime warning or    *
  *                      error messages are expected.            *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  There was a logic error in the COBOL Runtime for
  performing exponentiation calculations using COMP-2 in
  three cases. When exponentiation calculations were performed
  using COMP-2 without ON SIZE ERROR, the exponentiation
  behaviour differed between ARITH(COMPAT) and
  ARITH(EXTEND) in 3 cases.
  
  Case 1 - Base = negative, Power = fractional (eg: 1.24)
  Case 2 - Base = zero, Power = zero
  Case 3 - Base = zero, Power = negative
  
  In the cases listed above, LE error messages were
  incorrectly generated causing the program to end.
  The correct behavior is that the following
  Run-time messages are generated for these cases:
  
  Case 1 - IGZ0048W
  Case 2 - IGZ0049W
  Case 3 - IGZ0050S
  

Problem conclusion

• The problem has been corrected.
  The problem was resolved by improving the COBOL Runtime
  logic used to perform exponentiation calculates. Now Run-time
  messages will be printed in these three cases:
  
  Case 1 - Base = negative, Power = fractional (eg: 1.24)
  Case 2 - Base = zero, Power = zero
  Case 3 - Base = zero, Power = negative
  
  This would ensure that ARITH(COMPAT) and
  ARITH(EXTEND) both have the same behavior when
  performing exponentiation calculation with COMP-2 data
  and without On Size Error.
  

Temporary fix

Comments

APAR Information

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

  PH58372

• 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 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

• R630 PSY UI95428

     UP24/01/31 P F401

• R631 PSY UI95429

     UP24/01/31 P F401

• R632 PSY UI95430

     UP24/01/31 P F401

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.