A fix is available
APAR status
Closed as program error.
Error description
An assembler program running amode(31) provides a save area below the line for the purpose of invoking amode(24) code, but when so calling an amode(24) COBOL v5 program, there's an abend0c4 in IGZXBST, the COBOL bootstrap program. IGZXBST, running amode(24), is examining its caller's caller's save area, which is above the line. In the reported case, this came to light only after the COBOL v5 run-time was moved from JOBLIB/STEPLIB to the linklist, resulting in a different memory layout.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5 AMODE(24) program called * * by an AMODE(31) caller, whose caller is * * using above the line storage for its save * * area. * * * **************************************************************** * PROBLEM DESCRIPTION: When an Enterprise COBOL V5 AMODE(24) * * program is called, an 0C4 ABEND may * * occur in IGZXBST if the save area of * * its caller's caller is above the line. * * * **************************************************************** * RECOMMENDATION: * **************************************************************** In an attempt to determine if the call is eligible for fast path processing, the bootstrap program IGZXBST back-tracks the call sequence and accesses the save areas to see if the call was done by another Enterprise COBOL V5 program using a function descriptor. However in this case the caller's caller is an assembler program using above the line storage for its save area, which is non-addressable by the AMODE(24) program, resulting in an 0C4 ABEND.
Problem conclusion
The bootstrap programs IGZXBST and IGZXBST1 are corrected to check for the addressiblity of the save area before accessing it.
Temporary fix
Comments
APAR Information
APAR number
PI38102
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
2015-03-31
Closed date
2015-04-15
Last modified date
2015-06-16
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