PH04112: 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 V5.1.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:

  PI97159

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

  UI59128

Modules/Macros

•    IGYPEXSL
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UI59128

     UP18/10/25 P F810

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.