PH05070: DFHTD0001 B14/AKEX IN DFHTDOC IF PDS DIRECTORY IS FULL

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A CICS application program issues the following commands:
  .
  EXEC CICS SET TDQUEUE OPEN
  EXEC CICS WRITEQ TD
  EXEC CICS SET TDQUEUE CLOSED
  .
  However, the directory of the PDS that is associated with the
  queue is full, and an error occurs.
  
  .
  The transaction experiences:
  - A B14 abend
  - An 0C4 in DFHXDXDF
  - An AEXZ abend - and transaction termination.
  .
  CICS should handle the situation more cleanly. The transaction
  should not abend. CICS should return EIBRESP=IOERR and
  EIBRESP2=14 to the application program.
  .
  Additional Symptom(s) Search Keyword(s): KIXREVGJT
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Users may experience a B14 abend when   *
  *                      a CICS application issues a SET TDQUEUE *
  *                      CLOSE to close a transient data queue.  *
  *                      The application is terminated with a    *
  *                      AEXZ abend.                             *
  *                                                              *
  *                      In addition to this an 0C4 abend may be *
  *                      seen in DFHXDXDF                        *
  ****************************************************************
  When an application issues a SET TDQUEUE CLOSE to a transient
  data queue, DFHTDOC switches to run under the FO TCB.
  If it then suffers a B14 abend (error during processing of a
  CLOSE macro instruction) it enters its recovery routine under
  the FO TCB. This never switches back to the original TCB.
  DFHTDOC returns to its caller (DFHEIQSQ) with a return value of
  DISASTER; this causes DFHEIQSQ to drive abend processing to
  terminate the transaction with an AEXZ abend.
  
  It enters ABEND processing under the FO TCB. Because of this
  bad pointers are established. This results in the 0C4 abend.
  
  KEYWORDS: B14 AEXZ DFHXDXDF abendb14 abend0c4 abends0c4 s0c4
  

Problem conclusion

• A flag has been added to track when DFHTDOC switches to
  the FO TCB. If the recovery routine TDOCREC is called, then
  before CICS exits DFHTDOC, if it is still running under FO it
  switches back to its caller's TCB. This ensures CICS is running
  under the caller's TCB when returning from DFHTDOC to DFHEIQSQ.
  DFHEIQSQ returns EIBRESP=IOERR and EIBRESP2=14 to the
  application to indicate the problem occurred while trying to
  close a TD queue.
  

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:

  UI60157 PH06888

Modules/Macros

• DFHTDOC
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R100 PSY UI60157

     UP18/12/11 P F812

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.