A fix is available
APAR status
Closed as program error.
Error description
For a VSAM file opened as I-O, an sc03 abend is received. The file does receive non-zero File Status codes on the OPEN, READ NEXT, and CLOSE - all of which are expected.
Local fix
Open the file as Input.
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5+ users running progrmas * * that have OPEN statements for indexed VSAM * * files with alternate indexes, where the * * OPEN actually failed. * * * **************************************************************** * PROBLEM DESCRIPTION: ABEND at program termination. An SC03 * * ABEND is issued at program termination * * when a COBOL program OPENs an indexed * * VSAM file with alternate indexes in * * I-O mode and the OPEN was unsuccessful * * (user filestatus is greater than 10 * * and not 97). * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** The error handling logic in the OPEN routine did not close all alternate indexes ACBs when the OPEN was unsuccessful. During program termination, DFSMS detected some ACBs were still in OPEN state and issued an ABEND SC03.
Problem conclusion
The error handling logic has been corrected to close all the ACBs when an unsuccessful OPEN occurs, thus preventing the SC03 abend at termination. This APAR also fixes an S0C4 abend that occurs when trying to OPEN an indexed file with alternate indexes that failed to open successfully.
Temporary fix
Comments
APAR Information
APAR number
PI59277
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-03-16
Closed date
2016-04-25
Last modified date
2016-05-04
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 UI37309
UP16/04/29 P F604
R780 PSY UI37310
UP16/04/29 P F604
R790 PSY UI37311
UP16/04/29 P F604
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