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

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

’ [LIMIT IS ] [LINE '

LIMITS ARE релое-! 1^ LINES

[HEADING целое-2]

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

J 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

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

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

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

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

DIVIDEp^!'^ieHTH(!^)HKaTO'’'l 1 INTO [идентификатор-2]

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

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

REMAINDER идентификатор-4

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

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

DIVIDE Г идентификатор-1 1 gy I идентификатор-2 1

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

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

REMAINDER идентификатор-4

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

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

1.11.13

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

ENABLE 1-0 TERMINAL

INPUT [TERMINAL]

UTPUT

[ литерал-1

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

1

1.11.14

ENTER имя-языка-1 [имя-программного-модуля-1]

1.11.15

FALSE

EVALUATE

{ литерал-2

• выражение-2

I TRUE

I FALSE

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

идентификатор-1 литерал-1 выражение-1 TRUE

ALSO

{WHEN ANY условие-1 TRUE FALSE

[ идентификатор-4 литерал-4

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

THIDUGH

THRU

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

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

[NOT]

ALSO

ANY условие-2

TRUE

F идентификатор-5 литерал-5

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

ALSE

[NOT]

( идентификатор-6

THROUGH | I литерал-6 'THRU I арифметическое-

выражение-4

повелительный-оператор-1}...

[WHEN OTHER повелительный-оператор-2]

[END-EVALUATE]

1.11.16

EXIT

EXIT PROGRAM

1.11.17

GENERATE(^HM5I'^AaHH0r0,'¹1

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

1.11.18

GO TO [имя-процедуры-1]

GO TO (имя-поцедуры-l} ... DEPENDING ON идентификатор-1

1.11.19

ic і тнем f{оператор-1} .. . ]

— условие-1 THEN | _NEXT SENTENCE )

ELSE {оператор-2} ... [END-IF]

. ELSE NEXT SENTENCE

END-IF 1.11.20

INITIALIZE {идентификатор-1} .. .

A REPLACING

LPHABETIC ALPHANUMERIC NUMERIC ALPHANUMERIC-EDITED NUMERIC-EDITED

DATA ву!^{идентификатор}-²

—(литерал-1 1.11.21

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

се О

1.11.22

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

CHARACTERS {

BEFORE AFTER

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

литерал-2 |

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

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

LEADING литерал-1

I ^L

INSPECT идентификатор-l REPLACING

BEFORE) I идентификатор-41 1

AFTER J^INITIALI литерал-2

CHARACTERS BY (идентификатор-⁵ ]

^!—[литерал-3 J

I BEFORE

I AFTER

(идентификатор-4

[литерал-2

I ALL LEADING FIRST

идентификатор-3 | _DV I идентификатор-5

1 I о

литерал-1 I —[литерал-3

I BEFORE I

I AFTER J

INITIAL

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

186 ГОСТ 22558—89

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

CHARACTERS

BEFORE) І идентификатор-4

AFTER j ^INITIAL| литерал-2

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

LEADING І Пидентификатор-31

ALL f||литерал-1 [

BEFORE )„, [идентификатор-4

AFTER j^INITIALI литерал-2

REPLACING

19 7

CHARACTERS ву І^вдентиФ^икатоР'5 | f BEFORE) (идентификатор-4

— |литерал-3 j| I AFTER J ^INITIAL |литерал-2 идентификатор-3 |gy/ идентификатор-5 литерал-1 J—I литерал-3

ALL LEADING FIRST

[BEFORE) _TWtTrT,_T,_r [идентификатор-4 aftfp— INITIAL) _o Ar 1 E.K J [литерал-2

INSPECT идентификатор-1 CONVERTING / ^{идентификато}Р'⁶ ] TO f ВДентификатор-7 |

[ литерал-4 f — I литерал-5 [

[ BEFORE I [ идентификатор-4 )

I AFTER f^INITIAL I литерал-2 /

ГОСТ 22558—89

1.11.23

хлспгс ж - 1 ( [ASCENDING 1

MERGE имя-фаила-1 [_0N[ _DESCENDING |

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

[ I THROUGH I THRU

COLLATING SEQUENCE IS имя-алфавита-l] USING имя-файла-2 {имя-файла-3}...

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

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

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

1.11.24

МОУЕІ^идентиФ^икатоР'ПтО {идентификатор-2} ...

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

MOVE I CORRESPONDING 1 идентификатор-1 TO

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

1.11.25

MULTIPLY / ^иД^ентиФ^икатоР~ I BY {идентификатор-2

( литерал-1 /

[ROUNDED]}...

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

MULTIPLY/идентификатор-11 BY [идентификатор-2

(литерал-1 j (литерал-2

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

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

I REVERSED

WITH NO REWIND

OPEN

1.11.26

NPUT |имя-файла-1

і OUTPUT {имя-файла-2 [WITH NO REWIND]}...

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

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

[ OPEN

OPEN

OUTPUT {имя-файла-1 [WITH NO REWIND]}...

I EXTEND {имя-файла-2}...

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

OUTPUT {имя-файла-2}...

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

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

1.11.27

[ [ THROUGH]

{ tudtt имя-процедуры-2

I 1 ni\U I

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

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

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

pdpodmF .[[THROUGH

PERFORM имя-процедуры-l j THR~U

fидентификатор-1 1 times [повелительный-оператор-1

lцелое-1 J

END-PERFORM]

t UNTIL условие-1

[THROUGH)

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

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

wttu TijQ-rfBEFORE

WITH TEST _AFTER ■

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

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

THRU

[THROUGH

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

гст f BEFORE Г WITII TCST|-p_jT---;|

VARYING!^Me“^T1,*“^KaI°^p’³

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

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

FROM имя-индекса-2

by! нАе»™Ф»катор-4|_{икт|к вие}.!

— (литерал-2 J

и FROM

AFTER І^идентиФ^икатоР'5

Іимя-индекса-3

дентификатор-6 имя-индекса-4 литерал-3

BY I идентификатор-? ] _сломе.₂

— (литерал-4 J

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

1.11.28

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

1.11.29

READ имя-файла-1 [NEXT] RECORD [INTO идентификатор-1]

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

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

[END-READ]

READ имя-файла-1 RECORD [INTO идентификатор-1]

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

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

[END-READ]

READ имя-файла-l RECORD [INTO идентификатор-1]

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

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

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

[END-READ]

1 I MESSAGE I I SEGMENT J

.11.30

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

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

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

[WITH DATA повелительный-оператор-2] [END-RECEIVE]

1.11.31

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

1.11.32

RETURN имя-файла-1 RECORD [INTO идентификатор-1]

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

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

[END-RETURN]

1.11.33

REWRITE имя-записи-1

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

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

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

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

[END-REWRITE]

1.11.34

varying! ВД^ентиФ^икат°Р-²