PM10559: ADD CAPABILITY TO ISSUE NOTIFYS TO TSO USERIDS WHEN AREA OR FAILSAFE PARAMETERS ARE TRIGGERED

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• Add capability to issue notify's to one or more TSO
  userid's when AREA or FAILSAFE parameters are triggered.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of QCF3.1, that need to start a JCL    *
  *                 procdur when AREA/FAIL is crossed.           *
  *                 The APAPR is enhancement to start  JCL       *
  *                 procdure out of IMS control region           *
  *                 when AREA/FAIL action is taken.              *
  *                 The procedure can be used to notify          *
  *                 TSO users that AREA/FAIL conditions          *
  *                 are met and some action is taken.            *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: New parameter - NOTIFY- is added to     *
  *                      control region customization member.    *
  *                      The parameter is valid for AREA/FAIL    *
  *                      control statements.                     *
  *                      Several NOTIFYs can be added to each    *
  *                      AREA/FAIL.                              *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  1. New parameter - NOTIFY- is added to IMS
  control region customization member.
  The parameter is valid for AREA and FAIL
  control statements.
  Several NOTIFYs can be added to each AREA/FAIL.
  The syntax of the parameter is:
  
  NOTIFY=(TYPE=TSO,JNAME=member,USERID=tsoid,
  TEXT=(AREA0001 notification))
  TYPE=TSO - is to be coded. Other types may be added
  in the future.
  The type of the started JCL procedure is not checked and
  it can be used to perform other services.
  
  JNAME=jobname - is a required parameter.
  This is the name of a procedure in PROCLIB DD
  concatenation for the control region.
  The procedure is started before the requested action for
  the AREA/ FAIL.
  The procedure is not started if the requested action is NONE.
  
  USERID=tsoid is not required. The TSO user id to receive the
  notification is set in the started procedure.
  The sub-parameter is informational only.
  
  TEXT=text of message is not required.
  The text, that is sent to the TSO user id is set in the
  started procedure. The sub-parameter is informational only.
  
  2. Sample IQCSIMSII in hlq.SIQCSAMP is changed
  - parameter NOTIFY is added to AREA0001:
  
  AREA=(ID=AREA0001,
        PERCENT=(TOTAL=50,USED=10),
        TYPE=(ALL),
  NOTIFY=(TYPE=TSO,JNAME=IQCSNTFY,USERID=USRT001,
        TEXT=(AREA0001 NOTIFICATION)),
        CSTOPACTION=WTO,
        CSTARTACTION=WTO,
        OSTOPACTION=WTO,
        OSTARTACTION=WTO)
  
  3. New sample is added to hlq.SIQCSAMP - IQCSNTFY.
  This is sample for the started procedure before AREA/FAIL
  action is taken. Members for each JNAME=procname
  should be added in PROCLIB DD concatenation for the control
  region. If member does not exist - the started job ends with
  job control error.
  Member IQCSNTFY:
  //-----------------------------------------------------------
  //TSONTFY  PROC
  //-----------------------------------------------------------
  //-  EXECUTE TSO SEND
  //-----------------------------------------------------------
  //STEP1    EXEC  PGM=IKJEFT01
  //SYSPRINT DD    SYSOUT=H
  //SYSTSPRT DD    SYSOUT=H
  
  //SYSABEND DD    SYSOUT=H
  //SYSTSIN  DD    DSN=hlq.PROCLIB(MEMBERID),DISP=SHR
  //
  
  MEMBERID in hlq.PROCLIB:
  
  SEND   'text to USERID1' USER(USERID1)
  
  4. Old panels are changed and new panels are added to view/
  change the notification parameters for AREA and FAIL.
  Changes are for Main menu option 6
  6 Notify - Modify queue space utilization notification param..
  
  Sub-options 1(edit) and 2(view) are changed -
  new selection field is added to each AREA/ FAIL line-
  when selected - panel shows the notification parameters
  for the selected AREA/FAIL.
  In edit - the parameters can be copied, deleted, edited,
  new lines can be added.
  Help panels can be used to better understand the actions.
  Changes to NOTIFY parameters, using the TSO
  client are valid (like all other changes to overflow
  protection parameters)  only for the current IMS run.
  On IMS start the control region customization membr is applied.
  
  5. Syntax checker is changed to accept and verify
   new parameter NOTIFY  and sub-parameters.
  

Problem conclusion

Temporary fix

Comments

• Install the APAR to use the new NOTIFY parameter.
  

APAR Information

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

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

  UK70477

Modules/Macros

• IQC##### IQCCCPRM IQCCIN0A IQCCIN0B IQCCIN0C
  IQCCIN0X IQCCIN08 IQCCIN09 IQCCQAL  IQCCQAT  IQCCQATA IQCCQATB
  IQCCQATC IQCCQATX IQCCQAT8 IQCCQAT9 IQCCQCI  IQCG09   IQCH91JA
  IQCH91JB IQCH91JC IQCH91JD IQCIMSII IQCP0000 IQCP7000 IQCP7100
  IQCP7110 IQCP7200 IQCP7210 IQCP7220 IQCP7230 IQCP8000 IQCP8100
  IQCP8110 IQCP8200 IQCP8210 IQCP9000 IQCP91JA IQCP91JB IQCP91JC
  IQCP91JD IQCP91JS IQCP91JV IQCP91JX IQCP91JY IQCQMREA IQCQMREB
  IQCQMREC IQCQMREX IQCQMRGA IQCQMRGB IQCQMRGC IQCQMRGX IQCQMRG8
  IQCQMRG9 IQCQMRIA IQCQMRIB IQCQMRIC IQCQMRIX IQCQMRI8 IQCQMRI9
  IQCQSNVS IQCSIN10 IQCSNTFY IQCXREAD
  

Fix information

• Fixed component name

  IMS QUEUE CNTL

• Fixed component ID

  5697E9900

Applicable component levels

• R310 PSY UK70477

     UP11/08/06 P F108

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.