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

Question

我有一个很长时间运行的COBOL程序,它在白天的不同时间随机运行.控制台操作员希望在启动时收到通知并让程序等待,以便他们可以在让工作继续之前获得咖啡.我怎么能用COBOL做到这一点？

Answer 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.