A fix is available
APAR status
Closed as program error.
Error description
COBOL V4.2 program sets a READ VSAM file status 10 (RC=4) while COBOL V5/V6 sets the file status 46 for VSAM READ Alternate Index. Correct CBL Runtime.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5+ users that are * * compiling and running programs which * * perform IO operations on a VSAM file with * * alternate index and containing duplicate * * data. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect FILE STATUS at runtime: An * * Enterprise COBOL V5+ program fails * * with file status 46 when a READ * * operation is performed on a VSAM file * * with duplicate alternate index keys. * * Enterprise COBOL V4 correctly returns * * file status 10. The behaviour of * * Enterprise COBOL V5+ should match the * * correct V4 behaviour. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The runtime did not handle cases with duplicate keys and incorrectly returned file status 46, when file status 10 was expected. FIXCAT keyword: COB0501T/K COB0502T/K COB0601T/K
Problem conclusion
The error handling logic discussed in the summary has been corrected.
Temporary fix
Comments
APAR Information
APAR number
PI78973
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7A0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-03-28
Closed date
2017-04-20
Last modified date
2017-05-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI46585 UI46586
Modules/Macros
IGZCEV4 IGZLLIBV IGZXAPI IGZXBST1 IGZXBST2 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