Maintaining Valid Rule Definitions

Since rule definitions must be syntactically correct at all times, the user must 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 must 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.

Fig.JV.C.2 Example 1 Before - Move a DO Block in the Rule Definition Screen

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

M_ DO SET %%E = %%C%%$PLUS%%D

__ DO SET %%C = 1

A_ DO SET %%D = 2

__ DO MSG TYPE I %%C PLUS %%D IS %%E

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.3 Example 1 After - Move a DO Block in the Rule Definition Screen (the DO block has been moved)

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

__ DO SET %%E = %%C%%$PLUS%%D

__ DO MSG TYPE I %%C PLUS %%D IS %%E

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.4 Example 2 Before - Copy a Line of Text in the Rule Description

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

C_ DESC DOTYP05 RETURN

A_ DESC

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

__ DO SET %%E = %%C%%$PLUS%%D

__ DO MSG TYPE I %%C PLUS %%D IS %%E

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.5 Example 2 After - Copy a Line of Text in the Rule Description (the text has been copied)

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ DESC DOTYP05 RETURN

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

__ DO SET %%E = %%C%%$PLUS%%D

__ DO MSG TYPE I %%C PLUS %%D IS %%E

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.6 Example 3 Before - Delete an Unnecessary DO Statement

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ DESC DOTYP05 RETURN

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

__ DO SET %%E = %%C%%$PLUS%%D

D_ DO MSG TYPE I %%C PLUS %%D IS %%E

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.7 Example 3 After - Delete an Unnecessary DO Statement (DO MSG was deleted)

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ DESC DOTYP05 RETURN

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

__ DO SET %%E = %%C%%$PLUS%%D

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.8 Example 4 Before - Moving DO statements in the Rule Definition

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ DESC DOTYP05 RETURN

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

MM DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

MM ENDIF

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

A_ DO SET %%E = %%C%%$PLUS%%D

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Fig.JV.C.9 Example 4 After - Moving DO statements in the Rule Definition

- CONTROL-M/JCLVERIFY RULE: DOTYP05 TABLE: DOTYPES0

COMMAND ===> SCROLL===> CRSR

+-----------------------------------------------------------------------------+

__ RULE DOTYP05 ENVIRONMENT GENERAL PRIORITY 50 CONTINUE SEARCH Y

__ DESC DOTYP05 RETURN

__ DESC

__ DESC DOTYP05 RETURN

__ ===========================================================================

__ JOBNAME *

__ ===========================================================================

__ LIBRARY * MEMBER DOTYPE01

__ SCHDLIB SCHDTAB O/N

__ ===========================================================================

__ ON JOB CLASS PRTY USER

__ ACCOUNT O/N

__ ===========================================================================

__ DO SET %%A = RULE DOTYP06 %% PLUS

__ DO SET %%B = PR 50 CONTINUE SEARCH Y

__ DO MSG TYPE I TEST FOR %%A %%B

__ DO SET %%C = 1

__ DO SET %%D = 2

__ DO SET %%E = %%C%%$PLUS%%D

__ DO SET %%Q = %%$BLANK

__ DO

__ IF %%Q EQ %%$BLANK

__ DO MSG TYPE E RETURN ACTIVATED RC 0010 RS 2222

__ DO

__ RETURN RC 0010 RS X' 2222 '

__ ENDIF

__ DO

FILL IN RULE DEFINITION. CMDS: EDIT DOOPT ONOPT CANCEL 18.52.23

Parent Topic

Editing Rule Definitions in the IOA Edit Environment