Язык программирования КОБОЛ

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

—

1 ЯДР

НИТЬ)

—

1 ЯДР

Элемент

ГОСТ 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 ком

КУ)