PN57624: COBOL PROGRAMS MAKING A RECURSIVE CALL CAUSES 0C4 ABEND

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL programs running with CODE/370 Debug Tool where main
  program dynamically calls sub which calls another sub and
  from that sub there is a dynamic call back to the first sub
  to make a recursive call.  A warning condition is raised,
  OC4 abend occurs when hit STEP command.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Customers who are running CICS COBOL/370     *
  *                 programs with LE/370 and are getting an      *
  *                 LE/370 dump where the addresses  of the      *
  *                 parameters passed to a COBOL program are not *
  *                 valid.                                       *
  ****************************************************************
  * PROBLEM DESCRIPTION: The LE/370 formatted dump               *
  *                      output is not complete. The formatted   *
  *                      dump stops when it encounters the       *
  *                      first linkage section item that is      *
  *                      based on an invalid address.            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  See the problem description.
  

Problem conclusion

• The LE/370 shunt support is used to check the addresses of
  variables to see if they are valid or not. If an invalid
  address is detected, the dump will still dump the variable
  name, the variable attributes, and a message that says that no
  value is displayed for the variable due to an invalid address.
  

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:

  UN71643 UN71644 UN71645 UN71646

Modules/Macros

•    IGZICA2  IGZICA4
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R22N PSY UN71645

     UP95/01/20 I 1000

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.