A fix is available
APAR status
Closed as program error.
Error description
Using OPT(FULL) and THREAD option the compiler loops on statement that contains RANDOM. With NOOPT the following compiler messages are received: IGYAS5125-U The compilation was terminated due to a compiler error in phase id: "IGYCASM1". IGYAS5100-U A register resolution failure occurred.
Local fix
Compile with NOTHREAD
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V4 who use the * * intrinsic function RANDOM and the compiler * * option THREAD. * * * **************************************************************** * PROBLEM DESCRIPTION: Loop during compile. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** When compiling with the THREAD compiler option, the code to call the internal lock/unlock for FUNCTION RANDOM was incorrect.
Problem conclusion
The COBOL compiler is changed to correctly call the internal LOCK/RELEASE.
Temporary fix
Comments
APAR Information
APAR number
PM78228
Reported component name
ENT COBOL FOR Z
Reported component ID
5655S7100
Reported release
420
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2012-11-30
Closed date
2013-01-18
Last modified date
2013-02-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK91066
Modules/Macros
IGYPFCEL
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655S7100
Applicable component levels
R420 PSY UK91066
UP13/01/23 P F301
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.2","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
04 February 2013