PK78154: BACKFIT PK72972 TO IMS V9

APAR status

• Closed as program error.

Error description

• Customer requires PK72972 ( V10 ) backfit to V9, due to
  QCF considerations.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMS V910 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 V9 Customization Guide, (SC187817-03)
  
  ---------
  4.23 Queue Space Notification Exit Routine
  
  after:
  The Queue Space Notification exit routine (DFSQSPC0) is
  activated when a logical record is assigned to or released
  from a message queue data set.
  add:
  The exit routine can also be optionally called when a BMP's
  unit of work is completed.
  
  ----------------------------------------
  4.23.1.2 Exit Routine Call Types
  
  ---------
  Add Call type entry 8 to table
  -------------------------------------------
  | 8    | BMP unit of work completed (optional)
  -------------------------------------------
  
  ----------------------------------------
  4.23.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.
  
  
  ----------------------------------------
  4.23.2.1 Contents of Registers on Entry
  
  ---------
  
  modified:
  Register Contents
  0            Data set indicator:
  00 - QBLKS data set or Call Type 8. For Call Type 8, there is no
  data set indicator value to put in Register 0.
  
  ----------------------------------------
  4.23.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:

  UK43816 UK43817

Modules/Macros

• DFSIINQ0 DFSPARM  DFSQSCD  DFSQSPC0 DFSQSSP0
  DFSQXF00
  

Fix information

• Fixed component name

  IMS V9

• Fixed component ID

  5655J3800

Applicable component levels

• R900 PSY UK43816

     UP09/02/13 P F902

• R902 PSY UK43817

     UP09/02/13 P F902