PH59420: COMPILER ABEND RC=16/U4038 WITH TEST(SEP) OR NOTEST(DWARF,SEP)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the compile ends with an RC16/U4038, if the CEEDUMP DD is
  included in the JCL, then the following error can be seen:
  
  CEE0802C Heap storage control information was damaged.
  
  
  Errors similar to the errors shown below show up in a dump
  when the HEAPCHK(ON,1) LE runtime option is used and the compile
  will then abend with a U4042.
  
  //CEEOPTS DD *
  HEAPCHK(ON,1)
  TERMTHDACT(UAIMM)
  TRAP(ON,SPIE)
  /*
  
  *ERROR* The left node address 8D42F60_08D42F60 in the free
  storage header at
         address 50_08D67B60 + X'0' is not within the current heap
  segment
  
  
  *ERROR* The left node address 8D42F60_08D42F60 + length
  X'6E40' in the free
         storage header at address 50_08D67B60 + X'10' is not
  within the
  
         current heap segment
  
  
  
  *ERROR* The right node address 6E40_08D6FC20 in the free
  storage header at
  
         address 50_08D67B60 + X'8' is not within the current heap
  segment
  
  
  *ERROR* The right node address 6E40_08D6FC20 + length X'140'
  in the free
  
         storage header at address 50_08D67B60 + X'18' is not
  within the
  
         current heap segment
  

Local fix

• Compile with TEST(NOSEP) or NOTEST(DWARF,NOSEP)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling      *
  *                 programs with TEST(SEP) or                   *
  *                 NOTEST(DWARF,SEP).                           *
  ****************************************************************
  * PROBLEM DESCRIPTION: Compiler may terminate with RC16/U4038  *
  *                      and "End of compilation 1, program      *
  *                      XXXXXX, highest severity 16. Return     *
  *                      code 16", also CEEDUMP message          *
  *                      MSGCEE0802C  "Heap storage control      *
  *                      information was damaged.", even if      *
  *                      compilation is otherwise successful.    *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  When releasing previously-allocated storage after compilation
  is complete, the compiler incorrectly tries to release the same
  storage twice.
  

Problem conclusion

• The compiler is fixed to only release storage once after
  compilation is completed.
  

Temporary fix

Comments

APAR Information

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

  PH57321

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

     UP24/02/01 P F401

• R621 PSY UI95432

     UP24/02/01 P F401

• R622 PSY UI95433

     UP24/02/01 P F401

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.