PK11681: DFS0730I I,12 THEN DFSDOC40 S0C6 BECAUSE DFSDOC90 RETURNS R15=3

APAR status

• Closed as program error.

Error description

• DFS0730I reason I,12 is immediately followed by DLISAS S0C6
  abend at DFSDOC40+x'46F' because just after label DOKOPN17 the
  call to DFSDOC90 returns R15=3.
  I,12 means the largest subpool buffers in the VSAM buffer pool
  to which this DB is assigned are too small for this DBs CIs, so
  IMS reassigns this DB to the default VSAM buffer pool, and
  retries.  The abend occurs preparing for or during this retry
  process, in IMSv8 upwards.
  ..
  Additional keywords:
  MSGDFS0730I I12 ABENDS0C6 RC3 DFSNTRFC VOPENERR
  

Local fix

• Change the definitions in IMS PROCLIB member DFSVSMxx such that
  sufficiently-large subpool buffers exist in the designated VSAM
  buffer pool.  This avoids the DFS0730I I,12 and hence the abend.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: ALL IMS R910 who assigned a POOLID to a      *
  *                 data set on the DBD control statement in     *
  *                 member DFSVSMxx and the subpools are not     *
  *                 large enough to hold the CI, and an attempt  *
  *                 to use the VSAM shared resource pool, and    *
  *                 a /sta command is issued with the OPEN       *
  *                 keyword.                                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND0C6 occurs in DFSDOC40 or DFSDOC60 *
  *                      after message DFS0730I RCI12, When      *
  *                      trying to use the default VSAM shared   *
  *                      resource pool.                          *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  ABEND0C6 occurs in module DFSDOC40 after label RETRYK or
  in DFSDOC60 after label RETRYE. Prior to the ABEND message
  MSGDFS0730I return code I,12 was received indicating that the
  default VSAM resource shared pool was used instead of the
  designated subpool for that data set that was defined in
  the DBD control statement in DFSDVSMxx.  Also message
  IEC161I 120-053 was issued.
  In the open modules DFSDOC40 or DFSDOC60 there is a retry
  routine that reissues the OPEN macro after determining
  the first failure of the I,12. So, a call to DFSDOC90
  which it will call DFSDOCA0 to issue the DFS0730I and
  it will reset some flags in order to use the default VSAM
  resource pool. At return to the caller DFSDOC40 or DFSDOC60
  register 15 contains X'03' and this will fail with ABEND0C6
  on the branch on table in DFSDOC40 or DFSDOC60.
  R15 gets loaded with X'03' in DFSDOC90 from field PSTSUBCD.
  This field was loaded in DFSDBAU0 with the DDIRACC value.
  PSTSUBCD was never reset in DFSDBAU0.
  

Problem conclusion

• AIDS: RIDS/DBS RIDS/INTRF DBS INTRF
    DEP: NONE
    GEN:
  
  *** END IMS KEYWORDS ***
  
  DFSDBAU0 : Field PSTSUBCD is cleared before leaving routine
             DFSCHGAU and OLICCALL.
  

Temporary fix

• *********
  * HIPER *
  *********
  

Comments

APAR Information

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

  PK11023

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

  UK08396

Modules/Macros

• DFSDBAU0
  

Fix information

• Fixed component name

  IMS V9

• Fixed component ID

  5655J3800

Applicable component levels

• R900 PSY UK08396

     UP05/11/04 P F511 Ž