如何在JCL过程中修改变量，控制步骤仅执行一次且不影响MAXCC

你遇到的核心问题是：JCL中PROC内部通过SET修改的符号变量属于PROC局部作用域，无法传递到PROC外部或后续的PROC调用，所以每次调用PROC时，&DONE始终是JOB中初始化的0值，导致程序重复执行。以下是三种可行的解决方案，均不会影响JOB的MAXCC：

方案1：通过临时数据集的存在状态控制 #

利用JCL的IF EXIST()条件判断，以临时数据集的存在作为执行标记，完全避开符号变量作用域的限制。

JOB代码 #

//MYJOB JOB (ACCT),'RUN ONCE',CLASS=A,MSGCLASS=X
//STEP01 EXEC MYPROC
//STEP02 EXEC MYPROC
//STEP03 EXEC MYPROC

PROC代码（MYPROC） #

//MYPROC PROC
//* 检查标记数据集是否不存在，不存在则执行程序并创建数据集
//       IF NOT EXIST(&SYSUID..TEMP.PROC.MARK) THEN
//RUNPROG EXEC PGM=MYPROG
//* 用IEFBR14创建空的标记数据集，无需实际数据
//MARKER  EXEC PGM=IEFBR14
//MARKDS  DD DSN=&SYSUID..TEMP.PROC.MARK,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(1,1)),
//            UNIT=SYSDA,
//            DCB=(RECFM=F,LRECL=80,BLKSIZE=800)
//       ENDIF
//* 可选：作业结束后自动删除标记数据集
//*CLEANUP EXEC PGM=IDCAMS,COND=(0,NE)
//*SYSPRINT DD SYSOUT=*
//*SYSIN    DD *
//*  DELETE &SYSUID..TEMP.PROC.MARK
//*  SET MAXCC=0
//*/*

原理：第一次执行PROC时，标记数据集不存在，执行MYPROG并创建数据集；后续调用时检测到数据集存在，直接跳过程序步骤。IEFBR14是无操作程序，不会影响MAXCC。

方案2：使用动态符号变量（z/OS 2.1+支持） #

如果你的z/OS版本在2.1及以上，可以使用动态符号变量（双&前缀），这种变量的修改会在整个作业范围内生效，包括跨PROC调用。

JOB代码 #

//MYJOB JOB (ACCT),'RUN ONCE',CLASS=A,MSGCLASS=X
//* 初始化动态符号变量，双&表示全局生效
//   SET &&DONE=0
//STEP01 EXEC MYPROC
//STEP02 EXEC MYPROC
//STEP03 EXEC MYPROC

PROC代码（MYPROC） #

//MYPROC PROC
//* 判断动态变量值，执行后更新变量
//       IF (&&DONE=0) THEN
//RUNPROG EXEC PGM=MYPROG
//        SET &&DONE=1
//       ENDIF

原理：动态符号变量（&&DONE）的修改会被整个作业识别，后续PROC调用时会读取更新后的值，从而跳过程序步骤。

方案3：JOB级显式控制变量更新 #

将变量的更新逻辑放到JOB级别，PROC仅负责根据当前变量值判断是否执行程序，避免PROC局部变量的限制。

JOB代码 #

//MYJOB JOB (ACCT),'RUN ONCE',CLASS=A,MSGCLASS=X
//* 初始化JOB级符号变量
//   SET DONE=0
//STEP01 EXEC MYPROC
//* 执行PROC后，若DONE仍为0则更新变量
//CHECK01 IF (&DONE=0) THEN
//        SET DONE=1
//       ENDIF
//STEP02 EXEC MYPROC
//CHECK02 IF (&DONE=0) THEN
//        SET DONE=1
//       ENDIF
//STEP03 EXEC MYPROC

PROC代码（MYPROC） #

//MYPROC PROC
//* 仅在DONE为0时执行程序
//       IF (&DONE=0) THEN
//RUNPROG EXEC PGM=MYPROG
//       ENDIF

原理：JOB级的SET命令修改的变量是全局的，每次PROC调用后，JOB中的IF步骤会更新变量值，后续PROC调用时会使用最新值。

内容的提问来源于stack exchange，提问作者Mohamad Heydari