IBM Support

PH43635: Users of Enterprise COBOL 6.2 compiling and running programs containing format 1 of the INSPECT statement.

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • In some cases when the
    reference-modified length is greater
    than one, the TALLYING result in
    identifier-2 is computed incorrectly.
    
    USERS AFFECTED:
    Users of Enterprise COBOL 6.2 compiling and
    running programs containing format 1 of the
    INSPECT statement (INSPECT TALLYING without
    the REPLACING phrase) where identifier-1 is
    a reference-modified LINKAGE SECTION item
    whose PICTURE clause is PICTURE X(1), and
    compiling with the OPT(1) or OPT(2) compiler
    option.
    

Local fix

  • BYPASS/CIRCUMVENTION
    
    A possible workaround is to change the PICTURE X(1) item to
    PICTURE X(n) where n is the largest reference-modified length
    used at runtime.
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling and  *
    *                 running programs containing format 1 of the  *
    *                 INSPECT statement (INSPECT TALLYING without  *
    *                 the REPLACING phrase) where identifier-1 is  *
    *                 a reference-modified LINKAGE SECTION item    *
    *                 whose PICTURE clause is PICTURE X(1), and    *
    *                 compiling with the OPT(1) or OPT(2) compiler *
    *                 option.                                      *
    ****************************************************************
    * PROBLEM DESCRIPTION: In some cases when the                  *
    *                      reference-modified length is greater    *
    *                      than one, the TALLYING result in        *
    *                      identifier-2 is computed incorrectly.   *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF.                      *
    ****************************************************************
    In the case identified above the compiler was generating
    incorrect code that resulted in identifier-2 of the TALLYING
    phrase being computed incorrectly.
    

Problem conclusion

  • The compiler was changed to generate the correct code.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PH43635

  • Reported component name

    ENT COBOL FOR Z

  • Reported component ID

    5655EC600

  • Reported release

    620

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2022-01-27

  • Closed date

    2022-02-22

  • Last modified date

    2022-03-15

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

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

    UI79455 UI79456 UI79457 PH44900

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

  • R620 PSY UI79455

       UP22/03/01 P F202

  • R621 PSY UI79456

       UP22/03/01 P F202

  • R622 PSY UI79457

       UP22/03/01 P F202

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":"620","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
12 December 2023