显示在

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 程序本质上是事务性的,并且在提交作业后可能永远不会与人工运算符交互。