PK59136: DFHDS0001 ABEND0C1 AT X'0BC0' IN MODULE DFHDSDS3 OCCURS DURING REGION STARTUP.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• You attempt to bring up your CICS/TS 3.1 region and have DFHIRP
  for CICS/TS 3.2 (UK30311 level) installed via CLPA.
  Upon start-up of the region, you receive:
  DFHDS0001 An abend (code 0C1/AKEA) has occurred at offset
  X'0BC0' in module DFHDSDS3.
  The ABEND0C1 is a branch to low core (PSW = 070C0000 80000002')
  which is a result of a BASR, RE,R2 instruction in DFHIRP.
  Reg14 points to offset x'BC7C' into DFHIRP (UK30311 level).
  
  The problem is caused by register 7, base register for DFHIRRXP,
  which is corrupted by IRJSRELS, with the value of PSAAOLD.
  DFHIRRXP calls IRLQCR which calls IRJSRELS to do an MVS
  FREEMAIN.  Reg7 is not saved across these routines so when the
  code returns back to DFHIRRXP, it then loads the address of
  IRQCR using register 7 as the base register resulting in the
  ABEND0C1.
  Additional Symptom(s) Search Keyword(s):
  abend0c1 abends0c1 abendakea msgdfhds0001 r7 reg7
  0C1 S0C1
  kixrevswm
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: DFHDS0001 An abend (code 0C1/AKEA) has  *
  *                      occurred at offset X'0BC0' in module    *
  *                      DFHDSDS3.                               *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  DFHIRPXP, the SRB processor scheduled by the XCF retry
  mechanism, uses R7 for code and data addressability.
  
  DFHIRPXP calls the quickcell releases subroutine (IRLQCR) to
  free the data buffers (IRRX_BUFFER) associated with the XCF
  retry work element. As part of this processing IRLQCR calls
  IRLQBREL to free an unused block of quickcells, which in turn
  calls the IRJSRELS subroutine to free the block of storage. The
  IRJSRELS code issues an operating system FREEMAIN request which
  requires R7 to address the ASCB. On return to DFHIRPXP, the base
  register R7 has been corrupted with the address of the ASCB.
  
  DFHIRPXP subsequently attempts to call IRQCR to freemain the XCF
  retry work element. The address of the IRQCR routine is stored
  in the literal pool addressed off R7 and a branch is taken to
  low core resulting in the reported ABENDOC1 in DFHIRP.
  

Problem conclusion

• DFHIRPXP has been changed to maintain code and data
  addressability around the call to IRLQCR.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

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

  UK37443

Modules/Macros

•    DESIRRX  DFHIRP   DFHIRRXD DFHIRRXP DFHIRRXS
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R500 PSY UK37443

     UP08/06/24 P F806

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.