PI94615: 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 6.1 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:

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

  UI55121 UI55122 UI55123 PI97551 PI97620

Modules/Macros

•    IGYCCBE  IGYCCICS IGYCCSRV IGYCDGEN IGYCDIAG
  IGYCDMAP IGYCDOPT IGYCEN$D IGYCEN$R IGYCEN$0 IGYCEN$1 IGYCEN$2
  IGYCEN$3 IGYCEN$4 IGYCEN$5 IGYCEN$8 IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$D IGYCJA$R IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4
  IGYCJA$5 IGYCJA$8 IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2
  IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPI  IGYCOPT  IGYCOSCN IGYCPGEN
  IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT  IGYCSCAN IGYCSIMD
  IGYCUE$D IGYCUE$R IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4
  IGYCUE$5 IGYCUE$8 IGYCXREF IGYDRV   IGY8RWTU
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R610 PSY UI55121

     UP18/04/12 P F804

• R611 PSY UI55122

     UP18/04/13 P F804

• R612 PSY UI55123

     UP18/04/13 P F804

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.