cobol - JCL 用于运行 COBOL 程序调用子程序

Question

我有一个 COBOL pgm A 正在调用另一个 COBOL pgm B。在 pgm BI 中需要一个文件。如何编写 JCL 以便能够在 pgm B 中访问该文件？我在 B 中为此文件编写了 select 子句和 FD 条目。

Answer 1

对于执行程序 A 的步骤，您必须在 JCL 中包含DD 语句。

如果文件存在，那很容易。

//ABCDEFGH DD DISP=SHR,DSN=your.file.name.here

其中 ABCDEFGH 是您在程序 B 的 SELECT 语句中使用的名称。

如果要创建新文件，则必须考虑文件将使用的估计空间以及放置它的位置。

//ABCDEFGH DD DISP=(NEW,CATLG,DELETE),
//            DSN=your.file.name.here,
//            AVGREC=K,
//            RECFM=FB,
//            LRECL=your-lrecl-here,
//            MGMTCLAS=your-management-class-here,
//            SPACE=(your-lrecl-here,(primary-number-of-records,secondary),RLSE)

这只是徒手画的，你真的应该看看JCL Reference和JCL User's Guide。

Answer 2

1. 在步骤中包含 DD 语句。
2. 程序 B 甚至不必是 COBOL。
3. 理想地设计使程序 B 是一个服务程序 - 根据请求和您的需要打开、关闭、读取、写入重写。如果预期这种封装，它将使您的生活更轻松。

我已经看到 B 是汇编程序，并且在不以交互方式运行时定期将写入刷新到磁盘，但在调试时立即写入。