PI97159: CBL V6.1 IGZ0060W TRUNCATION OF HIGH ORDER DIGIT POSITIONS; OK AT CBL V4.2

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• CBL V6.1 Compiler changes required for Runtime IGZ0060W Message
  Truncation of high order digit positions;  ok at CBL V4.2
  

Local fix

• Problem with IGZXPR2 handling exponents less than -12. To work
  around the problem, change the COMPUTE statement to avoid the
  negative exponent.
  
  Example: the faulting code:
  01  ANSWER                 PIC 9(1)V9(17) COMP-3.
  01  TOT-ACTIV                  PIC 9(13)V9(2) COMP-3.
  PROCEDURE DIVISION.
  *==================*
       COMPUTE ANSWER = 10 ** -17 * TOT-ACTIV
       GOBACK.
  
  
  Work-around:
  Change the COMPUTE statement to avoid the negative exponent:
  COMPUTE ANSWER = 1 / 10 ** 17 * TOT-ACTIV
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V6.1 users running          *
  *                 programs compiled with ARITH(COMPAT) that    *
  *                 contain arithmetic expressions with the      *
  *                 exponentiation operator (**), where both     *
  *                 the base and exponent are numeric literals   *
  *                 and the exponent is an integer less than -1. *
  ****************************************************************
  * PROBLEM DESCRIPTION: The exponentiation result might be      *
  *                      incorrect.                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  Given the following exponentiation in ARITH(COMPAT) mode,
  COMPUTE RESULT = BASE ** EXPONENT
  
  where
  - RESULT is a COMP-3(PACKED DECIMAL) data item
  - BASE is a fixed-point literal
  - EXPONENT is an integer literal less than -1
  
  The COMPUTE result might be incorrect because an overflow
  occurred internally in the COBOL runtime.
  

Problem conclusion

• The compiler was updated to generate the correct information
  required by the the COBOL runtime to perform the correct
  exponentiation calculation.
  

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:

  PH00614 PH04112 PH06109

Modules/Macros

• IGY8RWTU 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 IGYDRV   IGYEQCWI IGYMSGE  IGYMSGK  IGYMSGT  IGYQCBE
  IGYZQDRV IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R610 PSY UI56627

     UP18/06/21 P F806

• R611 PSY UI56628

     UP18/06/22 P F806

• R612 PSY UI56629

     UP18/06/22 P F806

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.