JCL - 条件处理( Conditional Processing)
作业输入系统使用两种方法在JCL中执行条件处理。 作业完成后，将根据执行状态设置返回代码。 返回码可以是0（成功执行）到4095之间的数字（非零表示错误条件）。 最常见的传统价值观是:
0 =正常 - 一切正常
4 =警告 - 轻微错误或问题。
8 =错误 - 重大错误或问题。
12 =严重错误 - 重大错误或问题，结果不值得信任。
16 =终端错误 - 非常严重的问题，不要使用结果。
可以使用COND参数和IF-THEN-ELSE结构，基于前一步骤的返回代码来控制作业步骤执行，本教程已对此进行了解释。
COND参数
COND参数可以在JCL的JOB或EXEC语句中编码。 它是对前面作业步骤的返回码的测试。 如果评估测试为真，则绕过当前作业步骤执行。 绕过只是省略了工作步骤而不是异常终止。 在一次测试中最多可以组合八种条件。
语法 (Syntax)
以下是JCL COND参数的基本语法:
COND=(rc,logical-operator)
or
COND=(rc,logical-operator,stepname)
or
COND=EVEN
or
COND=ONLY
以下是所用参数的说明:
rc :这是返回码
logical-operator :可以是GT（大于），GE（大于或等于），EQ（等于），LT（小于），LE（小于或等于）或NE（不等于）。
stepname :这是作业步骤，其返回代码用于测试。
最后两个条件（a）COND = EVEN和（b）COND = ONLY，已在本教程的下面解释。
COND可以在JOB语句或EXEC语句中编码，在这两种情况下，它的行为都不同，如下所述:
COND inside JOB 语句
当在JOB语句中编码COND时，将针对每个作业步骤测试条件。 当条件在任何特定作业步骤为真时，它将与其后的作业步骤一起被绕过。 以下是一个例子:
//CNDSAMP JOB CLASS=6,NOTIFY=&SYSUID,COND=(5,LE)
//*
//STEP10 EXEC PGM=FIRSTP
<b class="notranslate">//* STEP10 executes without any test being performed.</b>
//STEP20 EXEC PGM=SECONDP
<b class="notranslate">//* STEP20 is bypassed, if RC of STEP10 is 5 or above.
//* Say STEP10 ends with RC4 and hence test is false.
//* So STEP20 executes and lets say it ends with RC16.</b>
//STEP30 EXEC PGM=SORT
<b class="notranslate">//* STEP30 is bypassed since 5 <= 16.</b>
COND inside EXEC 语句
当COND在作业步骤的EXEC语句中编码并被发现为真时，仅绕过该作业步骤，并从下一个作业步骤继续执行。
//CNDSAMP JOB CLASS=6,NOTIFY=&SYSUID
//*
//STP01 EXEC PGM=SORT
<b class="notranslate">//* Assuming STP01 ends with RC0.</b>
//STP02 EXEC PGM=MYCOBB,COND=(0,EQ,STP01)
<b class="notranslate">//* In STP02, condition evaluates to TRUE and step bypassed.</b>
//STP03 EXEC PGM=IEBGENER,COND=((10,LT,STP01),(10,GT,STP02))
<b class="notranslate">//* In STP03, first condition fails and hence STP03 executes.
//* Since STP02 is bypassed, the condition (10,GT,STP02) in
//* STP03 is not tested.</b>
COND=EVEN
当编码COND = EVEN时，即使前面的任何步骤异常终止，也执行当前作业步骤。 如果任何其他RC条件与COND = EVEN一起编码，则如果RC条件均不为真，则执行作业步骤。
//CNDSAMP JOB CLASS=6,NOTIFY=&SYSUID
//*
//STP01 EXEC PGM=SORT
<b class="notranslate">//* Assuming STP01 ends with RC0.</b>
//STP02 EXEC PGM=MYCOBB,COND=(0,EQ,STP01)
<b class="notranslate">//* In STP02, condition evaluates to TRUE and step bypassed.</b>
//STP03 EXEC PGM=IEBGENER,COND=((10,LT,STP01),EVEN)
<b class="notranslate">//* In STP03, condition (10,LT,STP01) evaluates to true,
//* hence the step is bypassed.</b>
COND=ONLY
当编码COND = ONLY时，仅当前面的任何步骤异常终止时才执行当前作业步骤。 如果任何其他RC条件与COND = ONLY一起编码，则如果RC条件均不为真且任何先前作业步骤异常失败，则执行作业步骤。
//CNDSAMP JOB CLASS=6,NOTIFY=&SYSUID
//*
//STP01 EXEC PGM=SORT
<b class="notranslate">//* Assuming STP01 ends with RC0.</b>
//STP02 EXEC PGM=MYCOBB,COND=(4,EQ,STP01)
<b class="notranslate">//* In STP02, condition evaluates to FALSE, step is executed
//* and assume the step abends.</b>
//STP03 EXEC PGM=IEBGENER,COND=((0,EQ,STP01),ONLY)
<b class="notranslate">//* In STP03, though the STP02 abends, the condition
//* (0,EQ,STP01) is met. Hence STP03 is bypassed.</b>
IF-THEN-ELSE Construct
控制作业处理的另一种方法是使用IF-THEN-ELSE结构。 这为条件处理提供了更多的灵活性和用户友好的方式。
语法 (Syntax)
以下是JCL IF-THEN-ELSE构造的基本语法:
//name IF condition THEN
list of statements //* action to be taken when condition is true
//name ELSE
list of statements //* action to be taken when condition is false
//name ENDIF
以下是上述IF-THEN-ELSE构造中使用的术语的描述:
name :这是可选的，名称可以包含1到8个以字母，＃，$或@开头的字母数字字符。
Condition :条件将具有以下格式: KEYWORD OPERATOR VALUE ，其中KEYWORDS可以是RC（返回代码），ABENDCC（系统或用户完成代码），ABEND，RUN（步骤开始执行）。 OPERATOR可以是逻辑运算符（AND（＆），OR（|））或关系运算符（“，”=，“，”=，“”）。
例子 (Example)
以下是一个显示IF-THEN-ELSE用法的简单示例:
//CNDSAMP JOB CLASS=6,NOTIFY=&SYSUID
//*
//PRC1 PROC
//PST1 EXEC PGM=SORT
//PST2 EXEC PGM=IEBGENER
// PEND
//STP01 EXEC PGM=SORT
//IF1 IF STP01.RC = 0 THEN
//STP02 EXEC PGM=MYCOBB1,PARM=123
// ENDIF
//IF2 IF STP01.RUN THEN
//STP03a EXEC PGM=IEBGENER
//STP03b EXEC PGM=SORT
// ENDIF
//IF3 IF STP03b.!ABEND THEN
//STP04 EXEC PGM=MYCOBB1,PARM=456
// ELSE
// ENDIF
//IF4 IF (STP01.RC = 0 & STP02.RC <= 4) THEN
//STP05 EXEC PROC=PRC1
// ENDIF
//IF5 IF STP05.PRC1.PST1.ABEND THEN
//STP06 EXEC PGM=MYABD
// ELSE
//STP07 EXEC PGM=SORT
// ENDIF
让我们试着看一下上面的程序，以便更详细地理解它:
在IF1中测试STP01的返回码。 如果为0，则执行STP02。 否则，处理进入下一个IF语句（IF2）。
在IF2中，如果STP01已经开始执行，则执行STP03a和STP03b。
在IF3中，如果STP03b没有ABEND，则执行STP04。 在ELSE中，没有任何陈述。 它被称为NULL ELSE语句。
在IF4中，如果STP01.RC = 0且STP02.RC <= 4为TRUE，则执行STP05。
在IF5中，如果PROC PRC1中的proc-step PST1在jobstep STP05 ABEND中执行，则执行STP06。 其他STP07已执行。
如果IF4的计算结果为false，则不执行STP05。 在这种情况下，不测试IF5并且不执行步骤STP06，STP07。
如果作业异常终止（例如，用户取消作业，作业时间到期或数据集后向参考被绕过的步骤），则不会执行IF-THEN-ELSE。
设置检查点
您可以使用SYSCKEOV,这是一个DD语句）在JCL程序中设置检查点数据集。
CHKPT是在DD语句中为多卷QSAM数据集编码的参数。 当CHKPT编码为CHKPT = EOV时，检查点将写入输入/输出多卷数据集的每个卷末尾的SYSCKEOV语句中指定的数据集。
//CHKSAMP JOB CLASS=6,NOTIFY=&SYSUID
//*
//STP01 EXEC PGM=MYCOBB
//SYSCKEOV DD DSNAME=SAMPLE.CHK,DISP=MOD
//IN1 DD DSN=SAMPLE.IN,DISP=SHR
//OUT1 DD DSN=SAMPLE.OUT,DISP=(,CATLG,CATLG)
// CHKPT=EOV,LRECL=80,RECFM=FB
在上面的示例中，检查点写在输出数据集SAMPLE.OUT的每个卷末尾的数据集SAMPLE.CHK中。
重启处理
您可以使用RD parameter或手动使用RESTART parameter以自动方式重新启动处理以太网。
RD parameter在JOB或EXEC语句中编码，它有助于自动JOB/STEP重启，并且可以保存四个值之一:R，RNC，NR或NC。
RD=R允许自动重启并考虑在DD语句的CHKPT参数中编码的检查点。
RD=RNC允许自动重启，但覆盖（忽略）CHKPT参数。
RD=NR指定无法自动重新启动作业/步骤。 但是当使用RESTART参数手动重新启动时，将考虑CHKPT参数（如果有）。
RD=NC不允许自动重启和检查点处理。
如果仅要求对特定异常SCHEDxx代码执行自动重新启动，则可以在IBM系统parmlib库的SCHEDxx成员中指定它。
RESTART parameter在JOB或EXEC语句中编码，有助于在作业失败后手动重启JOB/STEP。 RESTART可以附带一个checkid，它是在SYSCKEOV DD语句中编码的数据集中编写的检查点。 编码checkid时，SYSCHK DD语句应编码为在JOBLIB语句之后引用检查点数据集（如果有），否则在JOB语句之后引用。
//CHKSAMP JOB CLASS=6,NOTIFY=&SYSUID,RESTART=(STP01,chk5)
//*
//SYSCHK DD DSN=SAMPLE.CHK,DISP=OLD
//STP01 EXEC PGM=MYCOBB
//*SYSCKEOV DD DSNAME=SAMPLE.CHK,DISP=MOD
//IN1 DD DSN=SAMPLE.IN,DISP=SHR
//OUT1 DD DSN=SAMPLE.OUT,DISP=(,CATLG,CATLG)
// CHKPT=EOV,LRECL=80,RECFM=FB
在上面的例子中，chk5是checkid，即在checkpoint5重新启动STP01。 请注意，在设置检查点部分中解释的先前程序中添加了SYSCHK语句并注释掉了SYSCKEOV语句。
