Что такое ACCEPT в COBOL?

@deion 

ACCEPT - это одна из команд в COBOL, которая используется для чтения значения от пользователя и сохранения его в переменной программы.

Формат команды ACCEPT выглядит следующим образом:

1

ACCEPT identifier-1 [FROM identifier-2]

где:

• identifier-1 - это идентификатор переменной программы, в которую будет сохранено значение, введенное пользователем.
• identifier-2 - это идентификатор файла, из которого будет производиться чтение значения. Если identifier-2 не указан, то чтение значения будет производиться с устройства ввода/вывода по умолчанию (обычно это клавиатура).

Пример использования команды ACCEPT:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

IDENTIFICATION DIVISION.
PROGRAM-ID. MY-PROGRAM.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAME PIC X(20).
PROCEDURE DIVISION.
MAIN-PROCESS.
    DISPLAY "What is your name?".
    ACCEPT NAME.
    DISPLAY "Hello " NAME "!".
    STOP RUN.

В этом примере программа выводит сообщение "What is your name?" и ожидает ввода значения от пользователя. Значение, введенное пользователем, сохраняется в переменной NAME, а затем программа выводит сообщение "Hello " + значение переменной NAME + "!" и завершается.