PH25892: COMPILER FREES DCB STORAGE OF OPEN SYSIN AND SYSPRINT WHEN SYSMDECK DD MISSING

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Compiler frees DCB storage of open SYSIN and SYSPRINT when
  SYSMDECK DD missing leading to SC03 abend
  

Local fix

• Ignore SC03 abend and look for IGYSI5013-U  An error occurred
  while attempting to open file "SYSMDECK".  Add SYSMDECK DD to
  avoid abend.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 who invoke    *
  *                 the compiler using JCL that is missing one   *
  *                 of the required data definition (DD) names   *
  *                 for either SYSIN, SYSPRINT or SYSMDECK.      *
  ****************************************************************
  * PROBLEM DESCRIPTION: Improper compiler termination after an  *
  *                      unrecoverable error situation.          *
  *                                                              *
  *                      An expected error message such as:      *
  *                                                              *
  *                      +IGYSI5013-U An error occurred while    *
  *                      attempting to open                      *
  *                      + file "SYSMDECK".                      *
  *                                                              *
  *                      is issued but is unexpectedly followed  *
  *                      by a SC03 ABEND and possibly also a     *
  *                      S0C4 in I/O-SRB processing.             *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The ABENDs occurred in the compiler abnormal termination
  processing code because the storage for open DCBs associated
  with either the SYSIN, SYSPRINT, or SYSMDECK data sets was
  freed, but the files were left in an OPEN state after compiler
  termination. When the system went through address space
  termination and cleanup, it tried to close these open data sets
  by accessing the DCBs for which the storage was already freed
  by the compiler.
  

Problem conclusion

• The abnormal termination code in the compiler has
  been updated so that it closes any open data sets before it
  frees the storage associated with the DCBs for these open data
  sets.
  

Temporary fix

Comments

APAR Information

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

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

  PH26107 PH27532

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

     UP20/06/23 P F006

• R621 PSY UI70082

     UP20/06/23 P F006

• R622 PSY UI70083

     UP20/06/23 P F006

• R62H PSY UI70084

     UP20/06/23 P F006

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.