Example 1
Control-O can set a counter to log the number of occurrences of a certain type of abend.
DO SET=%%PRODABEND = %%PRODABEND %%$PLUS 1 GLOBAL Y
The following DO SHOUT statement issues a message to the log regarding the abends:
DO SHOUT=%%PRODABEND PRODUCTION ABENDS HAVE OCCURRED
Example 2
The STATUS Global variable can be set to UP in the IMS Global member using the following methods:
DO SET=%%IMS\STATUS=UP GLOBAL Y
This DO SET statement is equivalent to the two following DO SET statements:
DO SET=%%$GLOBAL = IMS
DO SET=%%STATUS = UP GLOBAL Y
The following DO SHOUT statement issues a message to the log about the status of IMS applications:
DO SHOUT TO OPER TEXT IMS IS %%IMS\STATUS
Example 3A
Retain the IMS/DC reply number for future use by another rule.
RL: DFS810A LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON MESSAGE = DFS810A
JNAME IMS1 JTYPE S SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION IDENTIFY IMS IS READY (KEEP REPLY NUMBER + SIGNAL CONTROL-M)
DESCRIPTION
===========================================================================
DO COND = IMS1-IS-ACTIVE STAT +
DO SET = %%IMS1_REPLY = %%REPLY GLOBAL Y
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 12.33.38
The following example shows how this retained reply number is used.
Example 3B
Use the IMS/DC reply number to issue an IMS command when needed.
RL: DFSxxxx LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON MESSAGE = DFSxxxx
JNAME IMS1 JTYPE S SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION
===========================================================================
DO COMMAND = %%IMS1_REPLY /STA DBD
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE N
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 12.33.38
Example 4
Specify following series of values for variables in an AutoEdit Variable database.
RL: TESTDB01 LIB CTO.PROD.RULES TABLE: VARULES
COMMAND ===> SCROLL===> CRSR
-----------------------------------------------------------------------------
ON EVENT = TESTDB01
OWNER M88A GROUP MODE LOG RUNTSEC
THRESHOLD
DESCRIPTION SPECIFY VARIABLES IN AN AUTOEDIT VARIABLE DATABASE
DESCRIPTION
===========================================================================
/* SET THE DEFAULT POOL TO THE DATABASE POOL
DO SET = %%$GLOBAL = MYDBPOOL GLOBAL N
/* RESET ROW COUNTER
DO SET = %%ROW = 0 GLOBAL N
/* INFORM WE WANT TO ACCESS ROW 1
DO SET = %%ROW = %%ROW %%$PLUS 1 GLOBAL N
DO SET = %%$DBROW = %%ROW GLOBAL N
/* SET ROW 1 VALUES AS DESIRED
DO SET = %%FIELD01 = ANYVALUE11 GLOBAL Y
DO SET = %%FIELD02 = ANYVALUE12 GLOBAL Y
/* INFORM WE WANT TO ACCESS ROW 2
DO SET = %%ROW = %%ROW %%$PLUS 1 GLOBAL N
DO SET = %%$DBROW = %%ROW GLOBAL N
/* SET ROW 2 VALUES AS DESIRED
DO SET = %%FIELD01 = ANYVALUE21 GLOBAL Y
DO SET = %%FIELD02 = ANYVALUE22 GLOBAL Y
FILL IN RULE DEFINITION. CMDS: EDIT , SHPF , SCHED , OPT 14.23.00
Example 5
Retrieve following series of values from variables in an AutoEdit Variable database.
RL: TESTDB02 LIB CTO.PROD.RULES TABLE: VARULES
COMMAND ===> SCROLL===> CRSR
----------------------------------------------------------------------------
ON EVENT = TESTDB02
OWNER M88B GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION PROCESS ROWS FROM ONE DATABASE POOL
DESCRIPTION
===========================================================================
DO SET = %%$GLOBAL = MYDB GLOBAL N
DO SET = %%COS_IROW = 0 GLOBAL N
WHILE %%COS_IROW LT# %%$DBCOUNT
DO SET = %%COS_IROW = %%COS_IROW %%$PLUS 1 GLOBAL N
DO SET = %%$DBROW = %%COS_IROW GLOBAL N
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE %%FIELD01 %%FIELD02
ENDWHILE
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT , SHPF , SCHED , OPT 14.23.00
Parent Topic |