IBM Support

PH36690: IMPROVE COBOL OFFSET REPORT USABILITY

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • When compiling with OFFSET and OPT(1/2), the offset table is
    currently built with a single entry for each line number, sorted
    by offset.
    
    But the compiler may generate more than one block of
    instructions per verb. As a result, the OFFSET output cannot
    reliably be used to find the verb at a given offset.
    

Local fix

  • N/A
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of IBM Enterprise COBOL 6.2            *
    *                 compiling with compiler options OFFSET and   *
    *                 OPT(1|2)                                     *
    ****************************************************************
    * PROBLEM DESCRIPTION: The OFFSET output in the listing        *
    *                      contains a single entry for each COBOL  *
    *                      verb, but the compiler may generate     *
    *                      more than one block of instructions     *
    *                      per verb. The OFFSET output cannot      *
    *                      reliably be used to find the verb at a  *
    *                      given offset.                           *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF/                      *
    ****************************************************************
    With OPT(1|2), the compiler may generate more than one block of
    instructions for a COBOL verb. This can happen if that verb is
    in a PERFORMed paragraph that is inlined more than once, or if
    the compiler chooses to interleave instructions from multiple
    statements. The compiler's behaviour is correct and leads to
    better performance, but before this change the OFFSET output
    was  unreliable, as the offset of every instruction for a verb
    other than instructions in the first block will be nearest in
    the OFFSET output to the entry for some other verb.
    

Problem conclusion

  • The compiler was changed to put an entry into the OFFSET output
    every time an instruction is generated for a different
    COBOL verb pair than the previous instruction.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PH36690

  • 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

    2021-04-26

  • Closed date

    2021-04-29

  • Last modified date

    2021-06-01

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

    PH35652

  • 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 IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0
    IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2E 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  IGYZQDRV IGYZQENU
    IGYZQJPN
    

Fix information

  • Fixed component name

    ENT COBOL FOR Z

  • Fixed component ID

    5655EC600

Applicable component levels

  • R620 PSY UI75163

       UP21/05/04 P F105

  • R621 PSY UI75164

       UP21/05/04 P F105

  • R622 PSY UI75165

       UP21/05/04 P F105

  • R62H PSY UI75166

       UP21/05/04 P F105

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