A fix is available
APAR status
Closed as program error.
Error description
If a transaction is defined SPURGE(NO) such as CEMT, purges will be rejected. However a force purge will not, this causes the transaction, including the shutdown transaction to abend when used in an assist program. Messages such as the following are observed in the job log when this condition occurs; +shutdown jobname THERE ARE NOW 000n TASKS STILL IN THE SYSTEM. .. +shutdown jobname ATTEMPTING TO PURGE TRANID CEMT, TERMID ????, USERID user, TASKNO nnnnnn .. +shutdown jobname ACTIVE: TRANID CEMT, TERMID ????, USERID user, TASKNO nnnnnn +DFHTM1797 jobname System termination program has abended. +DFHDU0201 jobname ABOUT TO TAKE SDUMP. DUMPCODE: TM1797 , DUMPID: 1/85 Additional symptoms: KIXREVCTC TM1797
Local fix
Remove the "MVC SDXN,EIBTASKN" instruction in the shutdown assist program DFHCESD. Remove "MOVE EIBTASKN TO SDXN." from the sample DFH0CESD assist program. Remove "sdxn = eibtaskn;" from the sample DFH$CESD assist program.
Problem summary
**************************************************************** * USERS AFFECTED: All CICS Users. * **************************************************************** * PROBLEM DESCRIPTION: Possible DFHTM1797 after issuing * * PERFORM SHUTDOWN. * **************************************************************** CICS provides a default shutdown assist program, DFHCESD. Prior to being called for the first time, DFHSTP sets fields SDXN to the task number of the task that triggered shutdown. This is so the shutdown assist program can ignore this task. However, DFHCESD was incorrectly updated to modify SDXN to the number of the current task when first called. As a result the task that issued shutdown is subject to any actions taken by the shutdown assist program. If shutdown was requested by CEMT, which has SPURGE(NO), no problem occurs because the PURGE issued by the default logic is ignored. However if the sample is updated to issue a FORCEPURGE against the remaining tasks then task that issued shutdown will be purged causing a DFHTM1797. The incorrect update was also made to DFH0CESD and DFH$CESD. Keywords: msgDFHTM1797 TM1797 1797 BPXP018I msgBPXP018I
Problem conclusion
DFHCESD, DFH0CESD and DFH$CESD have been changed to remove the setting of SDXN to EIBTASKN.
Temporary fix
Comments
APAR Information
APAR number
PH31651
Reported component name
CICS TS Z/OS V5
Reported component ID
5655Y0400
Reported release
100
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2020-11-13
Closed date
2021-02-19
Last modified date
2021-03-05
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI74063 UI74064 UI74065 UI74066 UI74067 UI74068 UI74069 UI74070
UI74071
Modules/Macros
DFH$CESD DFH0CESD DFHCESD DFHCESDP
Fix information
Fixed component name
CICS TS Z/OS V5
Fixed component ID
5655Y0400
Applicable component levels
R100 PSY UI74069
UP21/02/21 P F102
R101 PSY UI74070
UP21/02/21 P F102
R102 PSY UI74071
UP21/02/21 P F102
R200 PSY UI74066
UP21/02/21 P F102
R201 PSY UI74067
UP21/02/21 P F102
R202 PSY UI74068
UP21/02/21 P F102
R300 PSY UI74063
UP21/02/21 P F102
R301 PSY UI74064
UP21/02/21 P F102
R302 PSY UI74065
UP21/02/21 P F102
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.
[{"Line of Business":{"code":"LOB35","label":"Mainframe SW"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.4"}]
Document Information
Modified date:
06 March 2021