A fix is available
APAR status
Closed as program error.
Error description
EXCEPTION IGZXPRS1 OFFSET X'3C8' USING PROCEDURE POINTER CALL
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. FIXCAT keyword: COB0501T/K COB0502T/K COB0601T/K
Problem conclusion
The COBOL V5+ bootstrap routines are enhanced to handle being called by PROCEDURE-POINTERs.
Temporary fix
Comments
APAR Information
APAR number
PI79370
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-04-04
Closed date
2017-04-04
Last modified date
2017-05-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI46184 UI46190
Modules/Macros
IGZXBST1 IGZXBST2
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