PK80660: ABEND0C4 IN DFSICL73-UPDRM AFTER AN /ASSIGN USER XXXXXXXX VTAMPOOL

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The abend is occurring after label UPDRD95 in DFSICL73-UPDRM
  trying to clean up the SPQB pointer to the CRB.
  Due to conflicts in the code with the USING registers, the
  registers for these fields are not correct causing the S0C4
  
  Savearea Flow:
  DFSCMTI0==>DFSICLC0==>DFSICL70==>DFSICL72==>DFSICL73-UPDRM==>
  DFSRMUP0
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V10 users who issue a /ASSIGN USER   *
  *                 XXXXX TO VTAMPOOL command in an environment  *
  *                 with STM=Y.                                  *
  ****************************************************************
  * PROBLEM DESCRIPTION: A /ASSIGN USER XXXXX TO VTAMPOOL        *
  *                      command resulted in an ABENDS0C4 in     *
  *                      module DFSICL70 after label UPDRD95.    *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  The user issued a /ASSIGN USER XXXXX TO VTAMPOOL command which
  resulted in an ABENDS0C4 in module DFSICL70 after label
  UPDRD95.  The abend resulted because the SPQB block which is
  pointed to by register 5 was being referenced using register 2.
  Register 2 contained zero and this caused the abend.  IMS was
  defined with STM=Y and the Resource Manager ( RM ) resource
  structure was being used to maintain terminal status.
  
  Additional Keywords: CMDASS CMDASSIGN /ASS U3058 S0C4
  

Problem conclusion

• GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  Code has been added to the following module.
  
  ************
  * DFSICL70 *
  ************
  
  To fix the ABENDS0C4 problem after label UPDRD95 the code will
  now reference the SPQB block using register 5 instead of using
  register 2.
  
  While testing the fix for the ABENDS0C4 a second problem was
  found.  An /ASSIGN command was issued which resulted in a
  ABENDU3058.  The abend was caused because module DFSRMAM0 was
  called to free the same hidden CNT blocks twice.  DFSRMAM0 was
  called by the FREEHB routine in module DFSICL70 to free the
  hidden blocks.  The first call to DFSRMAM0 resulted in the
  hidden CNT blocks, pointed to by the SPQB ( SPQBCNT ), being
  freed.  Since the destination was to VTAMPOOL module DFSICL70
  made a second call to free the hidden CNTs, pointed to by the
  CTB ( CTBCNT ), and this caused the abend.
  
  To fix the ABENDU3058, code was added after label UPDRD99 to
  clear CTBCNT and CTBCNTPT.  This code goes in the logic which
  decouples the hidden SPQB from the node.  These fields needed
  to be cleared so that when the FREEHB routine is called to
  free hidden blocks the hidden CNTs will only be pointed to by
  the SPQB.
  
  Additional code was added to move the UPDRMF routine to
  a separate subroutine with its own base register.  This
  was done to fix a base register problem in the module.
  

Temporary fix

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

Comments

APAR Information

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

  PK77890

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

  UK45107

Modules/Macros

• DFSICL70
  

Fix information

• Fixed component name

  IMS V10

• Fixed component ID

  5635A0100

Applicable component levels

• R012 PSY UK45107

     UP09/03/27 P F903 Ž

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.