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

Элемент

ГОСТ 22558

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

Вариант TIMES (РАЗ)

1 ЯДР

1

ЯДР

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

2 ЯДР

1

ЯДР

Вариант TEST BEFORE/AFTER (С ПРОВЕР­КОЙ В НАЧАЛЕ/В КОНЦЕ)

2

ЯДР

Вариант VARYING (МЕНЯЯ)

2 ЯДР

2

ЯДР

Вариант TEST BEFORE/AFTER (С ПРОВЕР­КОЙ В НАЧАЛЕ/В КОНЦЕ)

—

2

ЯДР

Вариант AFTER (ЗАТЕМ)

2 ЯДР

'2

ЯДР

Максимум два AFTER (ЗАТЕМ)

2 ЯДР

Разрешено по крайней мере AFTER (ЗА­ТЕМ)

—

2 ЯДР

Идентификатор-2 увеличивается до установки идентификатора-5

—

2 ЯДР

Идентификатор-5 устанавливается до увели­чения идентификатора-2

2 ЯДР

Оператор PURGE (ОЧИСТИТЬ)

—

2

ком

Оператор READ (ЧИТАТЬ)

1 ПОД

1

под

1' отд

1

ОТД

1 ИПД

1

ИПД

Вариант NEXT (СЛЕДУЮЩУЮ)

2 ОТД

2

ОТД

2 ИПД

2

ИПД

2 ПОД

Вариант INTO (В)

1 ПОД

1

под

1 ОТД

1'

отд

1 ИПД

1

ИПД

Вариант AT END (В КОНЦЕ)

1 ПОД

,1

под

1 ОТД

1

отд

1 ИПД

1

ИПД

Вариант NOT AT END (НЕ В КОНЦЕ)

—

1

под

1

отд

1

ИПД

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

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

2 ИПД

1 ОТД

2

ИПД

отд

ЧА)

1

1 ИПД

1

ИПД

Вариант NOT INVALID KEY (БЕЗ ОШИБКИ КЛЮЧА)

1

отд

1

ИПД

Вариант END-READ (КОНЕЦ-ЧИТАТЬ)

—

II

под

1

отд

1

ИПД

Оператор RECEIVE (ПОЛУЧИТЬ)

1 ком

1

ком

Вариант MESSAGE (СООБЩЕНИЕ)

1 ком

1

ком

Вариант SEGMENT (СЕГМЕНТ)

2 КОМ

2

ком

1 КОМ

1

ком

Вариант INTO (В)

1 КОМ

1

ком

Вариант NO DATA (НЕЇ ДАННЫХ)

1 ком

1

ком

Вариант WITH DATA (ЕСТЬ ДАННЫЕ)

__

1

ком

Вариант END-RECEIVE (КОНЕЦ-ПОЛУЧИТЬ)

—

1

ком

Оператор RELEASE (ПЕРЕДАТЬ)

1 СРТ

1

СРТ

Вариант FROM (ИЗ ПОЛЯ)

1 СРТ

1

СРТ

Оператор RETURN (ВЕРНУТЬ)

1 СРТ

1

СРТ

Элемент

ГОСТ

22558

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

Вариант INTO (В)

1 СРТ

1 СРТ

Вариант AT END (В КОНЦЕ)

1 СРТ

1 СРТ

Вариант NOT AT END (НЕ В КОНЦЕ)

—

1 СРТ

Вариант END-RETURN (КОНЕЦ-ВЕРНУТЬ)

—

1 СРТ

Оператор REWRITE (ОБНОВИТЬ)

1 под

1 под

1 отд

1 отд

1 ипд

1 ипд

Вариант FROM (ИЗ ПОЛЯ)

1 под

1 под

1 отд

.1' отд

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

1 ипд

1 ипд

ЧА)

1 отд

1 отд

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

1 ипд

1 ипд

КЛЮЧА)

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

—

1 отд

1 ипд

ВИТЬ)

—

1 отд

1 ипд

Оператор SEARCH (ИСКАТЬ)

2 ТАБ

2 ЯДР

Вариант VARYING (МЕНЯЯ)

2 ТАБ

2 ЯДР

Вариант AT END (В КОНЦЕ)

2 ТАБ

2 ЯДР

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

2 ТАБ

2 ЯДР

Несколько WHEN (КОГДА)

2 ТАБ

2 ЯДР

Вариант END-SEARCH (КОНЕЦ-ИСКАТЬ)

2 ЯДР

Оператор SEARCH ALL (ИСКАТЬ ОСОБО)

2 ТАБ

2 ЯДР

Вариант AT END (В КОНЦЕ)

2 ТАБ

2 ЯДР

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

2 ТАБ

2 ЯДР

Вариант END-SEARCH (КОНЕЦ-ИСКАТЬ)

—

2 ЯДР

Оператор SEND (ПОСЛАТЬ)

Вариант FROM идентификатор (ИЗ ПОЛЯ

1 ком

1 ком

идентификатор) (часть сообщения)

Вариант FROM идентификатор (ИЗ .ПОЛЯ

2 КОМ

2 КОМ

идентификатор) (полное сообщение)

Вариант WITH идентификатор (С идентифика-

1 ком

1 ком

тор)

2 КОМ

2 КОМ

Вариант WITH ESI (С ИКС)

2 КОМ

2 КОМ

Вариант WITH EMI (С ИКЩ)

11 КОМ

1 ком

Вариант WITH EGI (С ИКГ)

Вариант BEFORE/AFTER ADVANCING (ДО/

1 ком

1 ком

ПОСЛЕ ПРОДВИЖЕНИЯ)

1 ком

1 ком

Целое LINE/LINES (целое СТРОК) Идентификатор LINE/LINES (идентификатор

1 ком

1 ком

СТРОК)

51 ком

1 ком

Мнемоническое-имя

1 ком

2 КОМ

PAGE (СТРАНИЦЫ)

Вариант REPLACING LINE (ЗАМЕНЯЯ СТРО-

1 ком

1 ком

КУ)

—

2 КОМ

Оператор SET (УСТАНОВИТЬ)

1 ТАБ

1 ЯДР

Имя-индекса/идентификатор ТО (НА)

Имя-индекса UP BY/DOWN BY (имя-индекса

1 ТАБ

1 ЯДР

ПРИБАВЛЯЯ/ВЫЧИТАЯ)

1 ТАБ

1 ЯДР

г.',^пе!?нт

•гост

Насти а ший стандарт

Мнемоническое имя ТО ON/OFF (мнемоничес-

кое имя НА ВКЛЮЧЕНО/ВЫКЛЮЧЕНО)

—

1 ЯДР

Имя-условия ТО TRUE (НА ИСТИНА)

——

2 ЯДР

Оператор SORT (СОРТИРОВАТЬ)

1 СРТ

1 СРТ

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

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

1 СРТ

1 СРТ

Вариант DUPLICATES (С ДУБЛИРОВАНИ-

ЕМ)

—

1 СРТ

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

ВИТ)

2 СРТ

1 СРТ

Вариант INPUT PROCEDURE (ПРОЦЕДУРА

ВВОДА)

1 СРТ

1 СРТ

Имя-секции

1 СРТ

—

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

—

1 СРТ

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

1 СРТ

1 СРТ

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

2 СРТ

1 СРТ

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

ВЫВОДА)

Т СРТ

1 СРТ

Имя-секции

І1- СРТ

—

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

—

1 СРТ

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

1 СРТ

1 СРТ

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

«■в

1 СРТ

Оператор START (ПОДВЕСТИ)

2 ОТД

2 ОТД

2 ИПД

2 ИПД

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

2 ОТД

2 ОТД

2 ИПД

2 ИПД

EQUAL ТО (РАВНО)

2 ОТД

2 ОТД

2 ИПД

2 ИПД

=

2 ОТД

2 ОТД

2 ИПД

2 ИПД

GREATER THAN (БОЛЬШЕ)

2 ОТД

2 ОТД

2 ИПД

2 ИПД

2 ОТД

2 ОТД

2 ИПД

2 ИПД

NOT LESS THAN (НЕ МЕНЬШЕ)

2 ОТД

2 ОТД

2 ИПД

2 ИПД

НЕ <

2 ОТД

2 ОТД

2 ИПД

2 ИПД

GREATER THAN OR EQUAL TO (БОЛЬШЕ

ИЛИ РАВНО)

—•

2 ОТД

2 ИПД

2 ОТД

2 ИПД

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

ЧА)

2 ОТД

2 ОТД

2 ИПД

2 ИПД

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

КЛЮЧА)

—

2 ОТД

2 ИПД

Вариант END-START (КОНЕЦ-ПОДВЕСТИ)

—

2 ОТД

2 ИПД,

Оператор STOP (ОСТАНОВИТЬ)

1 ЯДР

1 ЯДР

ОдеМРИГ 1

ГОСТ 225'8

Настоящий

RUN (РАБОТУ)

1 ЯДР

I ЯДР

Литерал

1 ЯДР

1 ЯДР 4-

‘Оператор STRING (СОБРАТЬ)

Несколько DELIMITED BY (ОГРАНИЧИВА-

2 ЯДР

2 ЯДР

ЯСЬ)

2 ЯДР

2 ЯДР

Вариант WITH POINTER (УКАЗАТЕЛЬ)

Вариант ON OVERFLOW (ПРИ ПЕРЕПОЛІТЕ-

2 ЯДР

2 ЯДР

НИИ)

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

2 ЯДР

2 ЯДР

ПОЛНЕНИЯ)

—

2 ЯДР

Вариант END-STRING (КОНЕЦ-СОррАТЫ

—

2 ЯДР

«Оператор SUB TRACT (ОТНЯТЬ)

1 ЯДР

т ядр

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

1 ЯДР

1 ЯДР

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

1 ЯДР

I ЯДР

FROM идентификатор (ОТ идентификатор) FROM несколько идентификаторов (ОТ песколь-

1 ЯДР

т ядр

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

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

2 ЯДР

1 ЯДР

катор)

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

1 ЯДР

ЯДР

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

2 ЯДР

1 ЯДР

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

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

1 ЯДР

1 ЯДР

НЕНИИ)

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

1 ЯДР

1 ЯДР

ПОЛНЕНИЯ)

—

'1 ЯДР

Вариант END-SUBTRACT (КОНЕЦ-ОТНЯТЬ)

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

—

1 ЯДР

НО)

2 ЯДР

2 ЯДР

’Оператор SUPPRESS (ПОДАВИТЬ)

1 гот

1 ГОГ

'Оператор TERMINATE (ЗАКОНЧИТЬ)

«Оператор UNSTRING (РАЗОБРАТЬ)

2 ЯДР

2 ЯДР

2 ЯДР

2 ЯДР

Вариант DELIMITED BY (ОГРАНИЧИВАЯСЬ)

2 ЯДР

2 ЯДР

Вариант DELIMITER IN (ОГРАНИЧИТЕЛЬ В)

2 ЯДР

2 ЯДР

Вариант COUNT IN (СЧЕТ В)

2 ЯДР

2 ЯДР

Вариант WITH POINTER (УКАЗАТЕЛЬ)

2 ЯДР

2 ЯДР

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

Вариант ON OVERFLOW (ПРИ ПЕРЕПОЛНЕ-

2 ЯДР

2 ЯДР

НИИ)

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

2 ЯДР

2 ЯДУ

ПОЛНЕНИЯ)

Вариант END-UNSTRING (КОНЕЦ-РАЗОБ-

—

2 ЯДР

РАТЬ)

—

2 ЯДР

Оператор USE (ИСПОЛЬЗОВАТЬ)

1 НОД

1 под

1 отд

1 отд

1 ИПД

1 ИПД

1 гот

1 гот

Вариант EXCEPTION/ERROR PROCEDURE

1 отл

1 ОТЛ +

(ПРОЦЕДУРЫ ОШИБКИ)

1 под

1 под

1 отд

1 отд

1 ИПД

1 ИПД