用于运行COBOL程序调用子程序的JCL

Question

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

Answer 1

您必须包含 DD 声明在 JCL 中查找执行程序 A 的步骤。

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

//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 参考 和 JCL 用户指南。

Answer 2

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

我见过这样的情况，其中 B 是汇编器，在不交互运行时定期刷新写入磁盘，但在调试时立即写入。