PH30279: CICS ABEND ADPL, MESSAGE DFHRM0002 X'0464', ABEND U1800 21/02/09 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Our customer has updated CICS CTS 5.4 from RSU1812 to RSU2001.
  This problem doesn't occur at the lower maintenance level.
  Now, they find that CICS terminates after DFHRM0002 A
  severe error (code X'0464') has occurred in module DFHRMRO4
  .
  The trace in the dump shows that a DPL request has successfully
  issued a few DLI requests
  AP 0328 DLI   ENTRY  - FUNCTION_CODE(PCB )
  RESOURCE_ADDRESS(1C091098) RESOURCE(PROOTXKA)
  AP 0329 DLI   EXIT - IMS_PCB_FORMAT UIB_CODES(0000)
  STATUS_CODE(0000) FUNCTION_CODE(PCB )
  AP 0328 DLI   ENTRY  - FUNCTION_CODE(GHU )
  RESOURCE_ADDRESS(0076AB84) RESOURCE(DLOOHNR1)
  AP 0329 DLI   EXIT - IMS_PCB_FORMAT UIB_CODES(0000)
  STATUS_CODE(GE) FUNCTION_CODE(GHU )
  .
  After the program response to its caller, it starts to terminate
  and Recovery Manager calls RRMSEXIT.
  This results in a GET_CLIENT_REQUEST/EXCEPTION BACKOUT and
  DFHSSP starts to ROLLBACK.
  APRC  ENTRY END_BACKOUT
  SPP   ENTRY PHASE_1
  followed by DLI   ENTRY FUNCTION_CODE(T   ) resulting in
  CREATE_ABEND_RECORD   DFHMIRS,ADPL
  APRC  EXIT  END_BACKOUT/DISASTER
  RMRO4 *EXC* Bad_response_from_client
  
  Another symptom is:
  RX 0401 RXUW  ENTRY GET_CLIENT_REQUEST    36129180
  RX 0402 RXUW  EXIT  GET_CLIENT_REQUEST/EXCEPTION SYNCPOINT
  AP D802 SPP   ENTRY PHASE_1
  AP 0328 DLI   ENTRY FUNCTION_CODE(T   )   00000000,
  AP 2000 PCPG  ENTRY ABEND [ADPL]
  
  The point being that both changes in PH01856 seem to have caused
  the abend for the DLI Term.
  The APAR sets the flag EISDPL (limited DPL environment) for
  BACKOUT.
  DFHDLI takes an abendADPL with this flag set.
  .
  Additional symptom:
  DFHAP0001 An abend (code ---/ADPL) has occurred at
  offset X'0282' in module DFHAPRC.
  

Local fix

• NA
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users with PH01856 PTFs UI61114,    *
  *                 UI61115, UI61116 applied.                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: An EXCI client sends DPL requests to a  *
  *                      CICS region that is started with        *
  *                      RRMS=YES.  The EXCI client issues a     *
  *                      CALL SRRCMIT or CALL SRRBACK to commit  *
  *                      or rollback its DL/I changes.  This     *
  *                      results in an ADPL abend for a commit,  *
  *                      or an ADPL abend and U1800 region abend *
  *                      for a rollback.                         *
  ****************************************************************
  A CICS region is started with the DFHSIT parameter RRMS=YES so
  syncpointing for DPL requests is coordinated by resource
  recovery services (RRS).  An EXCI client sends a
  non-SYNCONRETURN DPL request to the CICS region and the DPL
  server program issues EXEC DLI or CALL DL/I requests to schedule
  a PSB and retrieve, replace, add or delete database segments.
  If the EXCI client issues an SAA Resource Recovery call SRRCMIT
  to commit changes it causes an abend ADPL at offset X'0294' in
  module DFHAPRC with message DFHAP0001.
  If the EXCI client issues a call SRRBACK to rollback changes it
  causes an abend ADPL at offset X'0322' in module DFHAPRC with
  message DFHAP0001, and also a severe error (code X'0464') in
  module DFHRMRO4 with message DFHRM0002 and a region abend
  U1800.
  
  Keywords: abendADPL abendUADPL abendASP7 abendU1800 msgDFHAC2248
            msgDFHRM0002
  

Problem conclusion

• UI61114  UI70391  UI65671  UI61115  UI63776  UI65672  UI61116
  DFHMIRS has been changed to set a flag EISCISYN before the DFHSP
  TYPE=USER and DFHSP TYPE=ROLLBACK calls to commit or rollback
  changes.  In DFHDLI the flag is tested and, if set it allows
  the syncpoint to proceed instead of abending ADPL.
  
  The CICS Knowledge Center will be updated to show the new flag
  EISCISYN added to the EXEC Interface Structure DFHEISDS.
  
  (B8) BITSTRING 1 EISFLAG9
  (B8) 1... ....   EISSYEIB  "X'80'"  SYSEIB on last EXEC CICS cmd
  (B8) .1.. ....   EISRTDST  "X'40'"  Indicate a Routed STart rqst
  (B8) ..1. ....   EISERM31  "X'20'"  DFHERM invoked in AMODE 31
  (B8) ...1 ....   EISERM64  "X'10'"  DFHERM invoked in AMODE 64
  (B8) .... 1...   EISCISYN  "X'08'"  Syncpoint request by CICS
  

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:

  UI74072 UI74073 UI74074 UI74075

Modules/Macros

• DFH$CAT1 DFHAMFC  DFHAMPFI DFHAPLI1 DFHAPSI  DFHAPSM  DFHAPTR5
  DFHBALR2 DFHBALR3 DFHBALR4 DFHBALR6 DFHBALR7 DFHBALR8 DFHBALR9
  DFHBRNS  DFHDLI   DFHDMPCA DFHDMRM  DFHDPFM  DFHDPLM  DFHDPUM
  DFHDTLA  DFHDTLX  DFHEDFX  DFHEIFC  DFHEIQCF DFHEIQDN DFHEIQDS
  DFHEIQMS DFHEIQSA DFHEISDS DFHEIUOW DFHEJOB  DFHEJOS  DFHERM
  DFHESE   DFHFCAT  DFHFCBD  DFHFCBU  DFHFCCA  DFHFCDL  DFHFCDN
  DFHFCDO  DFHFCDR  DFHFCDTS DFHFCDTX DFHFCDU  DFHFCDUF DFHFCDW
  DFHFCDY  DFHFCES  DFHFCFL  DFHFCFR  DFHFCFRT DFHFCFS  DFHFCIN1
  DFHFCIN2 DFHFCIR  DFHFCL   DFHFCLF  DFHFCLJ  DFHFCLJ1 DFHFCM
  DFHFCMT  DFHFCN   DFHFCNQ  DFHFCOR  DFHFCQI  DFHFCQR  DFHFCQS
  DFHFCQT  DFHFCQU  DFHFCQX  DFHFCRC  DFHFCRC2 DFHFCRD  DFHFCRF
  DFHFCRL  DFHFCRN  DFHFCRO  DFHFCRP  DFHFCRR  DFHFCRS  DFHFCRV
  DFHFCSD  DFHFCSDS DFHFCST  DFHFCU   DFHFCVC  DFHFCVR  DFHFCVS
  DFHFCXDF DFHFRDUF DFHISFS  DFHMEFCE DFHMESIE DFHMIRS  DFHRSDU
  DFHRSSR  DFHRSTP  DFHRSXM  DFHSHDM  DFHSHPR  DFHSHRE1 DFHSHRM
  DFHSHRQ  DFHSHRQ1 DFHSHRR  DFHSHTI  DFHSHXM  DFHSIJ1  DFHSTFC
  DFHSTLS  DFHSTP   DFHTFP   DFHUEH   DFHW2FI  DFHW2FR  DFHXFP
  DFHXFQ   DFHXFRM  DFHXFX   DFHXSDM  DFHXSRC
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R000 PSY UI74075

     UP21/02/24 P F102 {

• R100 PSY UI74074

     UP21/02/25 P F102 {

• R200 PSY UI74073

     UP21/02/21 P F102 {

• R300 PSY UI74072

     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.