I ЗС J
(УПРАВЛЯЕМЫЙ ЗАГОЛОВОК j УЗ
I имя-данного-2 1
поI концу )
(
тип
ФРАГМЕНТ Ij ФР j
(УПРАВЛЯЕМАЯ КОНЦОВКА
(ук
I имя-данного-3)
П0 j КОНЦУ J
( КОНЦОВКА СТРАНИЦЫ ]
(КС I
( КОНЦОВКА ОТЧЕТА 1
j КО j
[ДЛЯ ВЫДАЧИ].
Формат 2
номер-уровня [имя-данного-1]
ц
[НОМЕР СТРОКИ
елое-1 [НА СЛЕДУЮЩЕЙ СТРАНИЦЕ)ПЛЮС целое 2
[ДЛЯ ВЫДАЧИ].
Формат 3
номер-уровня [имя-данного-1]
( ШАБЛОН ]
і щ ( строка-литер
[ДЛЯ ВЫДАЧИ]
[ОТДЕЛЬНО]
ПЕРВЫЙ
ПОСЛЕДНИЙ
[ЗНАК]
[СДВИНУТО ВПРАВО]
[ПРОБЕЛ КОГДА НУЛЬ]
|
целое-1 [НАСЛЕДУЮЩЕЙ] |
НОМЕР СТРОКИ |
СТРАНИЦЕ] |
|
ПЛЮС целое-2 |
[НОМЕР СТОЛБЦА целое-3]
ИСТОЧНИК идентификатор-1 Ї
ЗНАЧЕНИЕ]
ЗНАЧ [ литерал-1
j {СУММА {идентификатор-2} ...
[ДЛЯ {имя-данного-2}
гспппгілтк пл ( имя-данного-3 11
[СБРОСИТЬ ПО|концу )]
[ОПРЕДЕЛЯЕТ ГРУППУ].
Общий формат раздела процедур
Формат 1
[РАЗДЕЛ ПРОЦЕДУР [ИСПОЛЬЗІ Т {имя-данного} ... ].
[ДЕКЛАРАТИВЫ.
{СЕКЦИЯ имя-секции [номер-сегмента].
Оператор ИСПОЛЬЗОВАТЬ.
[имя-параграфа.
[предложение] ...]...}...
КОНЕЦ ДЕКЛАРАТИВ.
{СЕКЦИЯ имя-секции [номер-сегмента].
[ имя-параграфа.
[предложение] ... ] ...}...
Формат 2
[РАЗДЕЛ ПРОЦЕДУР [ИСПОЛЬЗУЯ {имя-данного-1}...].
{имя-параграфа.
[предложение] ...}...]
Общий формат глаголов Кобола
2.11.1
ПРИНЯТЬ идентификатор-1 [С^мнемоническое-имя-1]
ДАТУ
Д
ПРИНЯТЬ В идентификатор-2
ЕНЬДЕНЬ-НЕДЕЛИ
ВРЕМЯ
ПРИНЯТЬ ЧИСЛО СООБЩЕНИЙ имя-коммуникации-1
2.11.2
СЛОЖИТЬ I иДентиФикатоР 1 I ... С {идентификатор-2
(литерал-1 J —
[ОКРУГЛЯЯ]}...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1]
[БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-СЛОЖИТЬ]
~ [ идентификатор-1 ] [ идентификатор-2 1
С_и/Ю/1И ID s 5 / СІ і о /
(литерал-1 (литерал-2 |
ПОЛУЧАЯ {идентификатор-3 [ОКРУГЛЯЯ]}...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ]
[БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2]
[КОНЕЦ-СЛОЖИТЬ]
1 СООТВЕТСТВЕННО ]
улолки 1 р ? <~ООТВ [ идентификатор-1
С идентификатор-2 [ОКРУГЛЯЯ]
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-СЛОЖИТЬ]
2.11.3
ИЗМЕНИТЬ {имя-процедуры-1 [ДЛЯ ПЕРЕХОДА] К_имя-про- цедуры-2}...
2.11.4
и
ВЫЗВАТЬ
дентификатор-1 литерал-1ИСПОЛЬЗУЯ
( [ССЫЛКУ НА] {идентификатор-2}... [ ЗНАЧЕНИЕ {идентификатор-2} ...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ]
[КОНЕЦ-ВЫЗВАТЬ]
ВЫЗВАТЬ I идентвфикатор-1 І
(литерал-1 ]
ИСПОЛЬЗУЯ
1 [ССЫЛКУ НА] {идентификатор-2}. .. ( ЗНАЧЕНИЕ {идентификатор-2}...
[ПРИ ОШИБКЕ повелительный-оператор-1] [БЕЗ ОШИБКИ повелительный-оператор-2] [КОНЕЦ-ВЫЗВАТЬ]
2.11.5
2
( КАТУШКУ
1 ТОМ
имя-файла-1
ЗАКРЫТЬ
идентификатор-1 литерал-1
ОСВОБОДИТЬ
БЕЗ ПЕРЕМОТКИ '
С ЗАМКОМ
ЗАКРЫТЬ {имя-файла-1 [С ЗАМКОМ]}...
2.11.7
ВЫЧИСЛИТЬ {идентификатор-1 [ОКРУГЛЯЯ]}... =
арифметическое-выражение-1
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1
]
[БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-ВЫЧИСЛИТЬ]
2.11.8
ПРОДОЛЖИТЬ
2.11.9
УДАЛИТЬ ЗАПИСЬ имя-файла-1
[
2.11.10
ЗАПРЕТИТЬ
ПРИ ОШИБКЕ КЛЮЧА повелительный-оператор-1] [БЕЗ ОШИБКИ КЛЮЧА повелительный-оператор-2[ [КОНЕЦ-УДАЛИТЬ]ВВОД [С ТЕРМИНАЛА] ВВОД-ВЫВОД С ТЕРМИНАЛА
ВЫВОД
имя-коммуникации-1
КЛЮЧ ! иДентиФикат°Р'1 1
[ литерал-1 ]
2.11.11
[
... [НА мнемоническое-имя-1]
идентификатор-1
литерал -1
ВЫДАТЬ
РАЗДЕЛИТЬ нА(идент"ф"катор1!
[ литерал-1 J
{идентификатор-2 [ОКРУГЛЯЯ]} •. .
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ]
[БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2]
[КОНЕЦ-РАЗДЕЛИТЬ]
и
РАЗДЕЛИТЬ НА I идентификатор ! 1
[ литерал-1 Н
дентификатор-2 литерал-2ПОЛУЧАЯ {идентификатор-3 [ОКРУГЛЯЯ]} ...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1
]
[
идентификатор-1 I [идентификатор-2 і і НА [ о
литерал-1 ] [литерал-2
БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-РАЗ ДЕЛИТЬ]РАЗДЕЛИТЬ
ПОЛУЧАЯ {идентификатор-3 [ОКРУГЛЯЯ]}...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ]
[БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-РАЗДЕЛИТЬ]
РАЗДЕЛИТЬ НА І идентификатор-1 Н идентификатор-2
[ литерал-1 / [ литерал-2
ПОЛУЧАЯ идентификатор-3 [ОКРУГЛЯЯ] ОСТАТОК идентификатор-4
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-РАЗДЕЛИТЬ]
П
тт. [ идентификатор-2
НА < _
[ литерал-2
идентификатор-1 литерал-1
РАЗДЕЛИТЬ
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-РАЗДЕЛИТЬ]
2.11.13
В
РАЗРЕШИТЬ
ВОД [С ТЕРМИНАЛА] ВВОД-ВЫВОД С ТЕРМИНАЛА ВЫВОДимя-коммуникации-1
КЛЮЧ I идентификатор-1
[ литерал-
1
2.11.14
ВОЙТИ В имя-языка-1 [имя-программного-модуля-1].
2.11.15
идентификатор-1 литерал-1
ОЦЕНИТЬ выражение-1
ИСТИНА
ЛОЖЬ
[ идентификатор-2 ] I литерал-2
ТАКЖЕ I выражение-2 [
ИСТИНА ЛОЖЬ
{{КОГДА ЛЮБОЕ условие-1 ИСТИНА ЛОЖЬ
[НЕ]
[ТАКЖЕ
(идентификатор-3
литерал-3
арифметическое-выражение-3
ПО
ЛЮБОЕ условие-1 ИСТИНА
ЛОЖЬ
идентификатор-4 Т
литерал-4
арифметическое- выражение-2]
( идентификатор-5
[НЕ] литерал-5
арифметическое-выражение-3
ПО
идентификатор-6
литерал-6
арифметическое- выражение-4
повелительный-оператор-1}...
[ИНАЧЕ повелительный-оператор-2]
[КОНЕЦ-ОЦЕНИТЬ]
2.11.16
ВЫЙТИ
ВЫЙТИ ИЗ ПРОГРАММЫ 2.11.17
ГЕНЕРИРОВАТЬ І имя'Аанног°1 ]
[ имя-отчета-1 J
2.11.18
ПЕРЕЙТИ К [имя-процедуры-1]
ПЕРЕЙТИ К {имя-процедуры-1} ... В ЗАВИСИМОСТИ ОТ идентификатор-1
2.11.19
ГСПИ 1 тп {{оператор-1}...
— — Условие-1 СЛЕдуЮЩЕЕ ПРЕДЛОЖЕНИЕ
ИНАЧЕ {оператор-2} . . . [КОНЕЦ-ЕСЛИ]
ИНАЧЕ СЛЕДУЮЩЕЕ ПРЕДЛОЖЕНИЕ КОНЕЦ-ЕСЛИ
2.11.20
ИНИЦИИРОВАТЬ {идентификатор-1} ...
БУКВЕННОЕ]
БЦ I
Ч
ЗАМЕНЯЯ
ИСЛОВОЕ }БЦР
ЧР
ДАННОЕ НА І "да«™Фи«атор-2 I
— I литерал-1 )
2.11.21
НАЧАТЬ {имя-отчета-1}...2.11.22
ПРОСМОТРЕТЬ идентификатор-1 СЧИТАЯ
I ЛИТЕРЫ
Г [ДО
идентификатор-4
I / ВСЕ
В идентификатор-2 {| ВЕДУЩИЕ
ПОСЛЕ J [ литерал-2 .
I Ц идентификатор-3 )
) ц литерал-1 J
ПРОСМОТРЕТЬ идентификатор-1 ЗАМЕНЯЯ
ЛИТЕРЫ НА
идентификатор-5 литерал-3
др
ПОСЛЕ
идентификатор-4 литерал-2
ДО 1 I идентификатор-4 ПОСЛЕ J I литерал-2
ВСЕ ВЕДУЩИЕ ПЕРВЫЙ
идентификатор-3] Т1. [идентификатор-5 > НА < _
литерал-1 ) [литерал-3
[ДО
I ПОСЛЕ
идентификатор-4 литерал-2
230 ГОСТ »‘”’58—89
ПРОСМОТРЕТЬ идентификатор-! СЧИТАЯ
Д
ЛИТЕРЫ
О 1 ( идентификатор-4ПОСЛЕ J I литер ал-2
В
В_идентификатор-2
СЕ 1JJ идентификатор-3ВЕДУЩИЕ J Ц литерал-1
( идентификатор-4 11 1
I литерал-2 J • • • J ■ • ■
ЗАМЕНЯЯ
ЛИТЕРЫ НА І иДентиФикатоР’5
I литерал-3
ДО I ( идентификатор-4 ПОСЛЕ / I литерал-
2ВСЕ
ВЕДУЩИЕ 1 ПЕРВЫЙ
идентификатор-S 1 ( идентификатор-5
литерал-1 J —- I литерал-3
ДО 1 { идеитификатор-4
ПОСЛЕ I I литер ал-2
ПРОСМОТРЕТЬ идентификатор-1 ПРЕВРАЩАЯ ( ^ентификатор-б 1 в[ идентификатор-7 ( литерал-4 J — [ литерал-5
j ДО Н идентификатор-4 1
I ПОСЛЕ I I литерал-2 J
ГОСТ 22558—89 С. 23
2.11.23
СЛИТЬ имя-файла-1
[ ( ВОЗРАСТАНИЮ ] „П1Г1Т1. , n 1
і УБЫВАНИЮ } КЛЮЧА {имя-данного-1}... ] ...
[АЛФАВИТ имя-алфавита-1]
ИСПОЛЬЗУЯ имя-файла-2 {имя-файла-3} ...
ПРОЦЕДУРА ВЫВОДА имя-процедуры-1 [ПО имя-процедуры-2]
.ПОЛУЧАЯ {имя-файла-4}...
2.11.24
ПОМЕСТИТЬ J идентификатор-1 ] в |идентификатор.2} ...
■ [ литерал-1 ] —
ппмргтитк I СООТВЕТСТВЕННО ]
ПОМЬС 1И1 ь I QQQjg [идентификатор-1
В идентификатор-2
2.11.25
УМНОЖИТЬ ( ВДентификатор-1 | нд (идентификатор_2 [ литерал-1 ) —
[ОКРУГЛЯЯ]}...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-УМНОЖИТЬ]
, А f идентификатор-2
НА п
— [ литерал-2
УМНОЖИТЬ (
[ литерал-1
ПОЛУЧАЯ {идентификатор-3 [ОКРУГЛЯЯ]} ...
[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-УМНОЖИТЬ
]
В
2.11.26
БЕЗ ПЕРЕМОТКИ
В
ОТКРЫТЬ
ОТКРЫТЬ
ОТКРЫТЬ
ЫХОДНОЙ {имя-файла-2[БЕЗ ПЕРЕМОТКИ] } .. .
ВХОДНОЙ-ВЫХОДНОЙ {имя-файла-3} . . .
ДОПОЛНЯЕМЫЙ {имя-файла-4} . . .
ВХОДНОЙ {имя-файла-1} . . .
ВЫХОДНОЙ {имя-файла-2}...
ВХОДНОЙ-ВЫХОДНОЙ {имя-файла-3} . . .
ДОПОЛНЯЕМЫЙ {имя-файла-4} . . .
' ВЫХОДНОЙ {имя-файла-1
[БЕЗ ПЕРЕМОТКИ]} .. .
ДОПОЛНЯЕМЫЙ {имя-файла-2} . . .
2.11.27
ВЫПОЛНИТЬ [имя-процедуры-1 [ПО имя-процедуры-2]]
[повелительный-оператор-1 КОНЕЦ-ВЫПОЛНИТЬ]
ВЫПОЛНИТЬ [имя-процедуры-1 [ПО имя-процедуры-2]]
І идентификатор-1 1 ( РАЗ 1
[ целое-1 [ [ РАЗА ]
[ повелительный-оператор-1 КОНЕЦ-ВЫПОЛНИТЬ]
ВЫПОЛНИТЬ [имя-процедуры-1 [ПО имя-процедуры-2]]
Н
С ПРОВЕРКОЙ В
АЧАЛЕ ] ] пп ,КОНЦЕ J] Д2условис-1
[повелительный-оператор-1 КОНЕЦ-ВЫПОЛНИТЬ]
ВЫПОЛНИТЬ [имя-процедуры-1 [ПО имя-процедуры-2]]
[
С ПРОВЕРКОЙ В ££т„т *
[КОНЦЕ ]
МЕНЯЯ
и
идентификатор-2 имя-индекса-1
дентификатор-3 имя-индекса-2 литерал-1ПЛІ идентификатор-4) словие.!
[ литерал-2 J —
и
ЗАТЕм! иДентиФикат°Р-5
1 имя-индекса-3
дентификатор-6 имя-индекса-4 литерал-3д идентификатор-7 о
НА < . ДО условие-2
— [ литерал-4 J
[повелительный-оператор- 1 КОНЕЦ-ВЫПОЛНИТЬ] 2.11.28
ОЧИСТИТЬ имя-коммуникации-1
2.11.29
ЧИТАТЬ [СЛЕДУЮЩУЮ] ЗАПИСЬ имя-файла-1
[В идентификатор-1]
[В КОНЦЕ повелительный-оператор-1]
[НЕ В КОНЦЕ повелительный-оператор-2]
[КОНЕЦ-ЧИТАТЬ]
ЧИТАТЬ ЗАПИСЬ имя-файла-1 [В идентификатор-1] [ПРИ ОШИБКЕ КЛЮЧА повелительный-оператор-3] [БЕЗ ОШИБКИ КЛЮЧА повелительный-оператор-4] [КОНЕЦ-ЧИТАТЬ].
ЧИТАТЬ ЗАПИСЬ имя-файла-1 [В_идентификатор-1]
[КЛЮЧ имя-данного-1]
[ПРИ ОШИБКЕ КЛЮЧА повелительный-оператор-3] [БЕЗ ОШИБКИ КЛЮЧА повелительный-оператор-4] [КОНЕЦ-ЧИТАТЬ]
2.11.30 (СЕГМЕНТ 1
ПОЛУЧИТЬ { pnACTTTCUt,i; имя-коммуникации В
I СООБЩЕНИЕ ) — идентификатор! I НЕТ ДАННЫХ повелительный-оператор-1 ] [ЕСТЬ ДАННЫЕ повелительный-оператор-2] [КОНЕЦ-ПО ЛУЧИТЬ] 2.11.31
ПЕРЕДАТЬ имя-записи-1 [ИЗ ПОЛЯ идентификатор-!]
2.11.32
ВЕРНУТЬ ЗАПИСЬ имя-файла-1 [В идентификатор-!]
[В КОНЦЕ повелительный-оператор-1]
[НЕ В КОНЦЕ повелительный-оператор-2]
[КОНЕЦ-ВЕРНУТЬ]
2.11.33
ОБНОВИТЬ имя-записи-1 [ИЗ ПОЛЯ идентификатор-!]
ОБНОВИТЬ имя-записи-1 [ИЗ ПОЛЯ идентификатор-!]
[ПРИ ОШИБКЕ КЛЮЧА повелительный-оператор-1 ]
[БЕЗ ОШИБКИ КЛЮЧА повелительный-оператор-2]
[КОНЕЦ-ОБНОВИТЬ]
2.11.34
ИСКАТЬ В идентификатор-! МЕНЯЯ ! идентиФикатоР $ 1
[ [ имя-индекса-1 [
[ В КОНЦЕ повел ите л ьн ы й - о п е р а то р -1 ]
J ипгпл < ( повелительный-оператор-2 Ц
[ КО! ДА условие-1 J СЛЕДУЮЩЕЕ-ПРЕДЛОЖЕНИЕ(/ ’ ’ ’ [КОНЕЦ-ИСКАТЬ]
ИСКАТЬ ОСОБО В идентификатор-! [В КОНЦЕ
повелительный-опер атор-1 ]
[ РАВНО имя-данного-1 і ’
и
КОГДА I
дентификатор-3литерал-1
арифметическое- выражение-1
имя-условия-1
[ [РАВНО
имя-данного-2
идентификатор-4
литерал-2
арифметическое-выражение-2
имя-условия-2
( повелительный-оператор-2 1
I СЛЕДУЮЩЕЕ ПРЕДЛОЖЕНИЕ [
[КОНЕЦ-ИСКАТЬ]
2.11.35
ПОСЛАТЬ имя-коммуникации-1 ИЗ ПОЛЯ идентификатор-1
ПОСЛАТЬ имя-коммуникации-1 [ИЗ ПОЛЯ идентификатор-1]
С идентификатор-2
с икс
с икщ
с икг
[идентификатор-3)
{целое-1 (СТРОК
мнемоническое-имя-1 СТРАНИЦЫ
ПОСЛЕ ПРОДВИЖЕНИЯ
идентификатор-2 имя-индекса-2 целое-1
[ЗАМЕНЯЯ СТРОКУ]
2.11.36
УСТАНОВИТЬ (идентификатор-11 нд
(имя-индекса-1 ]