---

[литерал-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 niU 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 имя-индекса-

2by! нАе»™Ф»катор-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! ВД^ентиФ^икат°Р-²

[ имя-индекса-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

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

E

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

[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

имя-процедуры-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]

=

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

о

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

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

условие-2

AND

OR

условие-1

т н о ш е ния

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

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

AND

объект