Страница 103: ГОСТ 22558-89. Язык программирования КОБОЛ (74592)

Элемент

ГОСТ 22558

Настоящий стандарт

Вариант WITH LOCK (С ЗАМКОМ)

2 ПОД

2 ПОД

1 ОТД

2 ОТД

1 ИПД

2 ИПЦ

1 ГОТ

1 ГОТ

Оператор COMPUTE (ВЫЧИСЛИТЬ)

2 ЯДР

2 ЯДР

Арифметическое выражение

2 ЯДР

2 ЯДР

Несколько идентификаторов

2 ЯДР

2 ЯДР

Вариант ROUNDED (ОКРУГЛЯЯ)

2 ЯДР

2 ЯДР

Вариант ON SIZE ERROR (ПРИ ПЕРЕПОЛ-

НЕНИИ)

2 ЯДР

2 ЯДР

Вариант NOT ON SIZE ERROR (БЕЗ ПЕРЕ-

ПОЛНЕНИЯ)

—

2 ЯДР

Вариант END-COMPUTE (КОНЕЦ-ВЫЧИС-

ЛИТЬ)

—

2 ЯДР

Оператор CONTINUE (ПРОДОЛЖИТЬ)

—■

1 ЯДР

Оператор DELETE (УДАЛИТЬ)

1 отд

1 ОТД

,1 ИПД

1 ИПД

Вариант INVALID KEY (ПРИ ОШИБКЕ КЛЮ-

ЧА)

1 отд

1 ОТД

Вариант NOT INVALID KEY (БЕЗ ОШИБКИ

1 ИИД

КЛЮЧА)

—

1 отд

Вариант END-DELETE (КОНЕЦ-УДАЛИТЬ)

1 ИИД отд

1 ИПД

Оператор DISABLE (ЗАПРЕТИТЬ)

1 КОМ

2 КОМ

Вариант INPUT (ВВОД)

1 ком

2 КОМ

Вариант TERMINAL (С ТЕРМИНАЛА)

2 КОМ

2 КОМ

Вариант 1-0 TERMINAL (ВВОД-ВЫВОД С

ТЕРМИНАЛА)

2 КОМ

Вариант OUTPUT (ВЫВОД)

1 ком

2 КОМ

Вариант KEY (КЛЮЧ)

1 ком

2 КОМ +

Оператор DISPLAY (ВЫДАТЬ)

11 ЯДР

1 ЯДР

Только одна передача данных

111 ЯДР

1 ЯДР

Нет ограничений на число передач данных

2 ЯДР

2 ЯДР

Идентификатор/литерал

1 ЯДР

1 ЯДР

Несколько идентификаторов/литералов

1 ЯДР

1 ЯДР

Вариант UPON мнемоническое имя (НА мне-

моническое имя)

2 ЯДР

2 ЯДР

Вариант WITH NO ADVANCING (БЕЗ ПРОД-

ВИЖЕНИЯ)

2 ЯДР

Оператор DIVIDE (РАЗДЕЛИТЬ)

1 ЯДР

1 ЯДР

BY идентификатор/литерал (НА идентификатор/

литерал)

1 ЯДР

1 ЯДР

INTO идентификатор (идентификатор НА)

1 ЯДР

1 ЯДР

INTO несколько идентификаторов (несколько

идентификаторов НА)

2 ЯДР

1 ЯДР

GIVING идентификатор (ПОЛУЧАЯ идентифи-

катор)

1 ЯДР

1 ЯДР

GIVING несколько идентификаторов (ПОЛУ-

ЧАЯ несколько идентификаторов)

2 ЯДР

1 ЯДР

Вариант ROUNDED (ОКРУГЛЯЯ)

1 ЯДР

1 ЯДР

Элемент

гост 22558

Настоящий стандарт

Вариант REMAINDER (ОСТАТОК)

2 ЯДР

2 ЯДР

Вариант ON SIZE ERROR (ПРИ ПЕРЕПОЛ­НЕНИИ)

1 ЯДР

1 ЯДР

Вариант NOT ON SIZE ERROR (БЕЗ ПЕРЕ­ПОЛНЕНИЯ)

1 ЯДР

Вариант END-DIVIDE (КОНЕЦ-РАЗДЕЛИТЬ)

1 ЯДР

Оператор ENABLE (РАЗРЕШИТЬ)

1 ком

2 КОМ

Вариант INPUT (ВВОД)

I ком

2 КОМ

Вариант TERMINAL (С ТЕРМИНАЛА)

2 КОМ

2 КОМ

Вариант 1-0 TERMINAL (ВВОД-ВЫВОД С ТЕРМИНАЛА)

2 КОМ

Вариант OUTPUT (ВЫВОД)

і ком

1 ком

2 КОМ

Вариант KEY (КЛЮЧ)

2 КОМ 4-

Оператор ENTER (ВОИТИ)

'11 ЯДР '

1 ядр

Оператор EVALUATE (ОЦЕНИТЬ)

2 ЯДР

Идентификатор/литерал

2 ЯДР

Арифметическое выражение

2 ЯДР

Условное выражение

2 ЯДР

TRUE/FALSE (ИСТИНА/ЛОЖЬ)

2 ЯДР

Вариант ALSO (ТАКЖЕ)

2 ЯДР

Вариант WHEN (КОГДА)

2 ЯДР

Вариант ALSO (ТАКЖЕ)

2 ЯДР

Вариант WHEN OTHER (ИНАЧЕ)

2 ЯДР

Вариант END-EVALUATE (КОНЕЦ-ОЦЕ-

НИТЬ)

2 ЯДР

Оператор EXIT (ВЫЙТИ)

1 ЯДР

1 ЯДР

Оператор EXIT PROGRAM (ВЫЙТИ ИЗ ПРО­ГРАММЫ)

1 МПС

1 МПС

Оператор GENERATE (ГЕНЕРИРОВАТЬ)

1 гот

1 гот

Имя-данного

1 гот

1 гот

Имя-отчета

1 гот

1 гот

Оператор GO ТО (ПЕРЕЙТИ К)

1 ЯДР

1 ЯДР

Имя-процедуры обязательно

1 ЯДР

1 ЯДР

Имя-процедуры необязательно

2 ЯДР

2 ЯДР +

Вариант DEPENDING ON (В ЗАВИСИМОСТИ

1 ЯДР

1 ЯДР

ОТ)

Оператор IF (ЕСЛИ)

1 ЯДР

1 ЯДР

Только повелительные операторы

1 ЯДР

1 ЯДР

Повелительные и (или) условные операторы

2 ЯДР

2 ЯДР

Вложенные операторы IF (ЕСЛИ)

2 ЯДР

1 ЯДР

Необязательное слово THEN (ТО)

1 ЯДР

Вариант NEXT SENTENCE (СЛЕДУЮЩЕЕ ПРЕДЛОЖЕНИЕ)

1 ЯДР

1 ЯДР

Вариант ELSE (ИНАЧЕ)

1 ЯДР

1 ЯДР

Вариант END-IF (КОНЕЦ-ЕСЛИ)

1 ЯДР

Оператор INITIALIZE (ИНИЦИИРОВАТЬ)

2 ЯДР

Несколько идентификаторов

2 ЯДР

Вариант REPLACING (ЗАМЕНЯЯ)

2 ЯДР

Несколько REPLACING (ЗАМЕНЯЯ)

,

2 ЯДР

Оператор INITIATE (НАЧАТЬ)

1 гот

1 ГСП

Оператор INSPECT (ПРОСМОТРЕТЬ)

1 ЯДР

1 ЯДР

Только однолитерные данные

1 ЯДР

I- ЯДР

Элемент

гост 22558

Настоящий стандарт

Многолитерные данные

2 ЯДР

2 ЯДР

Вариант TALLYING (СЧИТАЯ)

1 ЯДР

1 ЯДР

Вариант BEFORE/AFTER (ДО/ПОСЛЕ)

1 ЯДР

1 ЯДР

Несколько BEFORE/AFTER (ДО/ПОСЛЕ) ALL/LEADING (ВСЕ/ВЕДУЩИЕ) несколько

—

1 ЯДР

идентификаторов/литералов

—

2 ЯДР

Несколько фраз TALLYING (СЧИТАЯ)

2 ЯДР

2 ЯДР

Вариант REPLACING (ЗАМЕНЯЯ)

1 ЯДР

1 ЯДР

Вариант BEFORE/AFTER (ДО/ПОСЛЕ)

Несколько фраз BEFORE/AFTER (ДО/ПОС-

1 ЯДР

1 ЯДР

ЛЕ)

Несколько ALL/LEADING/FIRST (ВСЕ/ВЕ-

—

2 ЯДР

ДУЩИЕ/ПЕРВЫЙ) идентификатор/литерал

2 ЯД?

2 ЯДР

Несколько фраз REPLACING (ЗАМЕНЯЯ)

Варианты TALLYING (СЧИТАЯ) и REPLA-

—

2 ЯДР

CING (ЗАМЕНЯЯ)

1 ЯДР

1 ЯДР

Вариант CONVERTING (ПРЕВРАЩАЯ)

—

2 ЯДР

Оператор MERGE (СЛИТЬ)

Вариант ASCENDING/DESCENDING KEY (ПО

2 СРТ

1 СРТ

ВОЗРАСТАНИЮ/УБЫВАНИЮ КЛЮЧА)

Вариант COLLATING SEQUENCE (АЛФА-

2 СРТ

1 СРТ

ВИТ)

2 СРТ

1 СРТ

Вариант USING (ИСПОЛЬЗУЯ)

Вариант OUTPUT PROCEDURE (ПРОЦЕДУ-

2 СРТ

1 СРТ

РА ВЫВОДА)

2 СРТ

1 СРТ

Имя-секции

2 СРТ

—■

Имя-процедуры

——

1 СРТ

Вариант GIVING (ПОЛУЧАЯ)

2 СРТ

1 СРТ

Несколько фраз GIVING (ПОЛУЧАЯ)

Файл в вариантах USING/GIVING (ИСПОЛЬ- ЗУЯ/ПОЛУЧАЯ) должен быть последователь-

—

1 СРТ

ным файлом

Файл в вариантах USING/GIVING (ИСПОЛЬ-

ЗУЯ/ПОЛУЧАЯ) может быть последователь-

2 СРТ

ным, относительным или индексным

1 СРТ

Оператор MOVE (ПОМЕСТИТЬ)

'1! ЯДР

1 ЯДР

ТО идентификатор (В идентификатор)

ТО несколько идентификаторов (В несколько

111 ЯДР

1 ЯДР

идентификаторов)

Вариант CORRESPONDING (СООТВЕТСТВЕН-

1 ЯДР

1 ЯДР

НО)

Дередактирование числовых редактируемых дан-

2 ЯДР

2 ЯДР

ных

—

2 ЯДР

Оператор MULTIPLY (УМНОЖИТЬ)

1 ЯДР

1 ЯДР

BY идентификатор (НА идентификатор)

BY несколько идентификаторов (НА несколько

1 ЯДР

1 ЯДР

идентификаторов)

GIVING идентификатор (ПОЛУЧАЯ идентифи-

2 ЯДР

I ЯДР

кагор)

GIVING несколько идентификаторов (ПОЛУ-

1 ЯДР

1 ЯДР

ЧАЯ несколько идентификаторов)

2 ЯДР

1 ЯДР

Вариант ROUNDED (ОКРУГЛЯЯ)

1 ЯДР

1 ЯДР

Элемент

гост

2255,S

Наст< стандарт

Вариант ON SIZE ERROR (ПРИ ПЕРЕПОЛ-

НЕНИИ)

Вариант NOT ON SIZE ERROR (БЕЗ ПЕРЕ-

1 ЯДР

I ЯДР

ВОЛНЕНИЯ)

Вариант END-MULTIPLY (КОНЕЦ-УМНО-

—

I ЯДР

ЖИТЬ)

—

1 ЯДР

Оператор OPEN (ОТКРЫТЬ)

1 под

1 под

1 ОТД

1 отд

1 ипд

1 ипд

1 гот

1, гот

Имя-файла

1 под

1 под

1 отд

1 отд

I: ИПД

1 ипд

1 гот

1 гот

Несколько имен-файлов

2 ПОД

1 под

1 отд

1 отд

1 ипд

1 ипд

1 гот

1 гот

Вариант INPUT (ВХОДНОЙ)

1 под

1 под

ІІ отд

1 отд

Вариант WITH NO REWIND (БЕЗ ПЕРЕ-

1 ипд

I ипд

МОТКИ)

2 ПОД

2 ПОД

Вариант REVERSED (РЕВЕРСІЮ)

2 ПОД

2 ПОД +

Вариант OUTPUT (ВЫХОДНОЙ)

1 под

1 ПОД

1 отд

1 ОТД

1 ИПД •

1 ипд

Вариант WITH NO REWIND (БЕЗ ПЕРЕ-

1 гот

1 гот

МОТКИ)

2 ПОД

2 ПОД

1 гот

1 гот

Вариант 1-0 (ВХОДНОЙ-ВЫХОДНОЙ)

1 под

1 под

1 отд

1 отд

1 ипд

1 ипд

Вариант EXTEND (ДОПОЛНЯЕМЫЙ)

Несколько INPUT, OUTPUT, 1-0 (ВХОДНОЙ,

2 ПОД

2 ПОД

2 ОТД

2 ИПД

1 ГОТ

ВЫХОДНОЙ, ВХОДНОЙ-ВЫХОДНОЙ)

г отд

1 ОТД

1 ипд

1 ипд

1 под

Несколько EXTEND (ДОПОЛНЯЕМЫЙ)

2 ПОД

2 ПОД

2 ОТД

2 ИПД

Оператор PERFORM (ВЫПОЛНИТЬ)

1 ЯДР

1 ЯДР

Имя-процедуры обязательно

1 ЯДР

—

Имя-процедуры необязательно

Вариант THROUGH имя-процедуры (ПО имя-

—

1 ЯДР

процедуры)

1 ЯДР

1 ЯДР

Вариант повелительного-оператора

Вариант END-PERFORM (КОНЕЦ-ВЫПОЛ-

—

1 ЯДР

НИТЬ)

—

1 ЯДР