A fix is available
APAR status
Closed as program error.
Error description
The compiler fails to generate code for an IF statement. Statements are deleted when suppressing FIPS messages.
Local fix
Use compile option FLAGSTD(H), modify the exit to "informational" level for messages other than IGYPS8233-E.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL Version 4.2 who * * use the compiler option FLAGSTD(H) to enable * * FIPS messages and the compiler option * * MSGEXIT to suppress some of them. * * * **************************************************************** * PROBLEM DESCRIPTION: When a message is suppressed the * * compiler may also suppress the * * generated code for the statement. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The Enterprise COBOL compiler was incorrectly deleting generated code on statements that had FIPS messages that the user suppressed via the MSGEXIT routine.
Problem conclusion
The Enterprise COBOL compiler is changed to correctly generate code when a FIPS message is suppressed.
Temporary fix
Comments
APAR Information
APAR number
PM71378
Reported component name
ENT COBOL FOR Z
Reported component ID
5655S7100
Reported release
420
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2012-08-22
Closed date
2012-10-15
Last modified date
2012-11-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK82630
Modules/Macros
IGYTPUTE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655S7100
Applicable component levels
R420 PSY UK82630
UP12/10/17 P F210
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"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.2","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
01 November 2012