PK29669: CPSM API COPY FAILS. EYUXL0905E ASRA IN XDH4, OFFSET 00000B70.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• You are using the CPSM API COPY command to add records to an
  existing result set and abend ASRA occurs in EYU0XDH4 offset
  B70 .
  
  Additional Symptom(s) and Keyword(s):
  EYUXL0900I Starting Environment Recovery
  EYUXL0905E A03CPSM3 ASRA IN XDH4, OFFSET 00000B70 PSW=078D5000
  90F14158
  +EYUXL0905E INTC=0004 ILC=4 TXCP=00000000 SCODE=S00C4 TRAN=XDNR
  TASK=0073014
  +EYUXL0905E Methods=XDH4,XDF2,XDNR,XLOP
  +EYUXL0906I Registers at ABEND
  +EYUXL0907I GPR0-GPR3 00000210 115C97B8 000000FF 10F13628
  +EYUXL0907I GPR4-GPR7 00000003 10465000 01FF001B 00025700
  +EYUXL0907I GPR8-GPRB 0000FC00 0000D400 10464360 0000D620
  +EYUXL0907I GPRC-GPRF 115C94B0 115C9560 0000001D 0F7EBF00
  +EYUXL0907I ARR0-ARR3 00000000 00000000 00000000 00000000
  +EYUXL0907I ARR4-ARR7 00000000 01FF001B 00000000 01FF001B
  +EYUXL0907I ARR8-ARRB 01FF001B 01FF001B 00000000 01FF001B
  +EYUXL0907I ARRC-ARRF 00000000 00000000 00000000 01FF001B
  +EYUXL0908I Storage At ABEND
  +EYUXL0909I -20 D1AD58E0 D184982A D18807FE 50E0D180
  +EYUXL0909I -10 9630D1AD 58E0D1CC 9AEED1C8 94BFE003
  +EYUXL0909I +00 51E00000 58E0D1D0 D737D258 D258D601
  +EYUXL0909I +10 D2643D32 9201D26C D207D278 D208D207
  IEA794I SVC DUMP HAS CAPTURED: 452
  DUMPID=010 REQUESTED BY JOB (CPSM03 )
  DUMP TITLE=EYU9XLRV Dump,CPSM03 ,CMAS03 ,PKR2,CMAS,XDNR,00730
  14,ASRA,EYU0XDH4,27/07/2006,15:04:54
  +EYUXL0910I EYU9XLRV Dump,CPSM03 ,CMAS03
  ,PKR2,CMAS,XDNR,0073014,ASRA,EYU0XDH4,27/07/2006,15:04:54
  +EYUXL0999I XLRV Exiting Successfully
  +EYUXD0809W CPSM resources will remain outstanding for API
   User(KM29857) due to resource release failures
  .----------------------------------------------------------
  CMAS aux trace:
  20888 XDQB XDQA XDNR DAT EXCP.     39 INDXFULL EUI  KM29857
  20888 XDQA XDY2 XDNR DAT EXCP.      1 XDQBFAIL EUI  KM29857
  20888 XDY2 XDNR XDNR DAT EXCP.      1 ....1.03 EUI  KM29857
  20889 XDNI XDNR XDNR DAT EXCP.      1 ABM0erro EUI  KM29857
  ....
  20912 XDNI XDNR XDNR DAT EXCP.      1 ABM0erro EUI  KM29857
  20913 XDY1 XDP4 XDNR DAT EXCP.      1 BADSEQ   EUI  KM29857
  20913 XDP4 XDNR XDNR DAT EXCP.     12 XDP4XDY1 EUI  KM29857
  20914 XDNI XDNR XDNR DAT EXCP.      1 ABM0erro EUI  KM29857
  20915 XDH4      XDNR     ABND         *ABEND*
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICSPlex/SM V3R1M0 Users                 *
  ****************************************************************
  * PROBLEM DESCRIPTION:    You are invoking the CPSM API COPY   *
  *                      command repeatedly to add records to an *
  *                      existing result set.  After many iter-  *
  *                      ations, the COPY commands begin to fail *
  *                      with:                                   *
  *                                                              *
  *                      RESPONSE=EXCEPTION,REASON=METHOD_FAILED *
  *                                                              *
  *                      After this, a DISCONNECT or TERMINATE   *
  *                      command receives abend ASRA (S0C4) at   *
  *                      offset +0B70 in module EYU0XDH4 (XDH4 - *
  *                      API Release Resources).                 *
  ****************************************************************
  * RECOMMENDATION: After applying the PTF that resolves this    *
  *                 APAR, all CMASes must be recycled to pick    *
  *                 up the new code.  Note that the restarts     *
  *                 do not need to be done at the same time.     *
  ****************************************************************
     When the COPY command adds resources to an existing result
  set, the data object block (RDOB) or the native sequence index
  (RSEQ) may fill up.  If the data object block fills, a new data
  block is allocated and the address is added to the data block
  array in the Result Set Descriptor (RDSC).  The RDSC data block
  array contains eight slots, so a request to add a ninth block
  will fail, resulting in a response and reason of EXCEPTION -
  METHOD_FAILED.
     A logic error in module EYU0XDQA (XDQA - Add Resources to a
  Result Set) allows the last resource added to the RDOB or RSEQ
  to extend beyond the end of the allocated block.  This may re-
  sult in an immediate abend ASRA (S0C4) in module EYU0XDQA, or
  in any module which accesses the Result Set's data structures.
  

Problem conclusion

•    Module EYU0XDQA was modified to prevent the last record added
  to a result set from overflowing either the data object block or
  the native sequence block.  Module EYU0XDQB (XDQB - Allocate New
  Block to Result Set) was modified to respond to an array full
  condition as follows:  A new block is allocated, large enough to
  contain the existing result set's data plus the record(s) being
  added, plus an overflow area.  The native sequence block is run,
  copying data records from the old data object blocks to the new
  block, and fixing up the record IDs in the sequence block to
  point to the record in the new block.  (Note that the offset of
  the index record in each data object does not need to be reset
  because the sequence block is not modified at this time.)  After
  all records have been copied to the new data object block, each
  of the old blocks is deleted and the array is cleared.  Then
  the new block's address is stored in the first array slot.
  Module EYU0XDY2 was modified to correct errors in tracing the
  exception resulting from the filling of the Result Set's data
  array.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

•    You are invoking the CPSM API COPY
  command repeatedly to add records to an
  existing result set.  After many iter-
  ations, the COPY commands begin to fail
  with:
  
  RESPONSE=EXCEPTION,REASON=METHOD_FAILED
  
  After this, a DISCONNECT or TERMINATE
  command receives abend ASRA (S0C4) at
  offset +0B70 in module EYU0XDH4 (XDH4 -
  API Release Resources).
  
     When the COPY command adds resources to an existing result
  set, the data object block (RDOB) or the native sequence index
  (RSEQ) may fill up.  If the data object block fills, an new data
  block is allocated and the address is added to the data block
  array in the Result Set Descriptor (RDSC).  The RDSC data block
  array contains eight slots, so a request to add a ninth block
  will fail, resulting in a response and reason of EXCEPTION -
  METHOD_FAILED.
     A logic error in module EYU0XDQA (XDQA - Add Resources to a
  Result Set) allows the last resource added to the RDOB or RSEQ
  to extend beyond the end of the allocated block.  This may re-
  sult in an immediate abend ASRA (S0C4) in module EYU0XDQA, or
  in any module which accesses the Result Set's data structures.
  
     Module EYU0XDQA was modified to prevent the last record added
  to a result set from overflowing either the data object block or
  the native sequence block.  Module EYU0XDQB (XDQB - Allocate New
  Block to Result Set) was modified to respond to an array full
  condition as follows:  A new block is allocated, large enough to
  contain the existing result set's data plus the record(s) being
  added, plus an overflow area.  The native sequence block is run,
  copying data records from the old data object blocks to the new
  block, and fixing up the record IDs in the sequence block to
  point to the record in the new block.  (Note that the offset of
  the index record in each data object does not need to be reset
  because the sequence block is not modified at this time.)  After
  all records have been copied to the new data object block, each
  of the old blocks is deleted and the array is cleared.  Then
  the new block's address is stored in the first array slot.
  Module EYU0XDY2 was modified to correct errors in tracing the
  exception resulting from the filling of the Result Set's data
  array.
  

APAR Information

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

  PK29226

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

  UK18246

Modules/Macros

•    EYU0XDQA EYU0XDQB EYU0XDY2
  

Fix information

• Fixed component name

  CPSM CICS 3.1

• Fixed component ID

  5655M1501

Applicable component levels

• R100 PSY UK18246

     UP06/09/29 P F609

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.