我无法使用COBOL中的屏幕部分向用户显示错误消息

我无法使用COBOL中的屏幕部分向用户显示错误消息,cobol,gnucobol,Cobol,Gnucobol,我正在构建一个cobol系统,无法向使用屏幕部分的用户显示错误消息。我该怎么做 如何获取用户按下返回菜单的ESC键 我正在使用GNUCobol和OpenCobol。下面是一个非常简单的例子,说明如何在cobol中使用screen部分 *>**************************************************************** *> Author:mnemonics *> Date: *> Purpose: *> Tectoni

我正在构建一个cobol系统,无法向使用屏幕部分的用户显示错误消息。我该怎么做

如何获取用户按下返回菜单的ESC键


我正在使用GNUCobol和OpenCobol。

下面是一个非常简单的例子,说明如何在cobol中使用screen部分

*>****************************************************************
*> Author:mnemonics
*> Date:
*> Purpose:
*> Tectonics: cobc
*>****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. using-screen.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 id-in-ws pic x(4).
screen section.
01 id-input line 5 col 10 pic x(4) to id-in-ws. 
01 id-input-fld line 5 col 5 value "id: ".
PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY id-input-fld
    accept id-input

    STOP RUN.
END PROGRAM using-screen.

观察区段屏幕。您必须声明变量,这些变量将表示屏幕部分封装内的字段。插入的值将存储在working storage部分下声明的变量中。下面的网页上有一篇关于如何使用screen的好文章:。

这个问题非常广泛。您基本上是在问我如何进行CICS屏幕编程。这在很大程度上取决于您当前所做的工作,但是使用屏幕部分显示错误消息似乎不是什么大问题,如果您显示您当前的代码、不工作的部分以及可能的cobcrun-info输出,那么我们将能够回答一些有用的问题。请参阅常见问题解答,网址为