PK13737: IMS REGIONS OR THREADS WAITING FOR LOCK IN PROGRAM ISOLATION.

APAR status

• Closed as program error.

Error description

• IMS regions or threads waiting for a lock in Program (PI) cannot
  be stopped using the IMS /STOP REGION ABDUMP command.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: ALL USING R810 OF IMS.                       *
  ****************************************************************
  * PROBLEM DESCRIPTION:   A /STO REG# ABDUMP does not complete  *
  *                      if the PST for that region is waiting   *
  *                      for a PI lock.                          *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  PROBLEM SUMMARY:
    If a region (say region 2) appears to be hung up, the user
  issues a /STO REG 2 ABDUMP to attempt to stop that region. If
  that PST is currently in a wait for a PI lock the /STO command
  will not complete. The user must then do a /STO REG 2 CANCEL
  which will result in a U0113 abend.
  

Problem conclusion

•  AIDS: RIDS/SYS RIDS/CNTRL SYS CNTRL
    DEP: NONE
    GEN:
    POSTREQ PK31983 PK36178 PK42763 PK45822
  
  *** END IMS KEYWORDS ***
    The following modules and macros have been updated to resolve
  the problem:
  
  ************
  * DBFPIEX0 *
  ************
  
    Code was added to recognize the new unchain post code of
  X'61'.
  
  ************
  * DFSDSTP0 *
  ************
  
    Code was added that will call module DFSHCMS0 with a function
  code of X'C0' and a routine code of X'08', when a /STO REG x
  ABDUMP is being done.
  
  ************
  * DFSERA40 *
  ************
  
    Code was added to recognize the X'CC' trace entry for the new
  unchain (UNCHN) call, and to correctly format it. It will also
  recognize the X'CB' trace entry that was cut for the post that
  was done after the UNCHN call.
  
  ************
  * DFSERA60 *
  ************
  
    Code was added to recognize the X'CA' trace entry for the new
  unchain (UNCHN) call, and to add PI UNCHAIN as the eyecatcher.
  
  ************
  * DFSFXC10 *
  ************
  
    Code was added to recognize the new UNCHN call, and to call a
  new UNCHAIN routine. The PST to be checked is passed to this
  routine which will then determine if that PST is waiting for a
  lock. If it is waiting then the DODEQ routine is called to
  remove it from the wait chain, and adjust the wait counts for
  the holder, and any other waiters. If the PST had been waiting
  for a lock it is then posted with a post code of X'61'. The
  resource that was unchained is saved so it can later be moved
  into the X'CB' trace entry.
    Code was also added that will check any PI calls done while
  the /STO REG x ABDUMP call is still pending. Any call that may
  result in a wait is then rejected with a U0474 abend.
  
  ************
  * DFSHCMS0 *
  ************
  
    Code was added to recognize the new UNCHN call, and to call
  new routine HCM08000. The PST to be checked is passed in R3 and
  is then passed to PI via a PINQDQ call with TOWNER=(R3). Any
  ISWITCH that is needed will be done prior to calling the new
  routine.
  
  ************
  * DFSPIEX0 *
  ************
  
    Upon return from DFSFXC10 the added code will recognize the
  X'61' post code and create a X'CB' trace entry. The new post
  code and the resource name will be inserted into the trace
  entry.
  
  ************
  * DFSSTOP0 *
  ************
  
    Code was added that will call module DFSHCMS0 with a function
  code of X'C0' and a routine code of X'08', when a /STO REG x
  ABDUMP is being done.
  
  **********
  * PINQDQ *
  **********
  
    Code was added to recognize the new UNCHN call.
  
  **********
  * PIPARM *
  **********
  
    A PRMUNCHN EQU   X'18' was added for the UNCHN call.
  
    The following manual will be updated:
  
  **************************************
  * Utilities Reference * SC27-1309-00 *
  **************************************
  
    In the Program Isolation Trace Record Format and Print Module
  (DFSERA40) section, the "Sample Output from DFSERA40" will be
  updated to include a new entry for the UNCHN call.
  
    Under the explanation for "PC", the X'61' will be added that
  will indicate the "PST has been removed from the PI lock wait
  chain on behalf of a /STO REG x ABDUMP command".
  

Temporary fix

Comments

• REPINNED RP2006/09/26 (ATXT) TO ADD POSTREQ PK31983 INFO.
  PE2006/09/26 PTF IN ERROR. SEE APAR PK31983 FOR DESCRIPTION.
  ž**** PE06/09/25 FIX IN ERROR. SEE APAR PK31983  FOR DESCRIPTION
  REPINNED RP06/12/14 (ATXT) TO ADD POSTREQ PK36178 INFO.
   **** PE06/12/14 PTF IN ERROR. SEE APAR PK36178 FOR DESCRIPTION
  REPINNED RP07/04/05 (ATXT) TO ADD POSTREQ PK42763 INFO.
   **** PE07/04/05 PTF IN ERROR. SEE APAR PK42763 FOR DESCRIPTION
  REPINNED RP07/07/31 (ATXT) TO ADD POSTREQ PK45822 INFO.
   **** PE07/07/31 PTF IN ERROR. SEE APAR PK45822 FOR DESCRIPTION
  ž**** PE07/07/31 FIX IN ERROR. SEE APAR PK45822  FOR DESCRIPTION
  

APAR Information

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

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

  PK13739 UK14768 UK14769

Modules/Macros

•    DBFPIEX0 DFSDSTP0 DFSERA40 DFSERA60 DFSFXC10
  DFSHCMS0 DFSPIEX0 DFSSTOP0 PINQDQ   PIPARM
  

Fix information

• Fixed component name

  IMS V8

• Fixed component ID

  5655C5600

Applicable component levels

• R800 PSY UK14768

     UP06/06/09 P F606

• R801 PSY UK14769

     UP06/06/09 P F606