如何将 Job Max RC / Last CC 传递给 COBOL 程序

Question

假设作业中有一个 PGM=SORT 步骤，执行后以 RC=8 结束， 我需要在下一步中通过参数将该 RC 值（或最后一个 CC）发送到 COBOL 程序。

如何使用/发送RC？

我尝试过： //步骤2 EXEC PGM=MYPROG,PARM=&RC

还有 // 设置 MYRC=RC //Step2 EXEC PGM=MYPROG,PARM=&MYRC

他们没有工作。

Answer 1

除非自从我上次使用大型机以来事情发生了变化，正如@Kolsu所说，你不能将返回代码传递给下一个程序。

返回代码是 JCL 的事情。通常您会使用 JCL if 语句 喜欢

//  IF (SORT.RC < 8) THEN
//MYSTEM EXEC PGM=MYPROG
//  ENDIF

你可以做一些愚蠢的事情，比如

//  IF (SORT.RC = 0) THEN
//MYSTEM EXEC PGM=MYPROG,PARM="00"
//  ENDIF
//  IF (SORT.RC = 4) THEN
//MYSTEM EXEC PGM=MYPROG,PARM="04"
//  ENDIF
//  IF (SORT.RC = 8) THEN
//MYSTEM EXEC PGM=MYPROG,PARM="08"
//  ENDIF