PI76759: ABENDS0C4 in setUserFileStatusFromFSTAT when there are multiple entry points in a compile unit

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The compiler is setting up and initializing upon entry separate
  pointers to a file's file status for each of the primary and
  alternate entry points, but the FIB (file information block) for
  the file can itself point to only one of them.
  
  This can lead to a situation where the file status pointer
  pointed to by the FIB is not initialized, leading to an 0C4
  attempting to set the status.
  

Local fix

• Avoid mulitple entry points.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5.2 compiling and  *
  *                 running programs that contain the RECURSIVE  *
  *                 clause in the PROGRAM-ID paragraph, or are   *
  *                 compiled with the THREAD compiler option,    *
  *                 and contain references to file related data  *
  *                 items such as file status or linage          *
  *                 counters, and have one or more secondary     *
  *                 entry points.                                *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Runtime abend (SOC4).                   *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The compiler was inadvertently generating multiple, different
  temps that were managed improperly when setting up the
  mechanism that allows the COBOL runtime to locate file related
  items such as file status and linage counters.
  

Problem conclusion

• The compiler was updated to generate only a single temp for
  each such file-related item, even when there are secondary
  entry points present.
  

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:

  PI79740

Modules/Macros

•    IGYCRCTL
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI45765

     UP17/03/31 P F703

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.