PI40851: (COB V5.1) MULTIPLY BY ZERO PRODUCES A S0C9 DIVIDE BY ZERO EXCEPTION AT OPT(0)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• (COB V5.1) A multiply by zero may produce an abend0C9 divide by
  zero exception at OPT(0).  The error received is:
  CEE3209S The system detected a fixed-point divide exception
  (System Completion Code=0C9).
  
  An example of code that can produce the abend is:
  
  COMPUTE WS-AVG-YR2 ROUNDED = WS-AVERAGE * 24
  where WS-AVERAGE = 0.
  

Local fix

• Compile program at OPT(1) or OPT(2).
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5.2 compiling and  *
  *                 running programs that have arithmetic        *
  *                 statements with the ROUNDING phrase and are  *
  *                 operating on binary (i.e., BINARY, COMP,     *
  *                 COMP-4, or COMP-5) numeric data items that   *
  *                 may contain zero.                            *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND 0C9 with the following message    *
  *                      may occur:                              *
  *                                                              *
  *                      CEE3209S The system detected a fixed-   *
  *                      point divide exception (System          *
  *                      Completion Code=0C9).                   *
  *                      From compile unit TRGXCAI5 at entry     *
  *                      point TRGXCAI5 at compile unit offset   *
  *                      +000015C0 at entry offset +000015C0 at  *
  *                      address 107015C0.                       *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply provided service.                      *
  *                                                              *
  ****************************************************************
  The compiler was using a divide instruction to perform the
  rounding operation but the divide was not safe in all
  situations.
  

Problem conclusion

• The COBOL compiler was updated to avoid using an unsafe divide
  operation during rounding of binary numeric values.
  

Temporary fix

Comments

APAR Information

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

  PI39914

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

Modules/Macros

• IGYCCBE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI27877

     UP15/05/28 P F505

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.