A fix is available
APAR status
Closed as program error.
Error description
Rather than pointing directly to a target module, a COBOL v5+ function- or procedure-pointer points to a descriptor intended to reduce the code path of the call. However, if the COBOL v5+ run-time is not active, calling through such a function- or procedure-pointer will lead to an abend0C4 in the IGZXBST bootstrap routine associated with the target module. The error context in which this problem was reported was unusual, and involved construction of a procedure-pointer in one enclave and its use in another enclave created via CEEPIPI. In other words, the typical use of function- and procedure-pointer's is unaffected by this problem. Also unaffected are COBOL v4.2 and earlier target modules, whose function- and procedure-pointer's point directly to the target module.
Local fix
Use an intermediate COBOL module to call the function- or procedure-pointer.
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5 (and V6) users running * * Programs that call Enterprise COBOL V5+ * * programs using procedure-pointers in a * * Language Environment enclave (run unit) * * where COBOL V5+ is not already running. * * * **************************************************************** * PROBLEM DESCRIPTION: Runtime ABEND: When a * * procedure-pointer to an Enterprise * * COBOL V5+ program is used in a new LE * * enclave where COBOL V5+ is not already * * running yet, an ABEND0C4 may occur. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** The bootstrap code in a COBOL V5+ procedure-pointer assumes the V5+ runtime is already up and running, because the only way to obtain a procedure-pointer is by using the COBOL SET ENTRY statement. However, if the procedure-pointer is passed and used in a new LE enclave, for example via the assembler LINK macro, a COBOL runtime environment may not be available in the new LE enclave. FIXCAT keyword: COB0501T/K COB0502T/K COB0601T/K
Problem conclusion
The procedure-pointer bootstrap code is corrected to check for an active COBOL environment before proceeding.
Temporary fix
Comments
APAR Information
APAR number
PI64114
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
2016-06-13
Closed date
2016-07-21
Last modified date
2016-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI39543 UI39544
Modules/Macros
IGZCEV4 IGZLLIBV IGZXAPI IGZXDMR IGZXD24 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.
[{"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