在 Mainframe COBOL 中，如何向控制台操作员发送消息，等待响应，然后继续？

Posted 2023-02-16

【中文标题】在 Mainframe COBOL 中，如何向控制台操作员发送消息，等待响应，然后继续？

【英文标题】：In Mainframe COBOL, How Can I Send a Message to the Console Operator, Wait for a Response, Then Continue?

【发布时间】：2017-03-17 00:10:59

【问题描述】：

我有一个运行时间很长的 COBOL 程序，它在一天中的不同时间随机运行。控制台操作员希望在启动时收到通知，并让程序等待，这样他们就可以在让工作继续之前去喝咖啡。如何使用 COBOL 做到这一点？

【问题讨论】：

唉，我正在尝试加入的大型机文档项目在这里：:-( ***.com/documentation/mainframe 我只需要大约 25 分即可获得资格，然后我将在这里完成。你能投票吗我？

【参考方案1】：

使用 COBOL 'STOP' 语句，如下所示：

 IDENTIFICATION DIVISION.               
 PROGRAM-ID. SAMPLE.                    
 PROCEDURE DIVISION.                    
     STOP 'GO GET COFFEE' 
* program waits until operator responds                 
     DISPLAY 'PROGRAM WILL NOW CONTINUE'
* program now continues 
*    [...]      
     GOBACK.                             

【讨论】：

与往常一样，在编写此类代码之前，请咨询您的技术人员。

您可以在控制台上显示...然后从控制台接受...甚至使用响应。但是，仅仅因为它可以做到，并不意味着它是一个好主意。

我还推荐 ACCEPT 而不是 STOP literal，因为 STOP literal 已在 30 多年前从标准 COBOL 中删除。甚至 IBM 在 COBOL for z/OS 手册中都反对它。