PI97713: CBL RUNTIME MESSAGE IGZ0060W TRUNCATION OF HIGH ORDER DIGIT POSITIONS ON COMPUTE STMT

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Problem with COBOL runtime module IGZXPR2 handling exponents
  less than -12. To work around the problem, change the COMPUTE
  statement to avoid the negative exponent.
  
  COBOL Runtime warning:
  IGZ0060W Truncation of high order digit positions occurred in
  program xxxxxxxx at displacement xxxxxxxxxx.
  

Local fix

• Example:
  01  ANSWER                      PIC 9(1)V9(17) COMP-3.
  01  TOTAL                       PIC 9(13)V9(2) COMP-3.
  PROCEDURE DIVISION.
       COMPUTE ANSWER = 10 ** -17 * TOTAL
       GOBACK.
  
  Work-around: avoid negative exponent
  COMPUTE ANSWER = 1 / 10 ** 17 * TOTAL
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V6 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
  

Problem conclusion

• The Enterprise COBOL runtime was corrected. The COBOL program
  that contains such an arithmetic expression needs to be
  recompiled with a COBOL compiler that has the PTF for APAR
  PI97159 applied, and executed on a system that has the PTF for
  this APAR applied. Changes have been made in Enterprise COBOL
  Runtime to prepare for the compiler APAR PI97159, which
  contains the fix for this problem.
  

Temporary fix

Comments

APAR Information

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

  PI91578

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

Modules/Macros

• IGZBALCT IGZCEV4  IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT IGZIBMCT
  IGZIGZCT IGZLLIBV IGZX2BIN IGZX2HEX IGZXAPI  IGZXBU2L IGZXBU2P
  IGZXBU2S IGZXBU2W IGZXCDA  IGZXD24  IGZXDMR  IGZXFBIN IGZXFHEX
  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF
  IGZXLPKG IGZXNE3N IGZXPK2  IGZXREVT
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI55861

     UP18/06/01 P F805

• R7BJ PSY UI55862

     UP18/06/01 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.