PH62019: COMPUTE OF R**S (WHERE R=0 AND S=0) LOOPS WITH ARITH(COMPAT) FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• 64-bit: COMPUTE with ARITH(COMPAT) and LP(64) causes looping
  during runtime in AMODE 64
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE 64 COBOL programs     *
  *                 compiled with ARITH(COMPAT) performing       *
  *                 exponentiation calculations.                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: When 0**0 is computed without the ON    *
  *                      SIZE ERROR clause in an AMODE 64 COBOL  *
  *                      program compiled with ARITH(COMPAT),    *
  *                      message IGZ049W is repeatedly emitted   *
  *                      in an infinite loop.                    *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When 0**0 is performed without the ON SIZE ERROR clause,
  message IGZ049W is emitted repeatedly in an infinite loop.
  The root cause was the COBOL runtime did not return to the
  internal rounding function once the message was printed
  by the internal message function to emit IGZ049W.
  
  COB0603T/K COB0604T/K
  

Problem conclusion

• The problem in the COBOL Runtime has been corrected.
  Runtime message IGZ049W will be emitted once
  when base = zero and power = zero is used in an exponentiation
  calculation in AMODE 64 COBOL programs compiled with
  ARITH(COMPAT).
  

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

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQJNI2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7C0 PSY UI97725

     UP24/07/30 P F407

• R7D0 PSY UI97726

     UP24/07/30 P F407

• R7E0 PSY UI97727

     UP24/07/30 P F407

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.