接受子程序中的SYSIN

Question

假设我从JCL执行一个COBOL程序，使用SYSIN DD提供数据。

如果该程序然后CALLs一个COBOL子程序，并且仍然可以从输入中获得一些数据，那么该子程序能够使用ACCEPT语句读取它们吗？

还是SYSIN仅从从JCL调用的运行单元的主程序中访问？

编辑：，我认为这是一个糟糕的编码实践。我不打算使用它，也不需要更好的替代方案，我知道(例如从主数据读取输入设备数据并通过它们的LINKAGE将其传递给子程序)。

实际上，我不是在编写COBOL代码，而是研究/处理它，因此我对“角案例”行为感兴趣，以完善我对COBOL语义的理解。

Answer 1

您只需在主程序上使用ACCEPT。如果你想发送信息，你应该使用副本。