A fix is available
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 number
PH06888
Reported component name
CICS TS Z/OS V5
Reported component ID
5655Y0400
Reported release
200
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2019-01-03
Closed date
2019-01-18
Last modified date
2019-02-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI60807
Modules/Macros
DFHTDOC
Fix information
Fixed component name
CICS TS Z/OS V5
Fixed component ID
5655Y0400
Applicable component levels
R200 PSY UI60807
UP19/01/26 P F901
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.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.5","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.5","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 February 2019