IBM Support

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

A fix is available

Subscribe

You can track all active APARs for this component.

 

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.2 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 number

    PH06109

  • Reported component name

    ENT COBOL FOR Z

  • Reported component ID

    5655W3200

  • Reported release

    520

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2018-12-04

  • Closed date

    2018-12-12

  • Last modified date

    2019-01-02

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

    PI97159

  • 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 UI60238

       UP18/12/18 P F812

  • R521 PSY UI60239

       UP18/12/19 P F812

  • R522 PSY UI60240

       UP18/12/19 P F812

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.

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"520","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"520","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
02 January 2019