A fix is available
APAR status
Closed as program error.
Error description
With APAR PI92503 applied, under some coding situations, the compiler may still give error: Assertion failed at /build/cob/5.2/tr.r14.cobol-prod-opt/tr.source/il/symbol/TRSymbo lBase.hpp:166: !isBCDType(d) || s > 0
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling * * programs that use the INTEGER or * * INTEGER-PART intrinsic function with an * * argument that has an integer precision of 0. * **************************************************************** * PROBLEM DESCRIPTION: Compiler abort with message Assertion * * failed at * * /build/cob/5.2/tr.r14.cobol-prod-opt/t * * r.source/il/symbol/TRSymbolBase.hpp:16 * * 6: !isBCDType(d) || s > 0 * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** When generating code for the INTEGER and INTEGER-PART intrinsic functions, the compiler was attempting to create a result temporary with a length of 0 because it was calculating the size of the temporary based on the integer precision of the argument to the intrinsic function, which was 0 in this case.
Problem conclusion
The compiler was updated to ensure that an integer precision of at least one is used when creating the result temporary for the INTEGER and INTEGER-PART intrinsic functions.
Temporary fix
Comments
APAR Information
APAR number
PI95087
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
620
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2018-03-13
Closed date
2018-03-15
Last modified date
2018-04-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCASMB IGYCCBE IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4 IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8 IGYCJA$D IGYCJA$R IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPI IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV IGYEQCWI IGYMSGE IGYMSGK IGYMSGT IGYQCBE IGYWCL IGYWCLG IGYZQDRV IGYZQENU IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R620 PSY UI54510
UP18/03/28 P F803
R621 PSY UI54511
UP18/03/28 P F803
R622 PSY UI54512
UP18/03/28 P F803
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":"620","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023