PI97551: WHEN THE DIVIDEND IS REDEFINED AS THE QUOTIENT, A DIVIDE GIVING REMAINDER CAN GIVE THE WRONG REMAINDER

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the dividend is redefined as the quotient, a DIVIDE GIVING
  REMAINDER can give the wrong remainder.  This occurs at all
  optimization levels.
  
  Example:
  When WSCD11-PRODUCT-ACCUM = +0195 and WSDC11-ELEVEN = +011:
  
  WORKING-STORAGE SECTION.
  01  WS.
      05  WSCD11-PRODUCT-ACCUM     PIC S9(4) COMP-3.
      05  WSCD11-QUOTIENT  REDEFINES WSCD11-PRODUCT-ACCUM    <==
  Note the REDEFINES
                                   PIC S9(4) COMP-3.
      05  WSCD11-REMAINDER         PIC S99 COMP-3.
      05  WSCD11-ELEVEN            PIC S999 COMP-3 VALUE +11.
  
  DIVIDE WSCD11-PRODUCT-ACCUM BY WSCD11-ELEVEN,
       GIVING WSCD11-QUOTIENT
        REMAINDER WSCD11-REMAINDER.
  
  Under COB V4.2, WSCD11-QUOTIENT = +0017
                  WSCD11-REMAINDER = +08
  
  Under COB V6.1, WSCD11-QUOTIENT = +0017
                  WSCD11-REMAINDER = -70 <= Incorrect
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5.2 compiling and  *
  *                 running programs containing a DIVIDE         *
  *                 statement with GIVING and REMAINDER          *
  *                 phrases, where the data item receiving the   *
  *                 quotient overlaps in memory with the data    *
  *                 item containing the dividend or the data     *
  *                 item containing the divisor, assuming such   *
  *                 data items exist.                            *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect runtime result.  The          *
  *                      remainder of the DIVIDE statement is    *
  *                      calculated incorrectly.                 *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  When the data item receiving the quotient overlapped with the
  data item containing the dividend or the data item containing
  the divisor, the compiler was using incorrect data to calculate
  the remainder of the DIVIDE statement.
  

Problem conclusion

• The compiler was updated so that for DIVIDE statements with
  GIVING and REMAINDER phrases, if there is a possibility that
  the data item receiving the quotient can overlap with the data
  item containing the dividend or the data item containing the
  divisor, then the dividend and/or divisor values are stored in
  a temp so that they can be used later to correctly calculate
  the remainder of the DIVIDE statement.
  

Temporary fix

Comments

APAR Information

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

  PI94615

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

Modules/Macros

• IGY8RWTU IGYCBE   IGYCCBE  IGYCCICS IGYCCSRV IGYCDGEN IGYCDIAG
  IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4 IGYCEN$5
  IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT IGYCJA$0
  IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8 IGYCJA$D
  IGYCJA$R IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1
  IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOSCN IGYCPGEN IGYCRCTL
  IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT  IGYCSCAN IGYCSIMD IGYCUE$0
  IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D
  IGYCUE$R IGYCXREF IGYECWI  IGYMSGE  IGYMSGK  IGYMSGT
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI55821

     UP18/05/30 P F805

• R521 PSY UI55822

     UP18/05/31 P F805

• R522 PSY UI55823

     UP18/05/31 P F805

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.