A fix is available
APAR status
Closed as program error.
Error description
As part of the COBOL v5+ run-time issuing a diagnostic message, the Common Debug Architecture (CDA) is invoked if the TEST or DWARF options were used to compile the program incurring the diagnostic. Use of CDA causes LE to enable decimal overflow, as C/C++ programs require decimal overflow to be enabled. This has no effect on COBOL programs, as decimal overflows in COBOL are suppressed if they occur in a decimal overflow enabled environment. However, no such suppression occurs for assembler programs. Moving from earlier COBOLs that did not use CDA may thus surface decimal overflows (CEE3210S The system detected a decimal-overflow exception (System Completion Code=0CA)). Due to the way in which LE reports exceptions, the exception may be attributed to the caller of the assembler module.
Local fix
Compile with NOTEST(NODWARF)
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5 and later * * releases running programs compiled with the * * TEST or NOTEST(DWARF) option, where a * * non-LE program (e.g. assembler) is invoked * * during the run. * * * **************************************************************** * PROBLEM DESCRIPTION: ABEND0CA occurs in a non-LE program * * (eg. assembler) after Debug Tool has * * started, or after a COBOL runtime * * message (message prefix IGZ) has been * * emitted. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** After COBOL runtime loads the IGZDEBUG or IGZXCDA module, which is needed when running Debug Tool or when COBOL runtime messages are emitted, the decimal overflow mask in PSW (bit 21) is enabled. Subsequently if decimal overflow exception condition occurs in a non-LE program, it would terminate with CEE3210S. FIXCAT keyword: COB0501T/K COB0502T/K COB0601T/K COB0602T/K
Problem conclusion
The COBOL runtime is changed to save and restore the decimal overflow mask in the PSW when IGZXCDA is loaded into the LE enclave.
Temporary fix
Comments
APAR Information
APAR number
PH02826
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
2018-09-13
Closed date
2018-10-15
Last modified date
2018-11-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PH03585 UI59102
Modules/Macros
IGZACALL IGZCEV4 IGZLLIBV IGZXAPI IGZXCDA 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 UI59102
UP18/10/19 P F810
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