A fix is available
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 number
PH62019
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7E0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2024-06-24
Closed date
2024-07-22
Last modified date
2024-08-01
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.
[{"Business Unit":{"code":"BU048","label":"IBM Software"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7E0","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
01 August 2024