Example 1
Notify the Control-M monitor of changes in the quantity of available tape drives. Control-M will adjust the amount of its Quantitative resources.
RL: IEC501I* LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON MESSAGE = IEC501I*
JNAME JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
DESCRIPTION UPDATE RESOURCE QUANTITITES (MOUNT MESSAGE)
DESCRIPTION
===========================================================================
DO RESOURCE = TAPE 0001 -
DO
==========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 09.18.53
Example 2
Query the status of a resource in Control-M.
RL: IEC501I* LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
__ ON MESSAGE = CHECKRES
__ JNAME JTYPE SMFID SYSTEM USERID
__ ROUTE DESC CONSOLEID CONSOLE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER M88B GROUP MODE LOG RUNTSEC
__ THRESHOLD
__ DESCRIPTION CHECKS CONTROL-M FOR A RESOURCE
__ DESCRIPTION
__ ===========================================================================
__ DO RESOURCE = MAURIKANTER 0008 ?
__ IF %%$CTMRC EQ# 0
__ DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
__ MESSAGE RESOURCE FOUND
__ DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
__ MESSAGE %%$CTMRESMAX %%$CTMRESCURR %%$CTMRESPRI
__ ENDIF
__ IF %%$CTMRC EQ# 4
__ DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
__ MESSAGE RESOURCE NOT FOUND
__ ENDIF
__ IF %%$CTMRC GT# 4
__ DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
__ MESSAGE ERROR USING CONTROL-M INTERFACE - %%$CTMRC
__ ENDIF
__ DO
__ ===========================================================================.
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 09.18.53
Parent Topic |