显示在
DISPLAY "An error occurred with " tracked-resource UPON SYSERR
DISPLAY A, B, C UPON CONSOLE
DISPLAY group-data UPON user-device
ON EXCEPTION
WRITE device-exception-notice
NOT ON EXCEPTION
WRITE device-usage-log
END-DISPLAY
UPON CONSOLE 是一个默认的,很少编写。使用 DISPLAY 的消息是调试 COBOL 代码的一种方法,但许多 COBOL 程序本质上是事务性的,并且在提交作业后可能永远不会与人工运算符交互。