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

' вариант STANDARD-1 (СТАНДАРТ-А)

вариант STANDARD-2 (СТАНДАРТ-М)

вариант NATIVE (ВНУТРЕННИЙ)

вариант имя-реализации

вариант литерал

фраза CLASS (КЛАСС)

фраза CURRENCY SIGN (ВАЛЮТНЫЙ ЗНАК)

фраза DECIMAL-POINT (ДЕСЯТИЧНАЯ ТОЧКА)

фраза имя-реализации

вариант IS мнемоническое имя

вариант ON STATUS IS имя-условия (ВКЛЮЧЕНО имя- условия)

вариант OFF STATUS IS имя-условия (ВЫКЛЮЧЕНО имя-условия)

фраза SYMBOLIC CHARACTERS (СИМВОЛИЧЕСКАЯ ЛИ­ТЕРА)

Секция ввода-вывода

■г Я ДР

1 ЯДР

1 ЯДР

. 1 ЯДР

■ г ЯДР :і ядр: '2 ЯДР

г ЯДР г ядр"

1 ЯДР

1 ЯДР

1 ЯДР

г ЯДР

1 ЯДР

2' ЯДР

1 под

1 отд

1 ипд

1 СРТ

1 гот¹ ■

Параграф FILE-CONTROL (УПРАВЛЕНИЕ-ФАЙЛАМИ)

1 под ’ . 1 отд

1 ипд

1 СРТ

1 гот

Статья управления файлом

г под

1 отд

1 ипд

1 СРТ

фраза SELECT (ДЛЯ)

1 ГОТ

1 под

1 отд

1 ипд 1 СРТ

• вариант OPTIONAL (НЕОБЯЗАТЕЛЬНО)

1 гот

2 ПОД

2 ОТД

2 ИПД^:

1 гот

только входные, входные-выходные и дополняемые

2 ПОД

2 ОТД

2 ИПД

только дополняемые

фраза ACCESS MODE (ДОСТУП) SEQUENTIAL (ПОСЛЕДОВАТЕЛЬНЫЙ)

1 гот

1 под

1 ОТД

1 ИПД

1 гот

Элемент

Модуль

RANDOM (ПРОИЗВОЛЬНЫЙ)

1 ОТД

1 ипд

BYINAMIC (ДИНАМИЧЕСКИЙ)

2 ОТД

9 ИПП

фраза RELATIVE KEY (ОТНОСИТЕЛЬНЫЙ КЛЮЧ)

фраза ALTERNATE RECORD KEY (ДОПОЛНИТЕЛЬНЫЙ КЛЮЧ ЗАПИСИ)

фраза WITH DUPLICATES (С ДУБЛИРОВАНИЕМ)

фраза ASSIGN (НАЗНАЧИТЬ)

1 отд

2 ИПД 2 ИПД 1 под

1 ОТД

1 ИПД

1 СРТ

1 гот

имя-реализации

1 под

1 отд

1 ипд

1 СРТ

литерал

1 гот

1 под

1 отд

1 ипд

і срт :

1 гот

фраза FILE STATUS (СОСТОЯНИЕ ФАЙЛА)

1 под

1 отд

1 ипд

фраза ORGANIZATION (ОРГАНИЗАЦИЯ) SEQUENTIAL (ПОСЛЕДОВАТЕЛЬНАЯ)

1 гот

1 под

RELATIVE (ОТНОСИТЕЛЬНАЯ)

INDEXED (ИНДЕКСНАЯ)

фраза PADDING CHARACTER (ЛИТЕРА ЗАПОЛНИТЕЛЬ)

1 гот

1 отд

1 ипд

2 ПОД

, фраза RECORD DELIMITER (ОГРАНИЧИТЕЛЬ ЗАПИСИ)

1 гот

2 ПОД

фраза RECORD KEY (КЛЮЧ ЗАПИСИ) фраза RESERVE AREA (РЕЗЕРВИРОВАТЬ)

1 гот

1 ипд

2 ПОД

2 ОТД

2 ИПД

Параграф I-O-CONTROL (УПРАВЛЕНИЕ-ВВОДОМ-ВЫВО-

ДОМ)

1 гот

1 под

1 отд

1 ипд

1 СРТ

1 гот

фраза MULTIPLE FILE ТАРЕ (НА ОДНОЙ КАТУШКЕ)

2 ПОД ₊

1 ГОТ 4-

фраза RERUN (ПЕРЕПРОГОН)

1 под +

1 ГОТ +

фраза SAME AREA (ОБЩАЯ ОБЛАСТЬ)

фраза SAME RECORD AREA (ОБЩАЯ ОБЛАСТЬ ЗАПИ­СИ)

фраза SAME SORT/SORT-MERGE AREA (ОБЩАЯ ОБ­ЛАСТЬ СОРТИРОВКИ/СОРТИРОВКИ-СЛИЯНИЯ)

1 ипд + ІПОД-' 1 ОТД .1 ИПД ' і гот'-'.

2 под

2 ОТД^;

2 ипд ; 1 СРТ

I СРТ’

Обработка исходных текстов в разделе оборудования

Оператор COPY (КОПИРОВАТЬ)

OF/IN имя-библиотеки (ИЗ имя-библиотеки)

фраза REPLACING (ЗАМЕНЯЯ)

псевдотекст

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

литерал слово

Оператор REPLACE (ЗАМЕНИТЬ)

псевдотекст BY псевдотекст (псевдотекст НА псевдотекст) OFF (ОТКЛЮЧИТЬ)

і оит

2 ОИТ

2 0ЙТ I

2 ОИТ _t

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

3.4. Список элементов раздела данных

РАЗДЕЛ ДАННЫХ

1 ПОД ^г

Секция файлов

Статья описания файла

^! индикатор уровня FD (ОФ)

фраза BLOCK CONTAINS (В БЛОКЕ)

целое RECORDS/CHARACTERS (целое ЗАПИСЕИ/ЛИ- ТЕР)

целое-1 ТО целое-2 RECORDS/CHARACTERS (целое-1 ДО целое-2 ЗАПИСЕИ/ЛИТЕР)

і фраза CODE-SET (АЛФАВИТ)

1ОТД ¹ і ипд ;

1 СРТ

1 гот , 1 под 1 отд 1 ИПД 1 1 гот 1 ПОД у 1 отд 1 ипд ■ 1 ГОТ ;

1 под >,

1 отд

ипд 1 гот .

ПОД

2 ОТД 2 ИПД \ 1 гот ’ 1 под 1 ют

Элемент

Модуль

Элемент

Модуль

фраза DATA RECORDS (ЗАПИСИ ДАННЫХ)

1 под +

1 отд +

фраза EXTERNAL (ВНЕШНЕЕ) фраза GLOBAL (ГЛОБАЛЬНОЕ) фраза LABEL RECORDS (МЕТКИ)

1 ИИД “Г

2 МПС

2 МПС

1 под +

1 отд +

1 ИПД 4-

фраза LINAGE (ВЕРСТКА)

фраза FOOTING (КОНЦОВКА) . фраза ТОР (ВЕРХНЕЕ ПОЛЕ)

: фраза BOTTOM (НИЖНЕЕ ПОЛЕ)

' фраза RECORD (В ЗАПИСИ)

целое-1 CHARACTERS (целое-1 ЛИТЕР)

1 і ui-4-

2 ПОД

2 ПОД

3 ПОД

2 ПОД

1 под

1 ОТД

1 ИПД

фраза VARYING IN SIZE (ПЕРЕМЕННОЕ ЧИСЛО)

1 гот

2 ПОД

2 ОТД

целое-4 ТО целое-5 CHARACTERS (целое-4 ДО целое-5

І ЛИТЕР)

2 ИПД

1 под

1 ОТД

1 ИПД

1 гот

фраза REPORT (ОТЧЕТ)

фраза VALUE OF (ЗНАЧЕНИЕ) ’ имя-реализации литерал

1 гот

1 под +

1 отд +

1 ИПД +

1 гот +

1 ■ имя-реализации несколько литералов

I под +’

1 отд +

1 ИПД +

f Л имя-реализации имя-данного

1 ГОТ +

2 ПОД +

2 ОТД 4-

2 ИПД 4-

1 ГОТ 4-

имя-реализации несколько имен-данных

2 ПОД 4-

21 ОТД 4-

2 ИПД 4-

Статьи описания сортируемого-сливаемого файла

индикатор уровня SD (ОС)

фраза DATA RECORDS (ЗАПИСИ ДАННЫХ)

фраза RECORD (В ЗАПИСИ)

целое-1 CHARACTERS (целое-1 ЛИТЕР)

фраза VARYING IN SIZE (ПЕРЕМЕННОЕ ЧИСЛО)

целое-4 ТО целое-5 CHARACTERS (целое-4 ДО целое-5 ЛИТЕР)

1 ГОТ 4-

1 СРТ

1 СРТ

1 СРТ 4-

1 СРТ

1 СРТ

1 СРТ

Статья описания записи в секции файлов 1 ПОД

j _ОТд

1 ИПД

1 СРТ

Секция рабочей памяти 1 ЯДР

Статья описания записи J ЯДР

Статья описания уровня 77 і ЯДР

Секция связи 1 МПС

Статья описания записи 1 МПС

Статья описания уровня 77 1 МПС

Секция коммуникаций 1 КОМ

Статья описания коммуникации 1 КОМ

индикатор уровня CD (ОК) 1 КОМ

фраза FOR INPUT (ДЛЯ ВВОДА) 1 КОМ

фраза INITIAL (НАЧАЛЬНОГО) 2 КОМ

фраза END KEY (КЛЮЧ КОНЦА) 1 КОМ

фраза MESSAGE COUNT (ЧИСЛО СООБЩЕНИЙ) 1 КОМ

фраза MESSAGE DATE (ДАТА СООБЩЕНИЯ) 1 КОМ

фраза MESSAGE TIME (ВРЕМЯ СООБЩЕНИЯ) 1 КОМ

фраза SYMBOLIC QUEUE (СИМВОЛИЧЕСКАЯ ОЧЕ­РЕДЬ) 1 КОМ

фраза SYMBOLIC SOURCE (СИМВОЛИЧЕСКИЙ ИС­ТОЧНИК) 1 КОМ

фраза SYMBOLIC SUB-QUEUE-1 (СИМВОЛИЧЕСКАЯ ПОДОЧЕРЕДЬ-1) 2 КОМ

фраза SYMBOLIC SUB-QUEUE-2 (СИМВОЛИЧЕСКАЯ ПОДОЧЕРЕДЬ-2) 2 КОМ

фоаза SYMBOLIC SUB-QUEUE-3 (СИМВОЛИЧЕСКАЯ ПОДОЧЕРЕДЬ-3) 2 КОМ

фраза STATUS KEY (КЛЮЧ СОСТОЯНИЯ) 1 КОМ

фраза TEXT LENGTH (ДЛИНА ТЕКСТА) 1 КОМ

несколько нмен-данных 2 КОМ

фраза FOR OUTPUT (ДЛЯ ВЫВОДА) 1 КОМ

фраза DESTINATION COUNT (ЧИСЛО АДРЕСАТОВ) 1 КОМ

должен быть один 1 КОМ

должен быть один или несколько 2 КОМ

фраза DESTINATION TABLE (ТАБЛИЦА АДРЕСАТОВ) 2 КОМ

фраза INDEXED BY (ИНДЕКСИРУЕТСЯ) 2 КОМ

фраза ERROR KEY (КЛЮЧ ОШИБКИ) 1 КОМ

фраза SYMBOLIC DESTINATION (СИМВОЛИЧЕСКИЙ 1 КОМ

АДРЕСАТ) фраза STATUS KEY (КЛЮЧ СОСТОЯНИЯ) 1 КОМ

фраза TEXT LENGTH (ДЛИНА ТЕКСТА) 1 КОМ

фраза FOR 1-0 (ДЛЯ ВВОДА-ВЫВОДА) 1 КОМ

фраза INITIAL (НАЧАЛЬНОГО) 2 КОМ

фраза END KEY (КЛЮЧ КОНЦА) 1 КОМ

фраза MESSAGE DATA (ДАТА СООБЩЕНИЯ) 1 КОМ

фраза MESSAGE TIME (ВРЕМЯ СООБЩЕНИЯ) 1 КОМ

фраза STATUS KEY (КЛЮЧ СОСТОЯНИЯ) 1 КОМ

фраза SYMBOLIC TERMINAL (СИМВОЛИЧЕСКИЙ ТЕРМИНАЛ) 1 КОМ

фраза TEXT LENGTH (ДЛИНА ТЕКСТА) 1 КОМ

несколько имен-данных 2 КОМ

Статья описания записи 1 КОМ

Секция отчетов 1 ГОТ

Статья описания отчета 1 ГОТ

индикатор уровня RD (00) ] ГОТ

фраза CODE (С КОДОМ) 1 ГОТ

фраза CONTROL (УПРАВЛЕНИЕ) ] ГОТ

фраза GLOBAL (ГЛОБАЛЬНОЕ) 2 МПС

фраза PAGE (РАЗМЕР СТРАНИЦЫ) 1 ГОТ

Статья описания группы отчета 1 ГОТ

Следующие фразы появляются в статье описания записи, ста­тье описания данного, статье описания уровня 77 и в статье опи­сания группы отчета:

Фраза BLANK WHEN ZERO (ПРОБЕЛ КОГДА НУЛЬ) 1 ЯДР

1 ГОТ

Фраза COLUMN NUMBER (НОМЕР СТОЛБЦА) 1 ГОТ

Фраза имя-данного 1 ЯДР

1 ГОТ

Фраза EXTERNAL (ВНЕШНЕЕ) 2 МПС

Фраза FILLER (ЗАПОЛНИТЕЛЬ) 1 ЯДР

Фраза GLOBAL (ГЛОБАЛЬНОЕ) 2 МПС

Фраза GROUP INDICATE (ОПРЕДЕЛЯЕТ ГРУППУ) 1 ГОТ

Фраза JUSTIFIED (СДВИНУТО) 1 ЯДР

Фраза номер-уровня ’ ЯДР

от 01 до 49: одна или две цифры 1 ЯДР

1 ГОТ 66 2 ЯДР

77 1 ЯДР

88 2 ЯДР

Фраза LINE NUMBER (НОМЕР СТРОКИ) 1 ГОТ

Фраза NEXT GROUP (СЛЕДУЮЩАЯ ГРУППА) 1 ГОТ

Фраза OCCURS (ПОВТОРЯЕТСЯ) I ЯДР

целое TIMES (целое РАЗ) 1 ЯДР

фраза ASCENDING/DESCENDING KEY (ПО ВОЗРАСТА- НИЮ/УБЫВАНИЮ КЛЮЧА) 2 ЯДР

фраза INDEXED BY (ИНДЕКСИРУЕТСЯ) 1 ЯДР

фраза целое-1 ТО целое-2 DEPENDING ON (целое-1 ДО це­лое-2 В ЗАВИСИМОСТИ ОТ) 2 ЯДР

Фраза PICTURE (ШАБЛОН) 1 ЯДР

1 ГОТ

строка литер содержит не более 30 литер 1 ЯДР

1 ГОТ

литеры данных: X 9 А 1 ЯДР

1 ГОТ операционные символы: S(3) V(T) Р(М) 1 ЯДР

1 ГОТ

литеры фиксированной вставки В + — . , , t(°) 10 CR

КР) DB (ДВ) / і ЯДР

Элемент

Модуль

литеры замещения или плавающей вставки Z(H) *

1 гот

!+' —

1 ЯДР I гот

замена валютного знака

1 ЯДР

1 гот

замена десятичной точки

1 ЯДР

1 гот

Фраза REDEFINES (ПЕРЕОПРЕДЕЛЯЕТ) не может быть вложенной может быть вложенной

Фраза RENAMES (ПЕРЕИМЕНОВЫВАЕТ)

Фраза SIGN (ЗНАК)

1 ЯДР

1 ЯДР

2 ЯДР

2 ЯДР

1 ЯДР

1 гот

Фраза SOURCE (ИСТОЧНИК)

Фраза SUM (СУММА)

Фраза SYNCHRONIZED (ВЫДЕЛЕНО)

Фраза TYPE (ТИП)

Фраза USAGE (об использовании)

1 гот

1 гот

1 ЯДР

1 гот

1 ЯДР

1 гот

BINARY (ДВОИЧНОЕ)

COMPUTATIONAL (ДЛЯ ВЫЧИСЛЕНИЙ) DISPLAY (ДЛЯ ВЫДАЧИ)

1 ЯДР

1 ЯДР

1 ЯДР

1 гот

INDEX (ДЛЯ ИНДЕКСА) PACKED-DECIMAL (ДЕСЯТИЧНОЕ) Фраза VALUE (ЗНАЧЕНИЕ)

1 ЯДР

1 ЯДР

1 ЯДР

1 гот

литерал

1 ЯДР

1 гот

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

литерал-1 THROUGH литерал-2 (литерал-1 ПО литерал-2) несколько диапазонов литералов

Обработка исходных текстов в разделе данных

Оператор COPY (КОПИРОВАТЬ)

OF/IN имя-библиотеки (ИЗ имя-библиотеки)

фраза REPLACING (ЗАМЕНЯЯ)

псевдотекст

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

литерал

слово

Оператор REPLACE (ЗАМЕНИТЬ)

псевдотекст BY псевдотекст (псевдотекст НА псевдотекст)

OFF (ОТКЛЮЧИТЬ)

2 ЯДР

2 ЯДР

2 ЯДР

1 оит

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

2 ОИТ

3.5 Список элементов раздела процедур

РАЗДЕЛ ПРОЦЕДУР

Заголовок раздела процедур

1 ЯДР

Фраза USING (ИСПОЛЬЗУЯ)

разрешается по крайней мере 5 операндов нетограничения на число операндов

Декларативные процедуры

1 МПС

1 МПС

2 МПС

1 ПОД

I ОТД

1 ИПД

1 гот

1 ОТЛ +

DECLARATIVES (ДЕКЛАРАТИВЫ)

1 под

1 отд

1 ИПД

1 гот

1 ОТЛ +

END DECLARATIVES (КОНЕЦ ДЕКЛАРАТИВ)

I под

1 отд

. 1 ипд

1 гОт

1 ОТЛ 4-

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

Зцаки бинарных арифметических операций + — * / **

Знаки унарных арифметических операций -]- —

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

Простое условие

Условие отношения

Знаки операций отношения

[NOT] GREATER THAN ([НЕ] БОЛЬШЕ)

[NOT] > ([НЕ] >)

[NOT] LESS THAN ([HE] МЕНЬШЕ)

[NOT] < ([HE] <)

[NOT] EQUAL TO ([HE] РАВНО)

[NOT] = ([HE] =)

GREATER THAN OR EQUAL TO (БОЛЬШЕ ИЛИ РАВ­НО)

LESS THAN OR EQUAL TO (МЕНЬШЕ ИЛИ РАВНО)

Сравнение числовых операндов

Сравнение нечисловых операндов

Сравнение имен-индексов и (или) индексных данных

Условие класса

NUMERIC (ЧИСЛОВОЕ)

ALPHABETIC (БУКВЕННОЕ)

ALPHABETIC-LOWER (СТРОЧНЫЕ)

ALPHABETIC-UPPER (ПРОПИСНЫЕ) имя-класса

Условие имени-условия

Условие знака

Условие состояния-переключателя

Сложное условие

Знаки логических операций AND (И) OR (ИЛИ) NOT (НЕ)

Отрицание условия

Комбинированное условие

2 ЯДР ■ й ЯДР

2 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР-

1 ЯДР

1 ЯДР

I ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

1 ЯДР

ЯДР

ЯДР

2 ЯДР

ЯДР

ЯДР

2 ЯДР

2 ЯДР

2 ЯДР

Условие в скобках 1 ЯДР

Сокращенные комбинированные условия отношения 2 ЯДР

Арифметические операторы 1 ЯДР

Арифметические операнды имеют длину до 18 цифр і ЯДР

Композиция операндов содержит не более 18 цифр 1 ЯДР

Оператор ACCEPT (ПРИНЯТЬ) 1 ЯДР

идентификатор 1 ЯДР

только одна передача данных 1 ЯДР

число передач данных не ограничивается 2 ЯДР

фраза FROM мнемоническое-имя (С мнемоническое-имя) 2 ЯДР

фраза FROM DATE/DAY/DAY-OF-WEEK/TIME (ДАТУ/ ДЕНЬ/ДЕНЬ-НЕДЕЛИ/ВРЕМЯ) 2 ЯДР

Оператор ACCEPT MESSAGE COUNT (ПРИНЯТЬ ЧИСЛО

СООБЩЕНИЙ) 1 КОМ

Оператор ADD (СЛОЖИТЬ) 1 ЯДР

идентификатор/литерал 1 ЯДР

несколько идентификаторов/литералов 1 ЯДР

ТО идентификатор (С идентификатор) 1 ЯДР

ТО несколько-идентификаторов (С несколько-идентификато- ров) 1 ЯДР

ТО идентификатор/литерал GIVING идентификатор (С иден­тификатор/литерал ПОЛУЧАЯ идентификатор) 1 ЯДР

ТО идентификатор/литерал GIVING несколько-идентифика­торов (С идентификатор/литерал ПОЛУЧАЯ несколько иден­тификаторов) 1 ЯДР

фраза ROUNDED (ОКРУГЛЯЯ) 1 ЯДР

фраза ON SIZE ERROR (ПРИ ПЕРЕПОЛНЕНИИ) 1 ЯДР