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
PH03585
-
Reported component name
LE ENT COBOL LI
-
Reported component ID
568819812
-
Reported release
7B0
-
Status
CLOSED PER
-
PE
NoPE
-
HIPER
NoHIPER
-
Special Attention
NoSpecatt / Xsystem
-
Submitted date
2018-10-03
-
Closed date
2018-10-12
-
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:
UI59089
Modules/Macros
-
IGZACALL IGZCEV4 IGZCMGEN IGZCMGUE IGZLLIBV IGZXAPI IGZXCDA IGZXD24 IGZXDMR 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
-
R7B0 PSY UI59089
UP18/10/20 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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF054","label":"z\/OS"}],"Version":"7B0","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
28 March 2021