IBM Support

PH03575: U3002 DURING COMPILE WITH END-IF INSTEAD OF END-EXEC

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • When an EXEC CICS command in a COBOL program is not terminated
    with an END-EXEC statement, abend U3002 may be issued.
    

Local fix

  • Ensure EXEC CICS command is terminated with END-EXEC
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of Enterprise COBOL 6.1 compiling      *
    *                 programs with the CICS option where the      *
    *                 programs contain an embedded CICS statement  *
    *                 that is longer than 32767 bytes.             *
    ****************************************************************
    * PROBLEM DESCRIPTION: Compiler abort, active module is        *
    *                      IGYCRCTL.                               *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF.                      *
    ****************************************************************
    The compiler was passing a negative length to the CICS
    co-processor for the length of the embedded CICS statement,
    resulting in a compiler abort.
    

Problem conclusion

  • The compiler was updated to identify embedded CICS statements
    that are longer than 32767 bytes, truncate them, produce a
    clear error message about the truncation, and then pass the
    embedded CICS statement to the CICS co-processor which can then
    produce further helpful diagnostic messages.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PH03575

  • Reported component name

    ENT COBOL FOR Z

  • Reported component ID

    5655EC600

  • Reported release

    610

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2018-10-03

  • Closed date

    2018-10-11

  • Last modified date

    2019-03-19

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

    PH02641

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

Modules/Macros

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

  • R610 PSY UI59050

       UP18/10/19 P F810

  • R611 PSY UI59051

       UP18/10/20 P F810

  • R612 PSY UI59052

       UP18/10/20 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.

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

Document Information

Modified date:
12 December 2023