PI46665: ABEND0C4 AND LOOP AFTER DFHTDOC RECOVERY IS CALLED TO HANDLE AN ABEND02A.

Obtain the fix for this APAR.

APAR status

• Closed as unreproducible.

Error description

• During CICS shutdown a program is writing to the JES internal
  reader INTRDR.
  1. somehow an application writes to JES INTRDR when it is closed
     and causes ABEND02A.
  2: DFHTDOC recovery routine gets control after the ABEND02A but
     takes another 0C4 and a loop results.
  
  DFHTDOC recovery routine gets control it takes an 0C4 because
  
  R12 contains the value from the abend02A and DFHTDOC assumes it
  points to the TCA but it does not.
  A loop then occurs in CICS. A dump was taken several hours
  into the loop and shows:
  
  The KE error table contains :
  19:00:50  0064    ABEND                 02A/AKEB  UNKNOWN
  19:00:50  0064    PROGRAM CHECK         0C4/AKEA  DFHTDOC
  The 0C4 in DFHTDOC regs/psw are :
  PSW:  078D0000 0008C580 DFHTDOC base 4.1 + x'264'
  Failing instruction ST     R8,16(,R12)
                      ST    @08,TCZLCDSA(,TCABAR)
  R12 is still pointing to key0 storage which is not
  accessible to CICS and causes the 0C4.
  
  Looking at the IP SYTRACE for asid D7 we see a loop in this
  CICS address space indicated by repeating EXT 1005 and
  EXT 1007 trace entries.
  The PSW addresses in these trace are mainly contained in DFHMEME
  and a few in DFHKEDRT and DFHDUDU.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Abend S0C4 occurs in DFHTDOC during     *
  *                      recovery.                               *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  In the reported problem, an abend 02A occurred due to an
  attempt to write to a TD Queue during shutdown. The queue had
  already been closed. The abend caused the DFHTDOC recovery
  routine to be driven, and this attempted to restore field
  TCALCDSA, using R12 as the base register for the TCA. R12 was
  addressing key 0 storage relating to the abend02A, and had not
  been restored to address the TCA. This resulted in an abend0C4.
  This was propagated to the DFHSTP recovery routine, which
  issued a TM1797 system dump.
  The CICS system terminated with abend code U1800.
  

Problem conclusion

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

• DFHTDOC has been updated to restore addressability to the TCA
  before attempting to restore the TCZLCDSA value into it.
  

APAR Information

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

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

  UI30406

Modules/Macros

•    DFHTDOC
  

Fix information

• Fixed component name

  CICS TS Z/OS V4

• Fixed component ID

  5655S9700

Applicable component levels

• R600 PSY UI30406

     UP15/08/28 P F508

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.