PH55856: DECIMAL OVERFLOW CONDITION IN COBOL MATH RESULTS IN U4087 ABEND INTERMITTENTLY

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Decimal overflow condition in COBOL math results in U4087 abend
  intermittently
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs which have         *
  *                 expressions causing a decimal overflow.      *
  ****************************************************************
  * PROBLEM DESCRIPTION: The program terminates with U4087 or    *
  *                      the like. When a dump is taken, both    *
  *                      of the following are observed:          *
  *                                                              *
  *                      1. IGZCEV10(program) IGZCEV4(module)    *
  *                      are found in the traceback.             *
  *                                                              *
  *                      For example,                            *
  *                                                              *
  *                      TRACEBACK:                              *
  *                      [...omitted...]                         *
  *                      CEEPLPKA  CEEHDSP  ...                  *
  *                      IGZCEV4   IGZCEV10 E+148                *
  *                                                              *
  *                      2. The decimal overflow mask bit        *
  *                      (bit 21) in PSW is 1('ON').             *
  *                                                              *
  *                      For example, given                      *
  *                        Program Status Word (PSW) :           *
  *                        078D1400 8D259216                     *
  *                                                              *
  *                      the decimal overflow mask is ON because *
  *                                                              *
  *                      x'078D1' is bit 0 ~ 19                  *
  *                      x'4' is bit 20 ~ 23:                    *
  *                      bit 20: 0                               *
  *                      bit 21: 1 (decimal overflow mask)       *
  *                      bit 22: 0                               *
  *                      bit 23: 0                               *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  In general, when COBOL programs have expressions which cause
  a decimal overflow, it is not raised as long as the decimal
  overflow mask in PSW set to 0('OFF'). Otherwise a decimal
  overflow condition is raised but COBOL Runtime handles and
  ignores the condition silently.
  
  During the handling process, COBOL Runtime happened to access
  to a program which had been deleted from the memory,
  consequently resulting in an abend.
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K
  

Problem conclusion

• COBOL 5 and 6 Runtime has been improved and protected from
  abending when deleted programs are accessed.
  

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:

Modules/Macros

• IGZ5OPT  IGZ6OPT  IGZCER4  IGZCEV4  IGZCJNI2 IGZLLIBV IGZXAPI
  IGZXCA31 IGZXCDA  IGZXD24  IGZXDMR  IGZXJNI2 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

• R7C0 PSY UI93321

     UP23/08/31 P F308

• R7D0 PSY UI93322

     UP23/08/31 P F308

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.