PH66164: COBOL EXHIBITS DIFFERENT BEHAVIOR FOR DECIMAL OVERFLOW BETWEEN 31BIT MODE AND 64BIT MODE. FIX FOR AMODE64.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL program called from C++ module in 64-bit environment
  abends with decimal-overflow exception (0CA), while the same
  programs in 31-bit environment continue execution as expected.
  

Local fix

• Run in 31bit mode
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE 64 programs           *
  *                 in interlanguage communication (ILC)         *
  *                 applications.                                *
  ****************************************************************
  * PROBLEM DESCRIPTION: An AMODE 64 COBOL program terminates    *
  *                      with an S0CA abend or CEE3210S, 'The    *
  *                      system detected a decimal-overflow      *
  *                      exception (System Completion            *
  *                      Code=0CA)'.                             *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When the decimal overflow mask bit in PSW is
  set to 1 ('ON') and COBOL programs have expressions
  which cause a decimal overflow condition, the COBOL
  Runtime for AMODE 64 fails to suppress the S0CA abend.
  
  COB0603T/K COB0604T/K COB0605T/K
  

Problem conclusion

• The COBOL Runtime logic has been corrected to suppress
  the decimal overflow (S0CA) abend.
  

Temporary fix

Comments

• ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68235  FOR DESCRIPTION
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68235  FOR DESCRIPTION
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68235  FOR DESCRIPTION
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68235  FOR DESCRIPTION
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UO03704 UO03706 UO03749

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQJNI2
  IGZQR004
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7D0 PSY UO03704

     UP25/06/27 P F506

• R7E0 PSY UO03706

     UP25/06/27 P F506

• R7F0 PSY UO03749

     UP25/06/27 P F506

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.