A fix is available
APAR status
Closed as program error.
Error description
QSAM OPEN of a VSAM dataset, without user file status or declarative, is missing the issue of IGZ035S message. The runexecution should get condition code=4038 instead of condition code=0004 There should be two run time error messages: IGZ0200W IGZ0035S <--- MISSING IGZ0035S There was an unsuccessful OPEN or CLOSE of file xxxxx in program xxxxxx Neither FILE STATUS nor an ERROR declarative were specified. The status From compile unit xxxx at entry point xxxxx at compile unit offset address xxxxx.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Enterprise COBOL V5.x users that are * * expecting the run time IGZ0035S message for * * file status 37, 39 or 98 in QSAM OPEN, when * * the FILE STATUS clause is not specified for * * the FD and no EXCEPTION/ERROR DECLARATIVES * * are applicable to this OPEN operation. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output, missing run time * * message: IGZ0035S message is not being * * issued in QSAM OPEN statements that are * * expected to return file status 37, 39 * * or 98. More specifically, file status * * 39 is reported on OPEN when there is a * * mismatch in the fixed file attributes * * (for example, FD is defined as a QSAM * * file whereas the actual DD assigned in * * the SELECT statement is a VSAM file). * * File status 37 occurs when the file is * * being OPENed in a mode that the file * * does not support (for example, opening * * a file in INPUT mode when read * * operations are not allowed). Lastly, * * file status 98 is returned when there * * are issues with the DD dynamic * * allocation. * * * **************************************************************** * RECOMMENDATION: Apply provided service. * * * **************************************************************** The error handling logic was not issuing the IGZ0035S message when the FILE STATUS clause is not used and EXCEPTION/ERROR DECLARATIVES are not applicable for QSAM OPEN statement that would return file status 37, 39 or 98. FIXCAT keyword: COB0501T/K COB0502T/K
Problem conclusion
The error handling logic mentioned in the summary has been corrected. FIXCAT keyword: COB0501T/K COB0502T/K
Temporary fix
Comments
APAR Information
APAR number
PI52420
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-12
Closed date
2015-12-07
Last modified date
2016-01-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI33595 UI33596 UI33597
Modules/Macros
IGZCEV4 IGZLLIBV IGZXAPI 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
R7A0 PSY UI33595
UP15/12/16 P F512
R780 PSY UI33596
UP15/12/16 P F512
R790 PSY UI33597
UP15/12/16 P F512
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