条件处理（ Conditional Processing）

优质

小牛编辑

131浏览

2023-12-01

作业输入系统使用两种方法在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>//* STEP10 executes without any test being performed.</b>
//STEP20 EXEC PGM=SECONDP 
<b>//* 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>//* STEP30 is bypassed since 5 <= 16.</b>

COND inside EXEC 语句

当COND在作业步骤的EXEC语句中编码并被发现为真时，仅绕过该作业步骤，并从下一个作业步骤继续执行。

//CNDSAMP JOB CLASS=6,NOTIFY=&SYSUID
//*
//STP01 EXEC PGM=SORT
<b>//* Assuming STP01 ends with RC0.</b>
//STP02 EXEC PGM=MYCOBB,COND=(0,EQ,STP01)
<b>//* In STP02, condition evaluates to TRUE and step bypassed.</b>
//STP03 EXEC PGM=IEBGENER,COND=((10,LT,STP01),(10,GT,STP02))
<b>//* 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>//* Assuming STP01 ends with RC0.</b>
//STP02 EXEC PGM=MYCOBB,COND=(0,EQ,STP01)
<b>//* In STP02, condition evaluates to TRUE and step bypassed.</b>
//STP03 EXEC PGM=IEBGENER,COND=((10,LT,STP01),EVEN)
<b>//* 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>//* Assuming STP01 ends with RC0.</b>
//STP02 EXEC PGM=MYCOBB,COND=(4,EQ,STP01)
<b>//* 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>//* 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语句。