---

СУММА СЧЕТ

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

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

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

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

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

УЗ

УК

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

ВЫВОДОМ

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

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

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

ФРАГМЕНТ

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

ЧР

Ш

ШАБЛОН

*

/

**

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

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

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

COMMON INITIAL

JPROGRAM

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

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

.[DATE-WRITTEN, [статья-комментарий] ... ] [DATE-COMPILED, [статья-комментарий] .. . ] [SECURITY, [статья-комментарий] ... ]1.2. Общий формат раздела оборудования [ENVIRONMENT DIVISION.

[CONFIGURATION SECTION.

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

MODE], ]]

[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]

.

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].

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].

[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

[PESTINATION COUNT IS имя-данного-1]

{TEXT LENGTH IS имя-данного-2]

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

{PESTINATION TABLE OCCURS целое-1 TIMES [INPEXEP

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

[ERROR KEY IS имя-данного-4]

{SYMBOLIC PESTINATION IS имя-данного-5]

.

Формат 3

СР имя-коммуникации-1 FOR [INITIAL] 1-0

^— [ [MESSAGE DATE IS имя-данного-1] [MESSAGE TIME IS имя-данного-2] [SYMBOLIC TERMINAL IS имя-данного-3] [TEXT LENGTH IS имя-данного-4] [END KEY IS имя-данного-5] [STATUS KEY IS имя-данного-6]]

[имя-данного-1, имя-данного-2, имя-данного-3, _ имя-данного-4, имя-данного-5, имя-данного-6]

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

[IS GLOBAL]

[СОРЕ литерал-1]

J CONTROL IS H {имя-данного-1} ...

[ CONTROLS ARE ) ] FINAL [имя-данного-l] ...

[FIRST DETAIL целое-3] [LAST DETAIL целое-4]

[FOOTING целое-5]].

Формат 1

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

ц

LINE NUMBER IS

NEXT GROUP IS

елое-1 [ON NEXT PAGE]

PLUS целое-2

целое-3

PLUS целое-4

NEXT PAGEJ REPORT HEADING 1

(RH /

I PAGE HEADING 1

j PH J

I CONTROL HEADING || имя-данного-2 |CH [j FINAL

I

TYPE IS

DETAIL I

I DE J

f CONTROL FOOTING I ( имя-данного-3

( CF J( FINAL

I PAGE FOOTING 1

(PF J

J REPORT FOOTING |

RF

[ [USAGE IS] DISPLAY].

Формат 2 номер-уровня [имя-данного-1]

LINE NUMBER IS ( ^J t^0N ^EJCTPAGE] PLUS целое-2

[[USAGE IS] DISPLAY],

Формат З номер-уровня [имя-данного-1]

І PICTURE І

j РІС I IS строка-литер ["[USAGE IS] DISPLAY]

[SIGN IS]

LEADING

TRAILING

[SEPARATE CHARACTER]

I JUSTIFIED j JUST

RIGHT

BLANK WHEN ZERO]

LINE NUMBER IS ( ^°^N ^^{EXT PAGE}1

I PLUS целое-2

[COLUMN NUMBER IS целое-3]

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

VALUE IS литер ал-1

{SUM {идентификатор-2}... [UPON

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

І имя-данного-31

RESET ON { _FINAL j

[GROUP INDICATE],

Формат 1

[PROCEDURE DIVISIONS [USING {имя-данного-1} ... ].

[DECLARATIVES.

{имя-секции SECTION [номер-сегмента].

оператор USE

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

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

END DECLARATIVES.]

{имя-секции SECTION [номер-сегмента].

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

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

Формат 2

[PROCEDURE DIVISION [USING {имя-данного-1}...].

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

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

1.11.1

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

DATE

D

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

AY

DAY-OF-WEEK

TIME

ACCEPT имя-коммуникации-1 MESSAGE COUNT

1.11.2

АОо(^идентиФ^икат°Р'Ц .. TO {идентификатор-2 {литерал-1 }

[ROUNDED]}...

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

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

- _ (идентификатор-11 ^(идентификатор^)

[литерал-1 J ' —[литерал-2 J

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

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

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

_A__ (CORRESPONDING)

ADDI CORR (идентификатор ! TO идентификатор-2

[ROUNDED]

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

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

ALTER {имя-процедуры-l TO [PROCEED TO] имя-процедуры-2}...

CALLI ^идентиФ^икатоР'¹1

[ литерал-1 j

' J [BY REFERENCE] {идентификатор-2}... 1

[ BY CONTENT {идентификатор-2}... ] • • •

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

CALL / ^иД^ентиФ^икатоР’¹1

[ литерал-1 /

TISTNc) REFERENCE] {идентификатор-2}... 1 [ BY CONTENT {идентификатор-2}... j

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

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

CANCEL I ^иД^ентиФ^икатоР’¹ 1

[ литерал-1 ] ‘ ’

CLOSE { имя-файла-1

і

CLOSE {имя-файла-1 [WITH LOCK]} ...

1.11.7

COMPUTE {идентификатор-І [ROUNDED]}... =

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

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

[END-COMPUTE]

1.11.8

CONTINUE

1.11.9

DELETE имя-файла-l RECORD

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

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

[END-DELETE]

1

INPUT [TERMINAL]

DISABLE 1-0 TERMINAL

OUTPUT

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

.11.10

литерал-1

WITH КЕУ(^идентиФ^икатоР'¹

1.11.11

ОІ5РЕАт[^идентиФ^икат°Р'¹1... [UPON мнемоническое-имя-1 ] ПИТРПЯП-1

[WITH NO ADVANCING]

1.11.12

DIVIDE(идентификатор-1 (into {идентификатор-2

1 литерал-1 J

[ROUNDED]}...

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

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

[END-DIVIDE

]DIVIDE [ идентификатор-11 into[ идентификатор-2 1

[литерал-1 ) [литерал-2 J

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

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

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

[END-DIVIDE]

DIVIDE[ идентификатор-11 gy [идентификатор-21