A fix is available
APAR status
Closed as program error.
Error description
The compiler is setting up and initializing upon entry separate pointers to a file's file status for each of the primary and alternate entry points, but the FIB (file information block) for the file can itself point to only one of them. This can lead to a situation where the file status pointer pointed to by the FIB is not initialized, leading to an 0C4 attempting to set the status.
Local fix
Avoid mulitple entry points.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 5.2 compiling and * * running programs that contain the RECURSIVE * * clause in the PROGRAM-ID paragraph, or are * * compiled with the THREAD compiler option, * * and contain references to file related data * * items such as file status or linage * * counters, and have one or more secondary * * entry points. * * * **************************************************************** * PROBLEM DESCRIPTION: Runtime abend (SOC4). * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The compiler was inadvertently generating multiple, different temps that were managed improperly when setting up the mechanism that allows the COBOL runtime to locate file related items such as file status and linage counters.
Problem conclusion
The compiler was updated to generate only a single temp for each such file-related item, even when there are secondary entry points present.
Temporary fix
Comments
APAR Information
APAR number
PI76759
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
520
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-02-16
Closed date
2017-03-22
Last modified date
2017-04-10
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYCRCTL
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R520 PSY UI45765
UP17/03/31 P F703
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
15 May 2020