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

[ имя-индекса-1

SEARCH идентификатор-1

идентификатор-3 литерал-1 арифметическое- выражение-1

имя-условия-1

[IS EQUAL TO имя-данного-1 j jg ~

WHEN

[END-SEARCH]

SEARCH ALL идентификатор-1

[AT END повелительный-оператор-1]

{ повелительный-оператор-2) । NEXT SENTENCE [j

WHEN условие-1

[AT END повелительный-оператор-1 ]

_Тс РППДІ _тп. идентификатор-4

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

AND

S EQUAL TOI Iлитерал-2

IS = j | арифметическое-

выражение-2

I имя-условия-2

J повелительный-оператор-2 j NEXT SENTENCE

[END-SEARCH] 1.11.35

SEND имя-коммуникации-l FROM идентификатор-1

SEND имя-коммуникации-1

tидентификатор-31 Г LINE

[целое-1 j LINES

f мнемоническое-имя-1]

jPAGE /

BEFORE ]

AFTER [ADVANCING

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

[FROM идентификатор-1]

WITH ESI

WITH EMI

WITH EGI

[REPLACING LINE]

1 имя-индекса-2 идентификатор-2 целое-1

.11.36

1 имя-индекса-1 ] [ идентификатор-1 j

SET {ямя-индекса-3} ... (_Ry I [ I

[ DOWN BY j [ целое-2 )

SET {{мнемоническое-имя-1} ... TO < ■ — OrF

SET {имя-условия-1}... TO TRUE

1.11.37

( SORT имя-файла-1

(ASCENDING 1

I ^UN ( DESCENDING )

KEY {имя-данного-1}... |.

[WITH DUPLICATES IN ORDER]

[COLLATING SEQUENCE IS имя-алфавита-1]

INPUT PROCEDURE IS имя-процедуры-1

(THROUGH I

I THRU I имя-процедуры-2

USING (іімя-файла-2) . ..

(

OUTPUT PROCEDURE IS имя-процедуры-3

THROUGH]

THRU имя ^пР°иедуры-4

GIVING {имя-файла-3} ...

1.11.38

START имя-файла-1

(IS EQUAL TO

—

IS =

IS GREATER THAN

IS >

[KEY

IS NOT LESS THAN

IS NOT <

IS GREATER THAN OR EQUAL TO

IS > =

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

—

[INVALID KEY повелительный-оператор-1] I

[NOT INVALID KEY повелительный-оператор-2]

[END-START]

RUN литерал-1

1.11.39

STOP

1.11.40

STRING П ^идентиФ^икатоР"1

Ц литерал-1

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

SIZE

DELIMITED BY

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

[WITH POINTER идентификатор-4]

[ON OVERFLOW повелительный-оператор-1]

[NOT ON OVERFLOW повелиДельный-операт6р-2]

[END-STRING] . _t

1.11.41

SUBTRACT / идентификатор 1 1 FROM {идентификатор-2

[ литерал-1 J

[ROUNDED]}...

[ON SIZE ERROR повелительный-оператор-1] [NOT ON SIZE ERROR повелительный-оператор-2]

[ идентификатор-1 I FROM j ^иД^ентиФ^икатоР’2 литерал-1 j ‘ ’ т-7—^-1 литерал-2

END-SUBTRACT] ¹¹ . *- » n

SUBTRACT

GIVING {идентификатор-3 [ROUNDED]}-...

[ON SIZE ERROR повелительйый-оператер-1]

[NOT ON SIZE ERROR повелительный-оператор-2]

[END-SUBTRACT]

stirtdact [CORRESPONDING \ ,

SUB 1 RAC 1 j '< идентификатор-!

FROM идентификатор-2 [ROUNDED]

[ON SIZE ERROR повелительный-оператор-1]

[NOT ON SIZE ERROR повелительный-оператор-2]

[END-SUBTRACT]

1.11.42

SUPPRESS PRINTING 1.11.43

TERMINATE {имя-отчета-1}...

1.11.44

UNSTRING идентификатор-1

[DELIMITED BY [ALL] ( ^иД^ентиФ^икатоР'² ]

— ± [ литер ал -1 J

OR [ALL] / идентификатор-З 1

——-——— [ литерал-2 [ ■ • •

INTO {идентификатор-4 [DELIMITER IN идентификатор-5]

[COUNT IN идентификатор-6]} . ..

[WITH POINTER идентификатор-7]

[TALLYING IN идентификатор-8]

[ON OVERFLOW повелительный-оператор-1]

[NOT ON OVERFLOW повелительный-оператор-2]

[END-UNSTRING]

1 ( EXCEPTION j ERROR

.11.45

USE [GLOBAL] AFTER STANDARD

PROCEDURE

{имя-файла-1} .. . INPUT

O ON

UTPUT

1-0

EXTEND

{имя-файла-1}...

OUTPUT

EXTEND

PROCEDURE ON

(EXCEPTION

I ERROR

USE AFTER STANDARD

USE [GLOBAL] BEFORE REPORTING идентификатор-1

USE FOR DEBUGGING

имя-коммуникации-1 [ALL REFERENCES OF] идентификатор-1

ON

имя-файла-1

имя-процедуры-1

ALL PROCEDURES

1.11.46

WRITE имя-записи-1 [FROM идентификатор-1]

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

( ADVANCING

BEFORE AFTER

целое-1 J LINES

і мнемоническое-имя-1 I

I PAGE J

' (END-OF-PAGE) . ,

AT ( 7.74 ft } повелительныи-оператор-1

I tUF I

(END-OF-PAGE ] . _o

NOT AT / 4_n } повелительныи-оператор-2

EOP

[END-WRITE]

WRITE имя-записи-1 [FROM идентификатор-1] [INVALID KEY повелительный-оператор-1] [NOT INVALID KEY повелительный-оператор-2] [END-WRITE]

Общий формат операторов COPY (КОПИРОВАТЬ) и REPLACE (ЗАМЕНИТЬ)

= REPLACING

COPY имя-текста-1

имя-библиотеки-1

= псевдотекст-1 = = идентификатор-1 литерал-1

слово-1

= BY

= псевдотекст-2 = = идентификатор-2 литерал-2

слово-2

REPLACE {= = псевдотекст-1 = = BY = = псевдотекст-2 = = }...

REPLACE OFF

Общий формат условий

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

IS [NOT] GREATER THAN

IS [NOT] >

IS [NOT] LESS THAN

_I

t идентификатор-1 IS [NOT] <

литерал-1 I _IS [_N0T equal TO

I арифметическое- I { у _гмпт1

І выражение-l I IS [NOT] —

I имя-индекса-1 j IS GREATER THAN OR EQUAL TO

IS > =

IS LESS THAN OR EQUAL TO

IS < =

идентификатор-2 литерал-2 арифметическое- выражение-2 имя-индекса-

2

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

N идентификатор-1 IS [NOT]

UMERIC ALPHABETIC ALPHABETIC-LOWER ALPHABETIC-UPPER имя-класса-1

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

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

У POSITIVE

NEGATIVE

ZERO

с л о в и е знака

арифметическое-выражение-1 IS [NOT]

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

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

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

1.13.8. Сокращенное

условие-2

AND

OR

условие-1

т н о ш е ния

[NOT] [знак-операции-отношения]

условие-отношения

AND

объект

Общий формат уточнения

Формат 1

целое-1

имя-данного-2 [{+} целое-2]

имя-индекса-1 [{±} целое-3]

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

имя-условия-1

Индексирование

Прочие форматы

IN I [f IN ]

OP } имя-данного-4 | op } имя-отчета-2

IN ] !

-Qp І имя-отсчета-2 I

⁷ /

имя-данного-3

Формат 6

Формат 3

J1N)

имя-текста-1 [ ор / имя-библиотеки-1

Формат 4

I IN 1 LINAGE-COUNTER | j _имя-файла-2

Формат 5

PAGE-COUNTER И IN ]

LINE-COUNTER ||^QFI и*’⁵’’⁰’¹'⁴⁶⁷³'¹

[IN 1 имя-параграфа-1 j др" !’ имя-секции-1

имя-файла-І

имя-коммуникации-1

OF

IN

Формат 2

имя-файла-1

имя-коммуникации-1

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

имя-условия-1

1

OF

in :

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

IN

OF

. М о д и ф и к а ц и я ссылки имя-данного-1 (позиция-самой-левой-литеры: [длина])

. OF ]

jN [имя-данного-2

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

[OF ] I IN J

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

имя-коммуникации-1

имя-файла-1

имя-отчета-1

£ ({индекс} ...) ] [ (позиция-самой-левой-литеры: [длина]) ]

Общий формат вложенных исходных программ IDENTIFICATION DIVISION.

PROGRAM-ID. имя-программы-1 [IS INITIAL PROGRAM], {ENVIRONMENT DIVISION, coдержимое-раздела- оборудования]

[DATA DIVISION, содержимое-раздела-данных] [PROCEDURE DIVISION, содержимое-раздела-процедур] [ [вложенная-исходная-программа]...

END PROGRAM имя-программы-1.]

О [COMMON I

^IS [INITIAL J

бщий формат вложенной исходной программы IDENTIFICATION DIVISION.

PROGRAM-ID. имя-программы-2

PROGRAM].

[ENVIRONMENT DIVISION, содержимое-разделa-

~ оборудования]

[DATA DIVISION, содержимое-раздела-данных]

[PROCEDURE DIVISION, содержимое-раздела-процедур] [вложенная-исходная-программа]...

END PROGRAM имя-программы-2.

Общий формат последовательности исходных программ

IDENTIFICATION DIVISION.

PROGRAM-ID. имя-программы-3 [IS INITIAL PROGRAM], [ENVIRONMENT DIVISION, содержимое-раздела-

оборудования]

[DATA DIVISION, содержимое-раздела-данных]

[PROCEDURE DIVISION, содержимое-раздела-процедур] [вложенная-исходная-программа]...

END PROGRAM имя-программы-3.} ...

IDENTIFICATION DIVISION.

PROGRAM-ID. имя-программы-4 [IS INITIAL PROGRAM], [ENVIRONMENT DIVISION, содержимое-раздела-

оборудования]

[DATA DIVISION, содержимое-раздела-данных]

[PROCEDURE DIVISION, содержимое-раздела-процедур] [[вложенная-исходная-программа] . ..

END PROGRAM имя-программы-4.]

2. СВОДКА ФОРМАТОВ РУССКОЙ НОТАЦИИ

Общий формат раздела идентификации РАЗДЕЛ ИДЕНТИФИКАЦИИ.

1 ОБЩАЯ

( НАЧАЛЬНАЯ

ПРОГРАММА, имя-программы

[АВТОР, [статья-комментарий] ... ] [ПРЕДПРИЯТИЕ, [статья-комментарий] ... ] [ДАТА-НАПИСАНИЯ. [статья-комментарий] ... ] [ДАТА-ТРАНСЛЯЦИИ. [статья-комментарий] ... ] [ПОЛНОМОЧИЯ, [статья-комментарий] ... ]

Общий формат раздела оборудования [РАЗДЕЛ ОБОРУДОВАНИЯ.

[СЕКЦИЯ КОНФИГУРАЦИИ.

[ИСХОДНАЯ-МАШИНА. [имя-машины

[В РЕЖИМЕ ОТЛАДКИ].]]

[РАБОЧАЯ-МАШИНА, [имя-машины

СЛОВ

ЛИТЕР МОДУЛЕЙ

РАЗМЕР ПАМЯТИ целое-1

[ПРОГРАММНЫЙ АЛФАВИТ имя-алфавита

[ГРАНИЦА СЕГМЕНТОВ номер-сегмента]. ]]

[СПЕЦИ АЛЬНЫЕ-ИМЕНА. [[имя-реализации-1

ЕСТЬ мнемоиичес.кое-имя-1

ВКЛЮЧЕНО]

о JZ гг ? ИМЯ-уСЛОВИЯ-1

ВЫКЛЮЧЕНО )

ВЫКЛ I ^ИМЯ’У^СЛОВИЯ"2

ЕСТЬ мнемоническое-имя-2

[ ВЫКЛЮЧЕНО]

I ВЫКЛ /^имя'

условия-2

{ ВКЛЮЧЕНО ]

I ВКЛ I имя-условия-1

ВКЛЮЧЕНО ]

rjTzrj і имя-условия-1

Г1 ВЫКЛЮЧЕНО і ВЫКЛ

имя-условия-2

( ВЫКЛЮЧЕНО ]

І 2ВІКЛ і имя—условия-2

ВКЛЮЧЕНО

ВКЛ

имя-условия-1

{АЛФАВИТ имя-алфавита-1 СТАНДАРТ-А СТАНДАРТ-М СТАНДАРТ-Р ] ВНУТРЕННИЙ имя-реализации-2

{литерал-1

I ¹

ПО литерал-2 {ТАКЖЕ литер ал-3}...

{СИМВОЛИЧЕСКАЯ ЛИТЕРА {{{символическая-литера-1}... ЕСТЬ {целое-1}[ИЗ имя- алфавита-2]}] ...

[КЛАСС имя-класса-1 ЕСТЬ {литерал-4 [ПО литерал-5]}...]... [ВАЛЮТНЫЙ ЗНАК литерал-6] [ДЕСЯТИЧНАЯ ТОЧКА ЗАПЯТАЯ]. ] ]]

{СЕКЦИЯ ВВОДА-ВЫВОДА.

УПРАВЛЕНИЕ-ФАЙЛАМИ.

{статья-управления-файлом}...

[УПРАВЛЕНИЕ-ВВОДОМ-ВЫВОДОМ.

[ ПЕРЕПРОГОнГ НА 1^имя-Ф^аила'¹ ]

[имя-реализации-1 J

[ катушки

К имя-файла-2

АЖДЫЙ КОНЕЦ{тома