PI62394: IMS U0071 ABEND LOADING HALDB PARTITIONS WITH CATALOG ENABLED.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When running IMS database load job for HALDB with a small
  number of partitions (25 or less), the load job runs
  successfully.  When attempting to load the same HALDB with
  greater then 25 partitions, a u0071 abend can result.  The
  following messages may precede the u0071 abend:
  
  +DFS0415W PARTITIONED DATABASE INIT  EXCEPTION CONDITION -
  FUNC=SYS DDIR, DBNAME=DFSCD000, PARTNAME=N/A, REASON=50
  
  +DFS0415W PARTITIONED DATABASE INIT  EXCEPTION CONDITION -
  FUNC=SYS DDIR, DBNAME=DFSCX000, PARTNAME=N/A, REASON=50
  
  +DFS0415W PARTITIONED DATABASE INIT  EXCEPTION CONDITION -
  FUNC=SYS DDIR, DBNAME=xxxxxxxx   , PARTNAME=N/A, REASON=73
  
  +DFS0415W PARTITIONED DATABASE INIT  EXCEPTION CONDITION -
  FUNC=SYS DDIR, DBNAME=N/A     , PARTNAME=N/A, REASON=99
  
  IEA995I SYMPTOM DUMP OUTPUT  659
      USER COMPLETION CODE=0071
  PSW AT TIME OF ERROR  078D1000   8008DFAA  ILC 2  INTC 0D
    ACTIVE LOAD MODULE           ADDRESS=0008ABE8  OFFSET=000033C2
    NAME=DFSPCC30
  
  This problem has been seen when using IMS Catalog Definition
  exit routine, DFS3CDX0 and allocating catalog using DFSHDBSC
  dataset.
  

Local fix

• With DFS3CDX0 exit enabled, disable IMS Catalog by coding
  $NOCAT DD card in HALDB load step.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * All IMS V14 users with the IMS catalog enabled which is not  *
  * registered with DBRC and a HALDB with more than 25           *
  * partitions registered in DBRC.                               *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * IMS batch region abends with U0071 during IMS                *
  * initialization.  Prior to the abend message DFS0415W with    *
  * RSN=50 is issued for the IMS catalog databases followed by   *
  * DFS0415W with RSN=73 for the non-IMS catalog databases.      *
  ****************************************************************
  * RECOMMENDATION:                                              *
  * INSTALL CORRECTIVE SERVICE FOR APAR/PTF                      *
  ****************************************************************
  During initialization of the HALDB routine PSMIDIR in module
  DFSPSM10 is invoked.  This routine will determine the HALDBs and
  build the partition control blocks based on the partition
  definitions found in IMS.  Normally HALDB definitions are
  returned from a call to DBRC in routine PSMDBRC.  The call
  passes a parm area which can hold a fixed amount of HALDB
  partition definitions.  If the data returns by DBRC exceeds the
  area then a return code is set in the parm area to indicate
  additional DBRC calls will be required later to obtain
  additional partition definitions.   This approach allows IMS to
  dynamically build all the HALDB partitions without requiring
  large amounts of contigious storage.    In addition to normal
  HALDB partitions, the IMS catalog can be optionally defined
  outside of DBRC.  In that case the HALDB definition is obtained
  by reading the HALDB definitional data set, DFSHDBSC with
  similar logic to handle a large number of partitions with return
  codes to handle the case where there were many non-registered
  partitions defined.
  
  The logic in PSMIDIR initializes the registered and
  non-registered parm lists as needed after label PSX4000.   First
  the registered partitions are read followed by the
  non-registered partitions.  The root cause of this failure is
  that between the two calls IMS does not reinitialize the local
  variable XPIXLEA pointing to the parm area.  In that case when
  the number of partitions registered DBRC exceeds the fixed parm
  area length then flag IXL_DBRSNCDQ4 will be set.  When IMS
  attempts to read the non-registered databases the routine
  PSMDBRCN will check for IXL_DBRSNCDQ4 using the old parm list
  from the registered partitions and incorrectly attempt to invoke
  re-read processing.  This will cause an overlay of the parm list
  for both the registered databases and non-registered databases,
  corrupting them both.  Results are unpredictable but normally it
  will cause the DFS0415W for the catalog database with reason
  code 50 and a DFS0415W with reason code 73 for the remaining
  HALDBs to be issued.
  
  Additional keyword: MSGDFS0415W MSGDFS0415 DFS0415 RSN50 RSN73
  

Problem conclusion

• Code has been changed in the following module:
  
  ***************
  * DFSPSM10 *
  ***************
  
  Code has been added to reset the pointer to the current parm
  area when initializing the non-registered HALDB parm area.
  

Temporary fix

Comments

APAR Information

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

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

  UI40987

Modules/Macros

• DFSPSM10
  

Fix information

• Fixed component name

  IMS V14

• Fixed component ID

  5635A0500

Applicable component levels

• R400 PSY UI40987

     UP16/09/24 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.