For example, how to manage with dynamic rules and OPSMVS SSM the following situation:
- IPLINFO started only once at IPL (having this task not defined in SSM and started in COMMNDxx)
- DFHSM started BEFORE IPLINFO (it should be UP and running when IPLINFO starts). DFHSM is currently defined to SSM.
- every time DFHSM is restarted (so not only at IPL), IPLINFO should not be started again because it only need to be started once at IPL.
Release : All
Component : OPS/MVS
1. Sample rexx IPLTEST :
/* REXX */
TRACE I
VAR = OPSINFO('PRODUCTSTARTS')
IF VAR > 1 THEN EXIT
DYNRULENAME = '*DYNAMIC.IPLTES1'
QUEUE ")TOD *+15 MINS "
QUEUE ")PROC "
QUEUE " TRACE I "
QUEUE "ADDRESS SQL "
QUEUE " 'SELECT NAME FROM STCTBL' , "
QUEUE " 'WHERE CURRENT_STATE=''UP'' AND NAME=''ELD''' "
QUEUE " IF SQLCODE = 0 THEN "
QUEUE " DO "
QUEUE " ADDRESS OPER "
QUEUE " 'START IPLINFO' "
QUEUE " END "
QUEUE " ELSE DO "
QUEUE " ADDRESS OSF 'OI IPLTEST' "
QUEUE " END "
ADDRESS AOF
"ENABLE" DYNRULENAME
2. How to trigger it and corresponding dynamic rule:
include the following lines in the SSMBEGUX user exit in the section below:
/*-------------------------------------------------------------------*/
/* User logic to set wtor, default, and schedule */
/*--+----1----+----2----+----3----+----4----+----5----+----6----+----*/
Address 'OSF' "OI PROG(IPLTEST) "
This should execute the REXX at the time SSM is initializing.
3. Remove the start of IPLINFO from COMMNDxx member