A fix is available
APAR status
Closed as program error.
Error description
After APAR PH33105, UUID4 hopes to use the hardware random number generator, and records whether this feature is available or not in the COBOL region control block upon first use of UUID4. This control block is allocated during CICS/LE initialization using the CICS key, so if CICS storage protection is enabled, UUID4 will abend S0C4. Environments other than CICS are unaffected.
Local fix
Temporarily run the caller of UUID4 with EXECKEY(CICS).
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.3 with programs * * that use the UUID4 intrinsic function under * * CICS. * **************************************************************** * PROBLEM DESCRIPTION: ABEND 0C4 occurs when UUID4 intrinsic * * function is used under CICS with * * storage protection on. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** The UUID4 intrinsic function makes use of the PRNO hardware instructions to do computations when the instructions are available. Information about the availability of the hardware instructions is stored in a runtime control block. This control block is protected by CICS storage protection. The update process that manages the information uses the wrong storage key to update the runtime control block, resulting in an ABEND 0C4.
Problem conclusion
Under CICS, the check for PRNO hardware availability is moved to a point prior to the COBOL Runtime control block storage become protected by CICS storage protection. The issue about storage key protection is avoided.
Temporary fix
Comments
APAR Information
APAR number
PH34885
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7C0
Status
CLOSED PER
PE
YesPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2021-02-26
Closed date
2021-03-23
Last modified date
2021-04-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI74556 UI74561
Modules/Macros
IGZBALCT IGZCER4 IGZCEV4 IGZCMGEN IGZCMGUE IGZEDCCT IGZIBMCT IGZIGZCT IGZLLIBV IGZXAPI IGZXCDA IGZXD24 IGZXDMR IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXPK2
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
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.
[{"Line of Business":{"code":"LOB17","label":"Mainframe TPS"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7C0"}]
Document Information
Modified date:
03 April 2021