PK72972: WITH A LONG RUNNING BMP, IMS QCF OVERFLOW PROTECTION JOBS GET KICKED OFF WHEN MESSAGE QUEUES DON'T APPEAR TO GET FILLED.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• With a long running BMP, IMS QCF overflow protection jobs get
  kicked off when message queues don't appear to get filled.
  Messages issued to WTO are IQC6801I and IQC6804W.
  MSGIQC6801I MSGIQC6804W
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V10 users of the Queue Space         *
  *                 Notification Exit.                           *
  ****************************************************************
  * PROBLEM DESCRIPTION: Queue Space Notification Exit is not    *
  *                      called when a BMP's unit of work is     *
  *                      completed.                              *
  ****************************************************************
  * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
  ****************************************************************
  The Queue Space Notification Exit is not called when a BMP's
  unit of work is completed (commit point reached), by either a
  CHKPT call or the BMP's termination.  This information is needed
  to keep track of Application BMP message record activity.
  

Problem conclusion

• AIDS: RIDS/SYS RIDS/QMGR SYS QMGR
   GEN:
  KEYWORDS:
  
  *** END IMS KEYWORDS ***
  Added new call type to the Queue Space Notification Exit from
  module DFSQXF00 when a BMP's unit of work is completed.
  
  DFSQXF00
  Added call to Queue Space Notification exit when a BMP's Unit
  of Work (UOW) completes. Will only be called if flag QSCDTBMP
  is set on in DFSQSCD. Only fields QSPCSCD, QSPCECB, QSPCWRKA,
  and QSPCPCB are set. Return code is not checked upon return
  from the Exit.
  
  DFSIINQ0
  Checks if flag QSPCF3BT is set on during Init call to the Queue
  Space Notification Exit. If yes, then flag QSCDTBMP in DFSQSCD
  is set on.
  
  DFSQSPC0
  The Sample User Exit was modified. Code was added to handle
  the new optional call type 8, BMP UOW completed. A sample line
  of code was added in the Init call to activate the new optional
  call type.
  
  DFSQSSP0
  The Sample User Exit was modified. Code was added to handle
  the new optional call type 8, BMP UOW completed. A sample line
  of code was added in the Init call to activate the new optional
  call type.
  
  DFSPARM
  Added new flag bit QSPCF3BT.
  
  DFSQSCD
  Added new flag bit QSCDTBMP.
  
  --------------------------------------------------------------
   Publications Impact:
  
  ----------------------------------------
   IMS Exit Routine Reference, (SC189708-00)
  
  ---------
   3.26 Queue Space Notification exit routine
  
  before:
   In a shared-queues environment the Queue Space Notification
   exit routine is DFSQSSP0.
  
  add:
   The exit routine can also be optionally called when a BMP's
   unit of work is completed.
  
  ----------------------------------------
   3.26.1.2 Exit routine call type
  
  ---------
  change:
  -------------------------------------------
  |  Call    |  Description
  |  type    |
  -------------------------------------------
  |  1       |  Initialization call
  -------------------------------------------
  |  2       |  Application assigned DRRN
  -------------------------------------------
  |  3       |  LU 6.2 assigned DRRN
  -------------------------------------------
  |  5       |  Free the DRRN
  -------------------------------------------
  |  6       |  OTMA assigned DRRN
  -------------------------------------------
  |  7       |  MSC DRRN ASSIGN CA
  -------------------------------------------
  
  to:
  -------------------------------------------
  |  Call    |  Description
  |  type    |
  -------------------------------------------
  |  1       |  Initialization call
  -------------------------------------------
  |  2       |  Application assigned DRRN
  -------------------------------------------
  |  3       |  LU 6.2 assigned DRRN
  -------------------------------------------
  |  5       |  Free the DRRN
  -------------------------------------------
  |  6       |  OTMA assigned DRRN
  -------------------------------------------
  |  7       |  MSC DRRN ASSIGN CA
  -------------------------------------------
  |  8       |  BMP unit of work completed (optional)
  -------------------------------------------
  
  
  
  ----------------------------------------
   3.26.2 Communicating with IMS
  
  ---------
  change:
  To take advantage of the optional capabilities, you must
  modify DFSQSPC0/DFSQSSP0 to recognize the initialization
  call type (Type 1) and, when the call is made, turn on the
  bit QSPCF2IN in the parameter list field QSPCFLG2. IMS
  responds to this flag being set by setting a flag in the
  SCD. The SCD flag tells IMS to support the new capabilities
  and provide the expanded parameter list to DFSQSPC0/DFSQSSP0.
  This call is made only during early IMS (Queue Manager)
  initialization to enable the user exit to obtain working storage
  that is always to be available to DFSQSPC0 through the parameter
  list.
  
  to:
  To take advantage of the optional capabilities, you must
  modify DFSQSPC0/DFSQSSP0 to recognize the initialization
  call type (Type 1) . When the call is made, if bit QSPCF2IN
  in the parameter list field QSPCFLG2 is turned on, IMS
  will set a flag in the SCD. The SCD flag tells IMS to
  provide the expanded parameter list to DFSQSPC0/DFSQSSP0.
  To activate optional call type of BMP, set bit QSPCF3BT
  in the parameter list field QSPCFLG3. This will set a
  flag in the QSCD which tells IMS to call the exit when
  a BMP Unit of Work has completed. The INIT call is made
  only during early IMS (Queue Manager) initialization to
  enable the user exit to obtain working storage that is
  always to be available to DFSQSPC0 through the parameter
  list.
  
  ---------
  change:
  Upper and lower threshold limits (Same values as found
  in SCDQTU and SCDQTL) .
  
  to:
  Upper and lower threshold limits (Same values as found
  in QSCDQTU and QSCDQTL) . The threshold values will not
  be set on a call type of 8.
  
  ---------
  change:
  The following fields are only used while processing Call
  Types: 1, 2, 3, 5, and 6. In all other cases, set to zero.
  
  to;
  The following fields are only used while processing Call
  Types: 1, 2, 3, 5, 6, and 8. In all other cases, the Call
  Type is set to zero. For Call Type 8, only the call type
  is set.
  
  
  ----------------------------------------
   3.26.2 Communicating with IMS
  
  ---------
  after:
  -------------------------------------------
  |          | 00 | LMSGQ data set
  -------------------------------------------
  
  add:
  -------------------------------------------
  | 0        | For Call Type 8, will contain 0
  -------------------------------------------
  
  
  ----------------------------------------
   3.26.2.2 Contents of registers on exit
  
  ---------
  change:
   Before returning to IMS, the exit routine must restore all
   registers except for register 15, which must contain one
   of the following return codes:
  
  after:
   Before returning to IMS, the exit routine must restore all
   registers except for register 15. Register 15 must contain
   one of the following return codes, except for call type 8,
   which does not check for a return code.
  

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:

  UK42762 UK42763

Modules/Macros

• DFSIINQ0 DFSPARM  DFSQSCD  DFSQSPC0 DFSQSSP0
  DFSQXF00
  

Fix information

• Fixed component name

  IMS V10

• Fixed component ID

  5635A0100

Applicable component levels

• R010 PSY UK42762

     UP08/12/31 P F812

• R012 PSY UK42763

     UP08/12/31 P F812

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.