PM54933: ABENDAKEA OR ABEND0C1 WHEN EXECUTING EXEC CICS RETURN.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• This happens when using the DTCN panel's option of
  TEST(ALL) and Debug tool's monitor window contains a variable
  with OCCURS DEPENDING ON.
  The abend only occurs if an item that contains an ODO
  in the monitor window when an EXEC CICS
  RETURN statement is executed.
  

Local fix

• The problem can be bypassed by clearing the monitor of any data
  items that contain "Occurs Depending on"  before executing the
  EXEC CICS RETURN.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users running COBOL programs in a CICS       *
  *                 environment with the Debug Tool.             *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: An ABEND AKEA or ABEND0C1 may occur     *
  *                      if a data item defined with an OCCURS   *
  *                      DEPENDING ON clause is monitored or is  *
  *                      otherwise referenced in a Debug Tool    *
  *                      command following the execution of an   *
  *                      CICS command that drives the Language   *
  *                      Environment 'Run Unit End Invocation'   *
  *                      event.                                  *
  *                                                              *
  *                      The following CICS commands drive the   *
  *                      Run Unit End Invocation event:          *
  *                      EXEC CICS RETURN                        *
  *                      EXEC CICS XCTL                          *
  *                      EXEC CICS ABEND                         *
  *                      EXEC CICS SEND PAGE RELEASE             *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  After execution of a CICS command that drives the 'Run Unit End
  Invocation' event, the Debug Tool source window continues to
  display the COBOL program source code. If a reference to a
  COBOL data item defined with an OCCURS DEPENDING ON clause
  is made in a Debug Tool command at this point, an ABENDAKEA
  or ABEND0C1 may occur.
  
  The data item reference that causes the abend could be an item
  in the monitor window or used in a Debug Tool command. The
  reference need not be an explicit reference to the ODO data
  item. An implicit reference, such as when a parent item or a
  different data item within the same structure is monitored
  or referenced, can also cause the abend to occur.
  

Problem conclusion

• The code that handles resolving OCCURS DEPENDING ON addressing
  will now do additional validation before resolving references
  in a CICS environment.
  

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:

  UK77503 UK77504 UK77516

Modules/Macros

•    IGZICA2
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R760 PSY UK77503

     UP12/04/06 P F204

• R770 PSY UK77504

     UP12/04/06 P F204

• R780 PSY UK77516

     UP12/04/06 P F204

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.