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

округляя

ПОВТОРЯЕТСЯ

ОО

ПОДАВИТЬ

ОПРЕДЕЛЯЕТ

ПОДВЕСТИ

ОПУЩЕНЫ

ПОДОЧЕРЕДЬ-1

ОРГАНИЗАЦИЯ

ПОДОЧЕРЕДЬ-2

ОС

ПОДОЧЕРЕДЬ-3

ОСВОБОДИТЬ

ПОЗИЦИЯ

ОСОБО

ПОЛЕ

ОСТАНОВИТЬ

полномочия

ОСТАТОК

ПОЛОЖИТЕЛЬНО

ПОЛУЧАЯ

РЕЗЕРВИРОВАТЬ

ПОЛУЧИТЬ

поля

С

ПОМЕСТИТЬ

СБРОСИТЬ

ПОСЛАТЬ

СВЯЗИ

ПОСЛЕ

СДВИНУТО

ПОСЛЕДНИЙ

СЕГМЕНТ

ПОСЛЕДОВАТЕЛЬНАЯ

СЕГМЕНТОВ

ПОСЛЕДОВАТЕЛЬНЫЙ

СЕКЦИЯ

ПРЕВРАЩАЯ

СИМВОЛИЧЕСКАЯ

ПРЕДЛОЖЕНИЕ

СИМВОЛИЧЕСКИЙ

ПРЕДПРИЯТИЕ

СЛЕДУЮЩАЯ

ПРИ

СЛЕДУЮЩЕЕ

ПРИБАВЛЯЯ

СЛЕДУЮЩЕЙ

ПРИНЯТЬ

СЛЕДУЮЩУЮ

ПРОБЕЛ

СЛИТЬ

ПРОБЕЛЫ

СЛОВ

ПРОВЕРКОЙ

СЛОЖИТЬ

ПРОГРАММА

СОБРАТЬ

ПРОГРАММНЫЙ

СООБЩЕНИЕ

ПРОГРАММЫ

СООБЩЕНИЙ

ПРОДВИЖЕНИЯ

СООБЩЕНИЯ

ПРОДОЛЖИТЬ

СООТВ

ПРОИЗВОЛЬНЫЙ

СООТВЕТСТВЕННО

ПРОПИСНЫЕ

СОРТ

ПРОСМОТРЕТЬ

СОРТИРОВАТЬ

ПРОЦЕДУР

сортировки

ПРОЦЕДУРА

сортировки-слияния

ПРОЦЕДУРАХ

СОСТОЯНИЕ

ПРОЦЕДУРЫ

состояния

СПЕЦИАЛЬНЫЕ-ИМЕНА

РАБОТУ

ССЫЛКАХ

РАБОЧАЯ-МАШИНА

ССЫЛКУ

РАБОЧЕЙ-ПАМЯТИ

СТАНДАРТ-А

РАВЕН

СТАНДАРТ-Р

РАВНО

СТАНДАРТ-М

РАЗ

СТАНДАРТНОЙ

РАЗА

СТАНДАРТНЫ

РАЗДЕЛ

СТОЛБЦА

РАЗДЕЛИТЬ

СТРАНИЦЕ

РАЗМЕР

СТРАНИЦЫ

РАЗМЕРОМ

СТРОК

РАЗОБРАТЬ

СТРОКА-ОТЛАДКИ

РАЗРЕШИТЬ

СТРОКИ

РЕВЕРСНО

СТРОКУ

РЕЖИМЕ

СТРОЧНЫЕ

СУММА СЧЕТ

СЧЕТЧИК-ВЕРСТКИ СЧЕТЧИК-СТРАНИЦ

СЧЕТЧИК-СТРОК СЧИТАЯ

ТАБЛИЦА ТАКЖЕ ТЕКСТА ТЕРМИНАЛ ТЕРМИНАЛА

ТИП ТОМ ТОМА ТОЧКА

УБЫВАНИЮ УДАЛЕНИЕМ УДАЛИТЬ

УЗ

УК

УКАЗАТЕЛЬ УМНОЖИТЬ УПРАВЛЕНИЕ УПРАВЛЕНИЕ-ВВОДОМ-

ВЫВОДОМ

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

УПРАВЛЯЕМАЯ УПРАВЛЯЕМЫЙ УСТАНОВИТЬ

ФАЙЛА ФАЙЛОВ ФР

ФРАГМЕНТ

ЧИСЛО ЧИСЛОВОЕ ЧИТАТЬ

ЧР

Ш

ШАБЛОН

*

/

**

Часть 5. ФОРМАТЫ ЯЗЫКА

СВОДКА ФОРМАТОВ АНГЛИЙСКОЙ НОТАЦИИ

Общий формат раздела идентификации IDENTIFICATION DIVISION.

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

COMMON INITIAL

JPROGRAM

[AUTHOR, [статья-комментарий] ... ]

[INSTALLATION, [статья-комментарий] ... ]

.[DATE-WRITTEN, [статья-комментарий] ... ] [DATE-COMPILED, [статья-комментарий] .. . ] [SECURITY, [статья-комментарий] ... ]

1.2. Общий формат раздела оборудования [ENVIRONMENT DIVISION.

[CONFIGURATION SECTION.

[SOURCE-COMPUTER, [имя-машины [WITH DEBUGGING

MODE], ]]

[OBJECT-COMPUTER, [имя-машины

[MEMORY SIZE целое-1

WORDS CHARACTERS

MODULES

[PROGRAM COLLATING SEQUENCE IS имя-алфавита-1] [SEGMENT-LIMIT IS номер-сегмента]. ]]

[SPECIAL-NAMES, [[имя-реализации-1

IS мнемоническое-имя-1 [ON STATUS IS имя-условия-1 [OFF STATUS IS имя-условия-2] ]

IS мнемоническое-имя-2 [OFF STATUS IS имя-условия-2 [ON STATUS IS имя-условия-1]]

ON STATUS IS имя-условия-l [OFF STATUS IS имя-условия-2]

OFF_ STATUS IS имя-условия-2

[ON STATUS IS имя-условия-1]

ALPHABET имя-алфавита-1 IS

STANDARD-1 STANDARD-2 STANDARD-R NATIVE

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

литерал-1

' jTHROUGH j THRU

литерал-2

ALSO литер ал-3}...

[SYMBOLIC CHARACTERS {{{символическая-литера-1}...

f IS 1

[ARE {{целое-1} .....}... [IN имя-алфавита-2]}]...

[CLASS имя-класса-І IS

T литерал-4

HROUGH 1

Tj-щ^-Т і литерал-

5

[CURRENCY SIGN IS литерал-6] [DECIMAL-POINT IS COMMA].]]] [INPUT-OUTPUT SECTION.

FILE-CONTROL.

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

[RERUNfoN (^имя-Ф^а^^ла‘¹

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

_{pppi і

Ж OF имя-файла-2

їт J

ц EVERY

елое-1 RECORDS

целое-2 CLOCK-UNITS имя-условия-1

'RECORD T

SAME

SORT

SORT-MERGE

AREA FOR имя-файла-3

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

[MULTIPLE FILE TAPE CONTAINS {имя-файла-5 [POSITION целое-3]}...]... ]]]]

Общий формат статьи управления файлом

Последовательный файл

SELECT [OPTIONAL] имя-файла-1

«сстгк- -ггл/имя-реализации-1

A AREA ] AREAS J

[RESERVE целое-1

SSIGN ТО|_{литерал-1}

[[ORGANIZATION IS] SEQUENTIAL]

PADDING CHARACTER IS {дитерал-Т™ ¹}] RECORD DELIMITER IS /STANDARDS

Іимя-реализации-2.

ACCESS MODE IS SEQUENTIAL] [FILE STATUS IS имя-данного-2]

.

Относительный файл SELECT [OPTIONAL] имя-файла-1

ASSIGN ТО(имя-реализации-1 1 (литерал-1 )

[RESERVE целое-1 [AREAg ]] [ORGANIZATION IS] RELATIVE

S ACCESS MODE IS

EQUENTIAL [RELATIVE KEY IS имя-данного-1] [RANDOM (RELATIVE KEY IS (DYNAMICІ имя-данного-1

[FILE STATUS IS имя-данного-2].

И н д е к с н ы й файл

SELECT [OPTIONAL] имя-файла-1

ASSIGN ТОЇ имя-реализации-11

(литерал-1

RESERVE целое-1 [ д£|д₈ ]]

O SEQUENTIAL RANDOM DYNAMIC

RGANIZATION IS] INDEXED

ACCESS MODE IS ■

RECORD KEY IS имя-данного-1

[ALTERNATE RECORD KEY IS имя-данного-2 [WITH DUPLICATES]]...

[FILE STATUS IS имя-данного-3].

С о p T и p у e M ы й-с л и в a e м ы й файл

SELECT имя-файла-1 ASSIGN то/^имя'Р^еал₁^изации’¹ ] (литерал-1 J’’’ '

Файл отчетов

SELECT [OPTIONAL] имя-файла-1

ASSIGN ТО[имя-реализации-11

(литерал-1 J ’ ’‘

[RESERVE целое-1 д$|д₅]]

[[ORGANIZATION IS] SEQUENTIAL]

PADDING CHARACTER {™^я_еД^аан₂^0Г0'¹ }

RECORD DELIMITER IS [имя-реализации-2

'ACCESS MODE IS SEQUENTIAL]

[FILE STATUS IS имя-данного-2].

Общий формат раздела данных [DATA DIVISION.

[FILE SECTION.

статья-описания-файла {статья-описания-записи}. ..

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

статья-описания-файла-отчетов

[WORKING-STORAGE SECTION.

статья-описания-уровня-77 статья-описания-записи

'LINKAGE SECTION.

статья-описания-уровня-77 статья-описания-записи

'COMMUNICATION SECTION.

[статья-описания-коммуникации [статья-описания-

записи] ... ] ... ]

[REPORT SECTION.

[статья-описания-отчета {статья-описания-группы-отчета}...]...] ]

Общий формат статьи описания файла

Последовательный файл

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

[IS EXTERNAL]

[IS GLOBAL]

BLOCK CONTAINS [целое-1 TO] целое-2(.^RECQRDS.

^L [CHARACTERS

CONTAINS целое-3 CHARACTERS

IS VARYING IN SIZE [ [FROM целое-4] "

RECORD [TO целое-5] CHARACTERS]

[DEPENDING ON имя-данного-1]

CONTAINS целое-6 TO целое-7

CHARACTERS

Г (RECORD IS И STANDARDf

^LAb--- I RECORDS ARE 11 OMITTED )

VALUE OF {имя-реализации-1 І5(^имя'^{данного}'2 (.литерал-1

.(RECORD IS ]

-- ^A| RECORDS ARE J {имя-данного-3}. . .

LINAGE IS f имя-данного-41 LINES

I. целое-» J

[WITH FOOTING дт(имя-данного-511 I. целое-9 J J

LINES AT Т0Р(^имя-^данн0Г°-⁶11 1 целое-10 J J

LINES AT ВОТТОМ[^имя'^{дадного}'⁷П [целое-11 J J.

[CODE-SET IS имя-алфавита-1].

О т н о с и т е л ь н ы й файл

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

[IS EXTERNAL]

[ (RECORDS

I CHARACTERS

IS GLOBAL]

BLOCK CONTAINS [целое-1 TO] целое-2

CONTAINS целое-3 CHARACTERS

I RECORD j

S VARYING IN SIZE [ [FROM целое-4] ‘

[TO целое-5] CHARACTERS]

[DEPENDING ON имя-данного-1]

CONTAINS целое-6 TO целое-7 CHARACTERS

Г _д ( RECORD IS 1 ( STANDARD И

--—j RECORDS ARE / j OMITTED /

VAJTIFOf/ і л с/имя-данного-211

^ALLJ£^Oh(имя-реализации-1 ] j ...

[RECORD IS ]

— RECORDS ARE І {имя-данного-3} ... •

Индексный файл

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

[IS EXTERNAL]

[IS GLOBAL]

BLOCK CONTAINS [целое-1 ТО] целое-2

RECORDS

CHARACTERS

RECORD,

CONTAINS целое-3 CHARACTERS

IS VARYING IN SIZE [ [FROM целое-4] [TO целое-5] CHARACTERS] [DEPENDING ON имя-данного-1]

CONTAINS целое-6 TO целое-7 CHARACTERS

LABEL

(RECORD IS 1 f I RECORDS ARE] (

STANDARD 1

OMITTED )

VALUE ОЕІимя-реализации-l IS(имя-данного-2

[ [литерал-1

DATA

(RECORD IS

( RECORDS ARE

{имя-данного-3}...

1.5.4. Сортируем ый-сливаемый файл SD имя-файла-1

RECORD

CONTAINS целое-1 CHARACTERS

IS VARYING IN SIZE [[FROM целое-2]

[TO целое-3] CHARACTERS] [DEPENDING ON имя-данного-1] CONTAINS целое-4 TO целое-5

CHARACTERS

DATA

/RECORD IS

[ RECORDS ARE

{имя-данного-2}. . .

Файл отчетов

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

[IS EXTERNAL]

[IS GLOBAL]

BLOCK CONTAINS [целое-1 TO] целое-2 (

: — [ CHARACTERS

(CONTAINS целое-3 CHARACTERS H

RECORD|_cqntains целое-4 TO целое-5 CHARACTERS]

' _ART (RECORD IS H STANDARD 11

■ ( RECORDS ARE|( OMITTED J

VALUE OF ( имя-реализации-1 IS(имя-данного-21)

.. [ [ литерал-1 J J

[CODE-SET IS имя-алфавита-1]

^REPORT IS ]

REPORTS ARE р^имя‘^отчета’¹} '• • •

Общий формат статьи описания данного

[ Формат 1 номер-уровня

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

FILLER

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

[IS EXTERNAL]

[IS GLOBAL] •

(PICTURE]

PIC MS строка-литер

' BINARY

COMPUTATIONAL

COMP

[USAGE IS]

INDEX

I PACKED-DECIMAL ( _

[SIGN IS] ( 1 [SEPARATE CHARACTER]

OCCURS целое-2 TIMES

(ASCENDING ]

I DESCENDING ) KEY IS {имя-данного-3}... • • •

[INDEXED BY {имя-индекса-1}... ]

OCCURS целое-1 TO целое-2 TIMES DEPENDING ON имя-данного-4

[(ASCENDING ] -

( DESCENDING [ KEY IS {имя-данного-3}

INDEXED BY {имя-индекса-1} . .. ]

( SYNCHRONIZED

I SYNC

Г LEFT

RIGHT

( JUSTIFIED I JUST

RIGHT]

BLANK WHEN ZERO]

[VALUE IS литерал-1].

Формат 2

66 имя-данного-1 RENAMES имя-данного-2

/THROUGH]

I THRU І имя-данного-3

Формат 3

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

/VALUE IS ]/ Г/THROUGH]

і VALUES ARE /]литерал-1 j _THRU (литерал-2

Общий формат статьи описания коммуникации

Формат 1

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

FOR [INITIAL] INPUT

[[SYMBOLIC QUEUE IS имя-данного-І]

[SYMBOLIC SUB-QUEUE-I IS имя-данного-2] [SYMBOLIC SUB-QUEUE-2 IS имя-данного-3] [SYMBOLIC SUB-QUEUE-3 IS имя-данного-4] [MESSAGE DATE IS имя-данного-5]

[MESSAGE TIME IS имя-данного-6]

[SYMBOLIC SOURCE IS имя-данного-7]

’ [TEXT LENGTH IS имя-данного-8]

[END KEY IS имя-данного-9]

[STATUS KEY IS имя-данного-10]

[MESSAGE COUNT IS имя-данного-11]]

[имя-данного-1, имя-данного-2, имя-данного-3, имя-данного-4, имя-данного-5, имя-данного-6, имя-данного-7, имя-данного-8, имя-данного-9, имя-данного-10, имя-данного-11]

Формат 2

СР имя-коммуникации-1 FOR OUTPUT