A fix is available
APAR status
Closed as program error.
Error description
In an application with a mixture of Enterprise COBOL V5 and pre-COBOL V5 programs, using a file defined as EXTERNAL, an exception occurs in IGZEVEX. The symptom will be either a s0c1 due to a bad branch out of IGZEVEX at offset x'56' or a s0c4 in IGZEVEX at offset x'5E'. The cause of the exception is an invalid address in reg12.
Local fix
Compile all programs with either COBOL V5 or all with pre-COBOL V5.
Problem summary
**************************************************************** * USERS AFFECTED: Users of mixed Enterprise COBOL z/OS V5 * * with a mixture of pre V5 and V5+ programs, * * where the programs have EXTERNAL VSAM files * * and the file is OPENed in one program and * * has Input/Output operations in another * * program, and the I/O operation causes a * * DFSMS logical or physical error. * * * **************************************************************** * PROBLEM DESCRIPTION: Program ABENDs with OC4 System * * Completion Code during VSAM I/O * * operation. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** During VSAM EXIT processing, the register used to locate the save area was incorrect. The program accesses invalid address and ABENDs.
Problem conclusion
The DFSMS User EXITs for VSAM that is provided by COBOL Runtime have been corrected. FIXCAT keyword: COB0501T/K COB0502T/K
Temporary fix
Comments
APAR Information
APAR number
PI52698
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-11-17
Closed date
2016-02-11
Last modified date
2016-03-02
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
R7A0 PSY UI35305
UP16/02/19 P F602
R780 PSY UI35306
UP16/02/19 P F602
R790 PSY UI35307
UP16/02/19 P F602
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