PK30431: ACBGEN WITH BUILD DBD OR DELETE DBD GOT ABEND0C4 IN DFSUSCH0

APAR status

• Closed as program error.

Error description

• ACBGEN with BUILD DBD or DELETE DBD got ABEND0C4 in DFSUSCH0 at
  EX instruction after label INBLK. ABEND happens if ACBLIB has
  large PSB with intent list size greater than 32K, and BUILD DBD
  or DELETE DBD is done with other DBD with higher DB name.
  With PK27995, we can create PSB with intent list size greater
  than 32K. This ABEND does not happen if ACBLIB does not have
  such a large PSB.
  -----------------------------------------
  DFSUSCH0 was called from DFSUSRC0.
  DFSUSRC0 gets maximum 32K buffer even if intent list size is
  greater than 32K. Then DBDNLIST is truncated and resulted
  ABEND0C4 in DFSUSCH0.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS R710 users with PSB having its       *
  *                 intent list size greater than 32K.           *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND0C4 in DFSUSCH0 after label INBLK  *
  *                      on the EX instruction when running      *
  *                      ACBGEN to build DBD or to delete DBD.   *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  During the DELETE DBD or BUILD DBD process, the PSB intent list
  is read from the ACBLIB.  A work area of 32K size is getmained
  for PSB that is larger than 32K bytes.  In this case, the PSB is
  over than 32K, and its intent list is also larger than 32K.
  Hence, the whole DBDNLIST is not read in, and the last DBD entry
  on the DBDNLIST with its end of list marker is missing from the
  work area.  This causes module DFSUSCH0 to read beyond the work
  area looking for the end of list marker when searching for a
  database name match between the DBDNLIST and the DELETE or BUILD
  DBD list.  As of this result, an ABENDS0C4 occurs.
  

Problem conclusion

•  AIDS: RIDS/DBS RIDS/GEN DBS GEN
    DEP: NONE
    GEN:
  
  *** END IMS KEYWORDS ***
  DFSUSRC0.
  Modify code to getmain a work area for the intent list with a
  size equal to the PSB size, and not to exceed 64K.
  

Temporary fix

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

Comments

APAR Information

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

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

Modules/Macros

•    DFSUSRC0
  

Fix information

• Fixed component name

  IMS V7

• Fixed component ID

  5655B0100

Applicable component levels

• R700 PSY UK18457

     UP06/10/13 P F610