Я не могу отобразить сообщение об ошибке для пользователя, используя раздел экрана в COBOL - PullRequest
Новая
       31

Я не могу отобразить сообщение об ошибке для пользователя, используя раздел экрана в COBOL

0 голосов
/ 24 июня 2019

Я строю систему cobol и не могу отобразить сообщение об ошибке пользователю, используя раздел экрана.Как я могу это сделать?

А как получить клавишу ESC, которую пользователь нажимает, чтобы вернуться в меню?

Я использую GNUCobol и OpenCobol.

1 Ответ

0 голосов
/ 14 июля 2019

Вот очень краткий пример того, как вы можете использовать раздел экрана в 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.

Обратите внимание на экран раздела. Вы должны объявить переменные, которые будут представлять поля внутри инкапсуляции раздела экрана. Вставленное значение будет сохранено в переменной, объявленной в разделе рабочего хранилища. Отличную статью о том, как использовать экран, можно прочитать на следующей веб-странице: Использование экранов в COBOL .

...