PK23700: DFHTD0001 AND DFHAP0001 ABEND0C4 OCCUR, THEN CICS LOOPS AFTER TD OPEN ERROR.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A transient data OPEN error occurred and CICS issued message:
  .
  DFHTD0001 An abend (code 113/AKEB) has occurred at offset X'C22'
            in module DFHTDOC.
  .
  Program DFHTDOC 's recovery routine, TDOCREC received control
  to handle the OPEN failure (abendS133 rc2C), and after issuing
  the message and dump, returns a DISASTER response to it's caller
  DFHEIQSQ. However, TDOCREC returns to DFHEIQSQ without restoring
  the correct Kernel stack from TCALCDSA. Because of the incorrect
  stack environment, CICS subsequently issues another TD0001, then
  DFHAP0001 abend0C1, then goes into a loop.
  .
  The trace entries show that when DFHTDOC returns to DFHEIQSQ,
  DFHEIQSQ will issue a DFHPC TYPE=ABEND,ABCODE=AEXZ. DFHABAB
  receives control, first for CREATE_ABEND_RECORD, then for
  START_ABEND:
  .
  QR    AP F641 TDOC  EXIT  OPEN_TRANSIENT_DATA/DISASTER
  QR    AP 2000 PCPG  ENTRY ABEND
  ....
  QR    AP 0741 ABAB  ENTRY START_ABEND
  QR    DS 0002 DSAT  ENTRY CHANGE_MODE          QR
  QR    DS 0003 DSAT  EXIT  CHANGE_MODE/OK       QR
  QR    AP F642 TDOC  *EXC* RECOVERY      OPEN_TRANSIENT_DATA,TDCI
  .
  The CHANGE_MODE request is issued from DFHTDOC who should not be
  in control any longer as it handled the abend and then returned
  to DFHEIQSQ. However, when DFHTDOC's recovery routine is done,
  it branches to tdoc_trace_exit, bypassing the instruction to
  restore the current stack pointer, tczlcdsa = save_stack.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: CICS loops after an abend code 113/AKEB *
  *                      has occurred in module DFHTDOC.         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  OPEN of a transient data queue abends and CICS issues message
  DFHTD0001 'an abend (code 113/AKEB) has occurred in module
  DFHTDOC'. Control is then passed to the recovery routine in
  DFHTDOC to handle the abend. However, after DFHTDOC's recovery
  routine has completed, the correct stack environment is not
  restored.
  As a result, message DFHTD0001 is issued again followed by
  an abend 0C1. CICS then goes into a loop.
  
  Additional Keywords: ABEND113 ABEND0C1 S0C1 AEXZ TCALCDSA
                       msgDFHTD0001 abendAKEB abendS0C1 abendAEXZ
  

Problem conclusion

• DFHTDOC has been changed so that its recovery routine restores
  the saved stack environment.
  

Temporary fix

•             *********
              * HIPER *
              *********
  FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

  PK21496

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

  UK14251

Modules/Macros

•    DESTDOC  DFHTDOC
  

Fix information

• Fixed component name

  CICSTS 3.1 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R400 PSY UK14251

     UP06/05/12 P F605

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.