Since rule definitions must be syntactically correct at all times, the user should consider the following issues when specifying Line Editing commands:
When a logical command is specified within a logical line, that is, on a subparameter line, or a continuation line, the specified operation is performed on the entire logical line.
It is recommended that, wherever possible, the D, C, R, and M commands be used for editing (instead of DS, DL, CS, CL, RS, RL, MS, and ML) because these commands automatically retain the logical structure of the rule definition.
Figure 251 Example 1 Before – Move a DO Block in the Rule Definition Screen
RL: $HASP050 LIB CTOP.PRODSMP.RULES TABLE: $HASP
COMMAND ===> SCROLL===> CRSR
-------------------------------------------------------------------------------
__ ON MESSAGE = $HASP050
__ ROUTE DESC CONSOLEID SMFID JNAME JTYPE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION JES2 - RESOURCE SHORTAGE
__ DESCRIPTION FORCE A JOB TO ADJUST JES RESOURCES
__ DESCRIPTION
__ ===========================================================================
__ B_ DO SHOUT = TO TSO-SHIFTUSER URGENCY R
__ MESSAGE JES2 RESOURCE SHORTAGE - PLEASE HANDLE IT
__ DO COMMAND = $DSPL,ALL,JOBS=5 WAIT CONSOLEID
__ WAITMODE N
__ M_ DO FORCEJOB = TABLE JES2JOBS JOB SYSJES1 UFLOW N DATE ODAT
__ LIBRARY CTM.PROD.SCHEDULE
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 17.12.29
Figure 252 Example 1 After – Move a DO Block in the Rule Definition Screen (the DO block has been moved)
RL: $HASP050 LIB CTOP.PRODSMP.RULES TABLE: $HASP
COMMAND ===> SCROLL===> CRSR
----------------------------------------------------------------------------
__ ON MESSAGE = $HASP050
__ ROUTE DESC CONSOLEID SMFID JNAME JTYPE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION FORCE A JOB TO ADJUST JES RESOURCES
__ DESCRIPTION
__ ===========================================================================
__ DO FORCEJOB = TABLE JES2JOBS JOB SYSJES1 UFLOW N DATE ODAT
__ LIBRARY CTM.PROD.SCHEDULE
__ DO SHOUT = TO TSO-SHIFTUSER URGENCY R
__ MESSAGE JES2 RESOURCE SHORTAGE - PLEASE HANDLE IT
__ DO COMMAND = $DSPL,ALL,JOBS=5 WAIT CONSOLEID
__ WAITMODE N
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 17.17.14
Figure 253 Example 2 Before – Copy a Line of Text in the Rule Description
RL: $HASP250 LIB CTOP.PRODSMP.RULES TABLE: $HASP
COMMAND ===> SCROLL===> CRSR
---------------------------------------
__ ON MESSAGE = $HASP250
__ ROUTE DESC CONSOLEID SMFID JNAME JTYPE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ C_ DESCRIPTION **************************************
__ A_ DESCRIPTION * JES2 - SUPPRESS JOB PURGED MESSAGE *
__ DESCRIPTION
__ ===========================================================================
__ DO DISPLAY = SUPPRESS Y ROUTE DESC CONSOLEID
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 17.20.04
Figure 254 Example 2 After – Copy a Line of Text in the Rule Description (the text has been copied)
RL: $HASP250 LIB CTOP.PRODSMP.RULES TABLE: $HASP
COMMAND ===> SCROLL===> CRSR
-----------------------------------------
__ ON MESSAGE = $HASP250
__ ROUTE DESC CONSOLEID SMFID JNAME JTYPE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION **************************************
__ DESCRIPTION * JES2 - SUPPRESS JOB PURGED MESSAGE *
__ DESCRIPTION **************************************
__ DESCRIPTION
===========================================================================
__ DO DISPLAY = SUPPRESS Y ROUTE DESC CONSOLEID
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 17.23.22
Figure 255 Example 3 Before – Delete an Unnecessary DO Statement
RL: DAILY LIB CTOP.PRODSMP.RULES TABLE: DAILY
COMMAND ===> SCROLL===> CRSR
-----------------------------------------
__ ON EVENT = DAILY
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION SAMPLE RULE TO DAILY ORDER THE CONTROL-O RULES
__ DESCRIPTION NOTE: THE CURRENT EXAMPLE WAS BUILT WITH THE ASSUMPTION
__ DESCRIPTION THAT THE NEWDAY TIME IN CTOPARM IS 12:00.
__ DESCRIPTION
__ ===========================================================================
__ /* IF VARIABLE %%RELOADED WAS NOT SET YET, THEN SET IT TO RDATE
__ DO SET = %%$GLOBAL = POOLTEMP GLOBAL N
__ IF %%RELOADED EQ %%$UNDEF
__ DO SET = %%RELOADED = %%$RDATE GLOBAL Y
__ D_ DO SHOUT = TO OPER URGENCY R
__ MESSAGE VARIABLE %%RELOADED HAS BEEN SET
__ ENDIF
__ /* IF VARIABLE %%RELOADED WAS NOT SET TODAY, IT MEANS WE NEED TO RELOAD
__ /* THE CONTROL-O WORKING TABLES.
__ IF %%RELOADED NE %%$RDATE
__ DO SET = %%RELOADED = %%$RDATE GLOBAL Y
__ DO COMMAND = F %%$CONTROLO,O=ALL,REBUILD WAIT CONSOLEID
__ WAITMODE N
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 15.10.17
Figure 256 Example 3 After – Delete an Unnecessary DO Statement (the DO SHOUT statement has been deleted)
RL: DAILY LIB CTOP.PRODSMP.RULES TABLE: DAILY
COMMAND ===> SCROLL===> CRSR
----------------------------------------
__ ON EVENT = DAILY
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION SAMPLE RULE TO DAILY ORDER THE CONTROL-O RULES
__ DESCRIPTION NOTE: THE CURRENT EXAMPLE WAS BUILT WITH THE ASSUMPTION
__ DESCRIPTION THAT THE NEWDAY TIME IN CTOPARM IS 12:00.
__ DESCRIPTION
__ ===========================================================================
__ /* IF VARIABLE %%RELOADED WAS NOT SET YET, THEN SET IT TO RDATE
__ DO SET = %%$GLOBAL = POOLTEMP GLOBAL N
__ IF %%RELOADED EQ %%$UNDEF
__ DO SET = %%RELOADED = %%$RDATE GLOBAL Y
__ ENDIF
__ /* IF VARIABLE %%RELOADED WAS NOT SET TODAY, IT MEANS WE NEED TO RELOAD
__ /* THE CONTROL-O WORKING TABLES.
__ IF %%RELOADED NE %%$RDATE
__ DO SET = %%RELOADED = %%$RDATE GLOBAL Y
__ DO COMMAND = F %%$CONTROLO,O=ALL,REBUILD WAIT CONSOLEID
__ WAITMODE N
__ ENDIF
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 15.11.54
Figure 257 Example 4 Before – Move specified DO statements in the Rule Definition
RL: ABC123AR LIB CTOP.PRODSMP.RULES TABLE: JOBRULE
COMMAND ===> SCROLL===> CRSR
---------------------------------------
__ ON MESSAGE = ABC123AR
__ ROUTE DESC CONSOLEID SMFID JNAME JTYPE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION
===========================================================================
__ B DO SHOUT = TO OPER2 URGENCY R
__ MESSAGE CURRENTLY CLEANING DATABASE USING CONTROL-M JOB
__ MM DO SET = %%ARMSG_DOMID = %%$LDOMID GLOBAL Y
__ DO FORCEJOB = TABLE JOBCTM JOB JOBJCL UFLOW N DATE ODAT
__ LIBRARY CTMP.PRODCTO.SCHEDULE
__ A_ DO COND = CTO-ABC123XX-PAUSE STAT +
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 17.35.51
Figure 258 Example 4 After – Move specified DO statements in the Rule Definition (the DO statements Have Been Moved)
RL: ABC123AR LIB CTOP.PRODSMP.RULES TABLE: JOBRULE
COMMAND ===> SCROLL===> CRSR
-------------------------------------------------------------------------------
__ ON MESSAGE = ABC123AR
__ ROUTE DESC CONSOLEID SMFID JNAME JTYPE
__ APPEARED TIMES IN MINUTES And/Or/Not
__ OWNER IOAADMIN GROUP MODE PROD RUNTSEC
__ DESCRIPTION
__ ===========================================================================
__ DO FORCEJOB = TABLE JOBCTM JOB JOBJCL UFLOW N DATE ODAT
__ LIBRARY CTMP.PRODCTO.SCHEDULE
__ DO COND = CTO-ABC123XX-PAUSE STAT +
__ DO SHOUT = TO OPER2 URGENCY R
__ MESSAGE CURRENTLY CLEANING DATABASE USING CONTROL-M JOB
__ DO SET = %%ARMSG_DOMID = %%$LDOMID GLOBAL Y
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 17.38.30
Parent Topic |