A fix is available
APAR status
Closed as program error.
Error description
With a mix of COBOL V5 and pre-COBOL V5 programs, using a Procedure Pointer CALL may result in an s0c4 exception in IGZXPRS1. Failing instruction is an OI (9601 E004) due to an invalid address in reg14.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL users compiling and * * running programs that use PROCEDURE-POINTER * * data items to point to COBOL V5+ programs. * * * **************************************************************** * PROBLEM DESCRIPTION: Runtime ABEND S0C4. When a * * PROCEDURE-POINTER to a COBOL V5+ * * program is setup using the literal * * format of the "SET ... TO ENTRY ..." * * statement, and the PROCEDURE-POINTER * * is subsequently used in a different * * program, an S0C4 ABEND may occur. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The literal format of the "SET ... TO ENTRY ..." statement does not invoke the COBOL runtime, so the pointer is not a proper function descriptor that will handle locating the proper working-storage for the program.
Problem conclusion
The COBOL V5+ bootstrap routines are enhanced to handle being called by PROCEDURE-POINTERs
Temporary fix
Comments
APAR Information
APAR number
PI76841
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
790
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-02-17
Closed date
2017-03-20
Last modified date
2017-04-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGZXLPKA
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.
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSCVR7X","label":"Runtime"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
14 December 2020