PI49697: S0C4 ASRA IN CPSM LONG RUNNING TASK CONL CONA, METHOD EYU0BCGQ BCGQ

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Your CICS Managed Address Space (MAS) experiences an abend and
  produces an SVC dump. In the job output, you see messages
  similar to the following:
  .
  DFHDU0205 <masname> A SYSTEM DUMP FOR DUMPCODE: AP0001  ,
            WAS SUPPRESSED BY THE XDUREQ USER EXIT
  EYUXL0900I   Starting Environment Recovery
  EYUXL0905E <masname> ASRA IN BCGQ, OFFSET 00000786
             PSW=07855000 B8E795AE
  EYUXL0905E INTC=0004 ILC=6 TXCP=00028409 SCODE=S00C4
             TRAN=CONL TASK=0012345
  EYUXL0905E Methods=BCGQ,BAGQ,NLRT,XLEV
  EYUXL0905E BEAR=38E7AC66, OFFSET=00001E3E
  EYUXL0906I Registers at ABEND
  EYUXL0907I GPR0-GPR1  00000000_000001E4  00000000_388080E0
  EYUXL0907I GPR2-GPR3  00000000_3903ACA8  00000000_38E78E68
  EYUXL0907I GPR4-GPR5  00000000_38E79E68  00000000_38E7AE68
  EYUXL0907I GPR6-GPR7  00000000_388082B0  00000000_00000004
  EYUXL0907I GPR8-GPR9  00000000_00000000  00000000_00000001
  EYUXL0907I GPRA-GPRB  00000000_00028450  00000000_37A55DE0
  EYUXL0907I GPRC-GPRD  00000000_38807AE8  00000000_38807E30
  EYUXL0907I GPRE-GPRF  00000000_B8E795A4  00000000_37DCCB48
  EYUXL0907I ARR0-ARR3  00000000  00000000  00000000  00000000
  EYUXL0907I ARR4-ARR7  00000000  00000000  00000000  00000000
  EYUXL0907I ARR8-ARRB  00000000  00000000  00000000  00000000
  EYUXL0907I ARRC-ARRF  00000000  00000000  00000000  00000000
  .
  .
  CPSM was in method EYU0BCGQ when the abend occurred. Of
  significance here is that all the Access Registers (AR10 in
  particular) are all zero. PSW bits 16-17 in the above message
  indicate we are in AR mode, but AR10 is not set to an
  appropriate CPSM dataspace ALET.
  .
  The location of the PSW puts it in method BCGQ where we have
  just entered AR mode and are attempting to execute an MVC
  instruction where AR10/R10 should point to the 'to' location:
  .
    D201 A010 D2A0   MVC   XDEN_EIBFN,WRK_EIBFN    Save EIBFN
  .
  Unfortunately AR10 is not correctly set, so we attempt to
  overlay whatever R10 points to at the time. At this time, R10
  is supposed to be the base register for DSECT EYUBXDEN. If that
  storage is not accessible, the program check will occur. If the
  storage address happens to be accessible, storage corruption
  could occur and subsequent unpredictable results and/or abends
  may occur later.
  .
  If the SVC dump is reviewed using:
  .
       VERBX EYU9D### 'KNL,JOB=<masname>'
  .
  You can see that BCGQ was called for function GETCSDRS.
  .
        Keyword       Data Queue Req Data     Data
        Value         Type Dir   Opt Address  Value
   In: *FUNCTION      FUN         .  38807AFC GETCSDRS
       *DEBUG         CHR         .  38807B00 BAGQBCGQ
       *QTOKEN        QID         .  38807B08 807013D6000021C0
        QUERYMOD      QRM         .
       *NAMELIST      NLS         .  38807B18
                                                      FF0000D00002
                                                      845000000051
       *RESTYPE       RES         .  38807B24 0ED9
        CSDLIST       CHR         .
       *CSDGROUP      CHR         .  38807B2E MYGROUP
        RESOURCE_NAME CHR         .
        RESOURCE_TYPE RES         .
  Out: *RESPONSE      RSP         .  38807AFE OK
       *REASON        RSN         .  38807AFF 00
       *STATUS        STA         .  38807B40 OK
        RESP          CR1         .
        RESP2         CR2         .
        EIBFN         EFN         .
  .
  .Additional Symptom(s) Search Keyword(s): KIXREVSVR
  CICS Explorer
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICSPlex SM V5R2M0 Users                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: When you execute EXEC CPSM REFRESH      *
  *                      command to refresh a result set, which  *
  *                      contains resources retrieved from CICS  *
  *                      CSD, abend S0C4/ASRA can occur in       *
  *                      method BCGQ in the MAS region.          *
  ****************************************************************
  * RECOMMENDATION: After applying the PTF that resolves this    *
  *                 APAR, all MASes and SMSS systems must be     *
  *                 recycled to pick up the new code.  Note that *
  *                 regions do not need to be brought down and   *
  *                 restarted at the same time.                  *
  ****************************************************************
  When EXEC CPSM REFRESH command is executed to refresh a result
  set, which contains resources retrieved from CICS CSD, method
  BCGQ is called to retrieve resources from CSD and build XXXXXDEF
  resource table instances.
  
  At the beginning of each subroutine call, BCGQ saves all Access
  Registers (ARs) into standard AR save area, clears them for
  subroutine use and restores them at the exit of each subroutine.
  However, in some case, the standard AR save area might be
  overlaid. As a result, BCGQ restores the registers with invalid
  data, and subsequent data reference using the ARs causes S0C4
  abend.
  

Problem conclusion

• Module EYU0BCGQ has been updated to use subroutine save area
  for each subroutine, instead of standard AR save area.
  

Temporary fix

•             *********
              * HIPER *
              *********
  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:

  UI32935 PI55971

Modules/Macros

• EYU0BCGQ
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R90M PSY UI32935

     UP15/11/19 P F511 ¢

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.