I ЗС J

(УПРАВЛЯЕМЫЙ ЗАГОЛОВОК j УЗ

I имя-данного-2 1

поI концу )

(

тип

ФРАГМЕНТ I

j ФР 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. Общий формат раздела процедур

Формат 1

[РАЗДЕЛ ПРОЦЕДУР [ИСПОЛЬЗІ Т {имя-данного} ... ].

[ДЕКЛАРАТИВЫ.

{СЕКЦИЯ имя-секции [номер-сегмента].

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

[имя-параграфа.

[предложение] ...]...}...

КОНЕЦ ДЕКЛАРАТИВ.

{СЕКЦИЯ имя-секции [номер-сегмента].

[ имя-параграфа.

[предложение] ... ] ...}...

Формат 2

[РАЗДЕЛ ПРОЦЕДУР [ИСПОЛЬЗУЯ {имя-данного-1}...].

{имя-параграфа.

[предложение] ...}...]



  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


ОСВОБОДИТЬ


.11.6 имя-файла-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


ВЫДАТЬ


БЕЗ ПРОДВИЖЕНИЯ] 2.11.12

РАЗДЕЛИТЬ нА(идент"ф"катор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


РАЗДЕЛИТЬ


ОЛУЧАЯ идентификатор-3 [ОКРУГЛЯЯ] ОСТАТОК идентификатор-4

[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-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


ХОДНОЙ I имя-файла-1 Г РЕВЕРСНО

БЕЗ ПЕРЕМОТКИ

В

ОТКРЫТЬ

ОТКРЫТЬ

ОТКРЫТЬ

ЫХОДНОЙ {имя-файла-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]]

[


( НДЧД ПР 11

С ПРОВЕРКОЙ В ££т„т *

[КОНЦЕ ]



МЕНЯЯ



и

идентификатор-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 ]