cobol85 - 在 JCL 中处理 VSAM 状态码 35

Question

我的 COBOL 程序读取了一个可能为空也可能不是空的 VSAM 文件。当文件为空时，我在 INPUT/IO 模式下打开时收到状态代码 35。我不想在程序中而是在 JCL 中处理它。有什么方法可以检查 VSAM 文件是否为空...如果无法通过 JCL 进行处理，那么我们可以在程序中处理它而无需检查状态代码 35？

Answer 1

When you get a starus "35" exit the program with a

MOVE 8 TO RETURN-CODE.
GOBACK.

[example here][1]

http://ibmmainframes.com/about60344.html

You can then test for a non-zero return code in your JCL with a COND=8 on the next step which will only execute when your program detected an empty file.

Answer 2

将 OPTIONAL 添加到 FILE-CONTROL 段落中的 SELECT 子句。

SELECT OPTIONAL fdname
    ASSIGN TO ddname
    ...