IBM Support

PH49330: MOVE TO ZONED RECEIVER WITH INVDATA(NOCLEANSIGN) IN EFFECT INCORRECTLY AVOIDS CLEANING SIGN

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Move to zoned receiver with INVDATA(NOCLEANSIGN) in effect
    incorrectly avoids cleaning sign
    

Local fix

  • N/A
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of Enterprise COBOL 6.4 compiling and  *
    *                 running programs compiled with the           *
    *                 INVDATA(...,NOCLEANSIGN) option in effect    *
    *                 and where the program contains MOVE          *
    *                 statements with a zoned decimal receiver.    *
    ****************************************************************
    * PROBLEM DESCRIPTION: Incorrect results.                      *
    *                                                              *
    *                      The sign nibble in the zoned decimal    *
    *                      receiver may be set incorrectly after   *
    *                      the MOVE statement executes.            *
    ****************************************************************
    * RECOMMENDATION: Apply the IBM-provided PTF.                  *
    ****************************************************************
    In Enterprise COBOL 6.4, a more comprehensive form of
    compatibility with pre-V5 compilers for zoned to zoned moves
    involving invalid data is supported. Unfortunately, this
    expanded support had an unexpected interaction with the new
    INVDATA option, which was a new feature introduced in the 6.3
    service line and which also introduced a new type of
    compatibility with pre-V5 compilers in the form of the
    NOCLEANSIGN suboption.
    

Problem conclusion

  • The compiler was updated to fix the problematic interaction
    between the two types of invalid data compatibility with the
    pre-V5 compilers. It should be noted, however, that even though
    the problem resulted from code for supporting improved
    compatibility with pre-V5 compilers for MOVE statements
    involving invalid data, the problem introduced can affect MOVE
    statements with valid data as well.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PH49330

  • Reported component name

    ENT COBOL FOR Z

  • Reported component ID

    5655EC600

  • Reported release

    640

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2022-09-07

  • Closed date

    2022-10-20

  • Last modified date

    2022-11-01

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

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

Modules/Macros

  • IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT 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 IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0
    IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPI  IGYCOPT
    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  IGYQSPLT IGYZQEN6 IGYZQENU
    IGYZQJP6 IGYZQJPN
    

Fix information

  • Fixed component name

    ENT COBOL FOR Z

  • Fixed component ID

    5655EC600

Applicable component levels

  • R640 PSY UI82930

       UP22/10/28 P F210

  • R641 PSY UI82931

       UP22/10/28 P F210

  • R642 PSY UI82932

       UP22/10/28 P F210

  • R64H PSY UI82933

       UP22/10/28 P F210

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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"640","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
12 December 2023