Editing Rule Definitions in the IOA Edit Environment

Rule Definition parameters can be edited (moved, copied, deleted, repeated) by performing IOA Line Editing commands similar to standard ISPF line commands, from within the IOA Edit environment.

The Edit environment in a Rule Definition screen is accessed by typing EDIT in the COMMAND field and pressing Enter.

Figure 250 Edit Environment in a Rule Definition Screen

Copy 
RL: CANCEL *   LIB CTO.PROD.RULES                               TABLE: JOB
COMMAND ===>                                                   SCROLL===> CRSR
+-----------------------------------------------------------------------------+
__ ON COMMAND  = CANCEL *
__    JNAME          JTYPE         SMFID        SYSTEM       USERID
__    ROUTE          DESC          CONSOLEID 01 CONSOLE
__    APPEARED        TIMES IN       MINUTES                          And/Or/Not
__ OWNER IOAADMIN GROUP                         MODE PROD    RUNTSEC
__ DESCRIPTION ASK FOR OPERATOR'S CONFIRMATION OF SENSITIVE COMMANDS
__ DESCRIPTION
__ ===========================================================================
__ /* SUPPRESS ORIGINAL COMMAND
__ DO DISPLAY  = SUPPRESS Y           ROUTE             DESC      CONSOLEID
__ /* ASK OPERATOR FOR CONFIRMATION
__ WHILE    %%$RPLYTXT NE YES AND %%$RPLYTXT NE NOT
__ DO ASKOPER  = ENTER "YES" OR "NOT" FOR CONFIRMATION
__               ROUTE                CONSOLEID         TIMEOUT
__ ENDWHILE
__ /* UPON CONFIRMATION, RE-ISSUE THE ORIGINAL COMMAND
__ IF       %%$RPLYTXT EQ YES
__ DO COMMAND  = %%$CMD                                  WAIT      CONSOLEID
__    WAITMODE   N
__ ENDIF
__ DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF                  14.51.58

A 2-character line editing command field, marked by underscores, is displayed for each line on the Rule Definition screen.

Editing commands are typed directly onto these underscores.

Incorrectly specified line editing commands can be corrected by typing over them correctly. line editing commands can be deleted by blanking them out or by specifying the RESET command in the COMMAND field.

Specified line editing commands are processed when Enter is pressed.

Control-O performs automatic syntax checking to ensure that the rule definition is still syntactically correct after editing. If an edit will invalidate the rule definition, a message is displayed at the top of the screen and the edit is not performed. For guidelines and recommendations for editing rule definitions see Maintaining Valid Rule Definitions.

All operations available in the Rule Definition screen can be performed while in the Edit environment. For example, parameter values can be changed, the Rule Definition screen can be saved, and the screen exited.

To exit the Edit environment, retype EDIT in the COMMAND field and press Enter. Line editing command fields are removed from the display.

Line editing commands can be performed on any single ON or DO statement or on a block of ON or DO statements.

Line Editing Commands

The following tables show the types of line editing commands that exist in the Edit environment.

Table 199 Delete Commands

Command

Description

DS

Delete a single line.

DL

Delete a logical line.

DD

Delete lines between two DD specifications.

D

Deletes a line. Control-O determines whether to delete a single or logical line based on the parameter on the line.

Table 200 Copy commands

Command

Description

CS

Copies a single line.

CL

Copies a logical line.

CC

Copies lines between two CC specifications.

C

Copies a line. Control-O determines whether to copy a single or logical line based on the parameter on the line.

Copy commands are used in conjunction with Location commands. The lines are placed at the position indicated by the A or B Location command (described in Table 204).

Table 201 Move commands

Command

Description

MS

Move a single line.

ML

Moves a logical line.

MM

Moves lines between two MM specifications.

M

Moves a line. Control-O determines whether to move a single or logical line based on the parameter on the line.

Move commands are used in conjunction with Location commands. The lines are placed at the position indicated by the A or B Location command (described in Table 204).

Table 202 Repeat commands

Command

Description

RS

Repeat a single line.

RL

Repeats a logical line.

RR

Repeats lines between two RR specifications.

R

Repeats a line. Control-O determines whether to repeat a single or logical line based on the parameter on the line.

The repeated lines is placed immediately after the lines that has been repeated.

Table 203 Insert commands

Command

Description

I (Insert)

Insert a new logical line or block after the logical line or block marked with an I.

Table 204 Location commands

Command

Description

Location commands indicate the position where lines should be placed.

A (After)

Indicates that lines should be placed after the line marked with an A.

B (Before)

Indicates that lines should be placed before the line marked with a B.

The A and B Location commands are used together with Copy (C, CS, CL, CC), and Move (M, MS, ML, MM) commands.

Maintaining Valid Rule Definitions

Since rule definitions must be syntactically correct at all times, the user should consider the following issues when specifying Line Editing commands:

  • The result of a line editing command is dependent on the line on which the command is specified. For example, the D command deletes either a single or a logical line based on the line type.

  • Logical lines function as a unit and may not be separated.

    • 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.

  • Blank parameter lines added automatically by Control-O, to allow the user to specify additional parameters, cannot be deleted.

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

Copy 
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)

Copy 
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

Copy 
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)

Copy 
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

Copy 
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)

Copy 
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

Copy 
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)

Copy 
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

Line Editing Commands

The following tables show the types of line editing commands that exist in the Edit environment.

Table 199 Delete Commands

Command

Description

DS

Delete a single line.

DL

Delete a logical line.

DD

Delete lines between two DD specifications.

D

Deletes a line. Control-O determines whether to delete a single or logical line based on the parameter on the line.

Table 200 Copy commands

 

 

Command

Description

CS

Copies a single line.

CL

Copies a logical line.

CC

Copies lines between two CC specifications.

C

Copies a line. Control-O determines whether to copy a single or logical line based on the parameter on the line.

Copy commands are used in conjunction with Location commands. The lines are placed at the position indicated by the A or B Location command (described in Table 204).

Table 201 Move commands

Command

Description

MS

Move a single line.

ML

Moves a logical line.

MM

Moves lines between two MM specifications.

M

Moves a line. Control-O determines whether to move a single or logical line based on the parameter on the line.

Move commands are used in conjunction with Location commands. The lines are placed at the position indicated by the A or B Location command (described in Table 204).

Table 202 Repeat commands

Command

Description

RS

Repeat a single line.

RL

Repeats a logical line.

RR

Repeats lines between two RR specifications.

R

Repeats a line. Control-O determines whether to repeat a single or logical line based on the parameter on the line.

The repeated lines is placed immediately after the lines that has been repeated.

Table 203 Insert commands

Command

Description

I (Insert)

Insert a new logical line or block after the logical line or block marked with an I.

Table 204 Location commands

Command

Description

Location commands indicate the position where lines should be placed.

A (After)

Indicates that lines should be placed after the line marked with an A.

B (Before)

Indicates that lines should be placed before the line marked with a B.

The A and B Location commands are used together with Copy (C, CS, CL, CC), and Move (M, MS, ML, MM) commands.

Maintaining Valid Rule Definitions

Since rule definitions must be syntactically correct at all times, the user should consider the following issues when specifying Line Editing commands:

  • The result of a line editing command is dependent on the line on which the command is specified. For example, the D command deletes either a single or a logical line based on the line type.

  • Logical lines function as a unit and may not be separated.

  • 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.

  • Blank parameter lines added automatically by Control-O, to allow the user to specify additional parameters, cannot be deleted.

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

Copy 
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)

Copy 
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

Copy 
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)

Copy 
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

Copy 
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)

Copy 
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

Copy 
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)

Copy 
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