PH02826: An assembler subprogram may get an ABEND0CA after the COBOL v5+ run-time has issued a diagnostic message

Obtain the fix for this APAR.

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 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.