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

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 ]

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 ] _в |_идентиф_икатор.₂} ...

■ [ литерал-1 ] —

ппмргтитк I СООТВЕТСТВЕННО ]

ПОМЬС 1И1 ь I QQQjg [идентификатор-1

В идентификатор-2

2.11.25

УМНОЖИТЬ ( ВД^ентификатор-1 | _нд (_идентиф_икатор_₂ [ литерал-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 ]

УСТАНОВИТЬ {имя-индекса-3}..

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

целое-2

У (ПРИБАВЛЯЯ ' I ВЫЧИТАЯ

СТАНОВИТЬ {{мнемоническое-имя-1} .. . НА

1 ВКЛЮЧЕНО 1

( ВЫКЛЮЧЕНО / } • • •

УСТАНОВИТЬ {имя-условия-1}... НА ИСТИНА 2.11.37

СОРТИРОВАТЬ имя-файла-1

[ [ ВОЗРАСТАНИЮ 1 _{л о} 1

| ^по УБЫВАНИЮ I КЛЮЧА {имя-данного-1} ...J .

[С ДУБЛИРОВАНИЕМ]

[АЛФАВИТ имя-алфавита-1]

ПРОЦЕДУРА ВВОДА имя-процедуры-1 [ПО имя-процедуры-2]

ИСПОЛЬЗУЯ {имя-файла-2}...

ПРОЦЕДУРА ВЫВОДА имя-процедуры-3

[ПО имя-процедуры-4]

. ПОЛУЧАЯ {имя-файла-3}...

2.11.38

П КЛЮЧ

ОДВЕСТИ ЗАПИСЬ имя-файла-1

[ПРИ ОШИБКЕ КЛЮЧА повелительный-оператор-1] [БЕЗ ОШИБКИ КЛЮЧА повелительный-оператор-2] [КОНЕЦ-ПОДВЕСТИ]

2.11.39

ОСТАНОВИТЬ J ^РАБ0ТУ [ литерал-1

2.11.40

и СОБРАТЬ {

дентификатор! 1 ОГРАНИЧИВАЯСЬ

литерал-1 J

идентификатор-2 литерал-2 РАЗМЕРОМ

В идентификатор-3 [УКАЗАТЕЛЬ идентификатор-4] [ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1 ] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-СОБРАТЬ]

2.11.41 птнатк ( литерал-1 ]

^и1НЯ1Ь| идентификатор-1 / ■ • ■ ОТ (идентификатор-2 [ОКРУГЛЯЯ]}...

[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-ОТНЯТЬ]

л ОТНЯТЬ

итерал-1 1 от ! литерал-2 1

идентификатор-1 / ( идентификатор-2 )

ПОЛУЧАЯ {идентификатор-3 [ОКРУГЛЯЯ]}. ..

[ПРИ ПЕРЕПОЛНЕНИИ повелительный-оператор-1] [БЕЗ ПЕРЕПОЛНЕНИЯ повелительный-оператор-2] [КОНЕЦ-ОТНЯТЬ]