A fix is available
APAR status
Closed as program error.
Error description
COBOL Compiler fails with error message: IGYCB7104-U Failed assertion on ./Register.cpp:40
Local fix
Not available.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.2 compiling * * programs that use FUNCTION * * STANDARD-DEVIATION() with an * * argument that is 8 bytes long but is not * * USAGE COMP-2. * * * **************************************************************** * PROBLEM DESCRIPTION: Compiler ABORT with message * * IGYCB7104-U Internal error while * * compiling function xyz. * * Failed assertion on ./Register.cpp:40. * * * **************************************************************** * RECOMMENDATION: Apply provided service. * * * **************************************************************** The compiler needs to generate a conversion of the argument from the user type to COMP-2 as part of the computation of the result. The internal logic was roughly "if type is not float and the size is not 8 then ..." instead of "if type is not float or the size is not 8 then ...".
Problem conclusion
The Enterprise COBOL V5.2 compiler was changed to handle the case where the argument was 8 bytes but not USAGE COMP-2 in order avoid the ABORT.
Temporary fix
Comments
APAR Information
APAR number
PI40826
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
520
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2015-05-11
Closed date
2015-05-21
Last modified date
2015-06-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYCCBE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R520 PSY UI27877
UP15/05/28 P F505
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":"520","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"520","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
01 June 2015