Question

我正在构建cobol系统，但无法使用屏幕部分向用户显示错误消息。我怎样才能做到这一点？

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

我正在使用GNUCobol和OpenCobol。

Answer 1

这里有一个非常简短的示例，说明如何在cobol中使用屏幕部分。

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

观察分区屏幕。您必须声明将代表屏幕部分封装内的字段的变量。插入的值将存储在work-storage部分下声明的变量中。可以在以下网页中阅读有关如何使用屏幕的精彩文章：Using screens in COBOL。

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

1 个答案: