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

Каждое вхождение имени-данного-5 содержит сим волический адресат, предварительно сообщенный системе управ­ления сообщениями. Имена символических адресатов должны со­ответствовать правилам образования системных имен.

Значение имени-данного-3 указывает состояние выполне­ния оператора SEND (ПОСЛАТЬ) PURGE (ОЧИСТИТЬ), ENABLE OUTPUT (РАЗРЕШИТЬ ВЫВОД), DISABLE OUT­PUT (ЗАПРЕТИТЬ ВЫВОД) | Соответствие значения имени- данного-3 состоянию выполнения операторов приведено в табл. 1.

Если при выполнении операторов | DISABLE OUTPUT f (ЗАПРЕТИТЬ ВЫВОД), ENABLE OUTPUT (РАЗРЕШИТЬ] ВЫВОД), PURGE (ОЧИСТИТЬ), | SEND (ПОСЛАТЬ) систе­ма управления сообщениями определяет, что имеет место ошибка, значения имени-данного-3 и | _всех вхождений I имени-данного-4 .обновляются I вплоть до и включая вхождение, указанное зна- | ' чением имени-данного-1 |

Соответствие между значением данного имя-данного-4 и клю­чом ошибки определено в табл. 2.

Формат 3

Информация, определенная статьей CD (ОК) для ввода- вывода служит для связи между системой управления сообщения­ми и программой и задает информацию о сообщении, которое об­рабатывается. Эта информация не передается с терминала как часть сообщения.

Для каждого CD (ОК) для ввода-вывода выделяется не­прерывная область записи из 33 литер. Эта область записи опреде­ляется для системы управления сообщениями следующим образом:

фраза MESSAGE DATE (ДАТА СООБЩЕНИЯ) определяет имя-данного-1 как имя данного, неявно описанного как целое из 6 цифр без знака, занимающего в записи позиции 1—6;

фраза MESSAGE TIME (ВРЕМЯ СООБЩЕНИЯ) определя­ет имя-данного-2 как имя данного, неявно описанного как целое из 8 цифр без знака, занимающего в записи позиции литер 7—14;

фраза SYMBOLIC TERMINAL (СИМВОЛИЧЕСКИЙ ТЕР­МИНАЛ) определяет имя-данного-3 как имя элементарного бук­венно-цифрового данного, состоящего из 12 литер и занимающего в записи позиции литер 15—26;

фраза TEXT LENGTH (ДЛИНА ТЕКСТА) определяет имя- данного-4 как имя элементарного данного, неявно описанного как целое из 4 цифр без знака, занимающего в записи позиции литер 27—30;

фраза END KEY (КЛЮЧ КОНЦА) определяет имя-данно- го-5 как имя элементарного буквенно-цифрового данного из 1 лите­ры и занимающего в записи позицию 31;

фраза STATUS KEY (КЛЮЧ СОСТОЯНИЯ) определяет имя-данного-6 как имя элементарного буквенно-цифрового данно­го из 2 литер и занимающего в записи позиции литер 32, 33.

Вместо указанных выше фраз могут быть использованы име- на-данных, которые, взятые по порядку, соответствуют именам- данных, определенным этими фразами.

В любом случае предполагается неявное описание записи, кото­рое представлено ниже.

8 Неявное описание е

01 нмя-данного-0.

02 имя-дайного-1 PICTURE 9(6).

02 имя-данного-2 PICTURE 9(8).

02 имя-данного-3 PICTURE Х(12).

02 имя-данного-4 PICTURE 9(4).

02 имя-данного-5 PICTURE X.

02 имя-данного-6 PICTURE XX.

01 имя-данного-0.

02 имя-данного-1 ШАБЛОН 9(6).

02 имя-данного-2 ШАБЛОН 9(8).

02 имя-данного-3 ШАБЛОН Х(12).

02 имя-данного-4 ШАБЛОН 9(4).

02 имя-данного-5 ЩАБЛОН X.

02 имя-данного-6 ШАБЛОН XX.

. Комментарий

г>

і

M ГОСТ 22558—89

ESSAGE DATE

MESSAGE TIME

SYMBOLIC TERMINAL

TEXT LENGTH

END KEY

STATUS KEY

ДАТА СООБЩЕНИЯ

ВРЕМЯ СООБЩЕНИЯ

СИМВОЛИЧЕСКИЙ ТЕРМИНАЛ

ДЛИНА ТЕКСТА

КЛЮЧ КОНЦА

ключ состояния

Если программа обработки сообщений вызывается сис­темой управления сообщениями, то выполнение первого опера­тора RECEIVE (ПОЛУЧИТЬ) для статьи CD (ОК) для ввода- вывода с фразой INITIAL (НАЧАЛЬНОГО) приводит к полу­чению того же сообщения, которое вызвало запуск программы.

Имя-данного-1 имеет формат ТГММДД’ (год, месяц, день). Его значение представляет дату, когда было распознано за­вершение сообщения системой управления сообщениями.

Значение имени-данного-1 обновляется системой управления сообщениями только во время выполнения оператора RECEIVE (ПОЛУЧИТЬ).

Имя-данного-2 имеет формат ’ЧЧММССДД’ (часы, мину­ты, секунды, сотые доли секунды) и его значение представляет вре­мя, когда системой управления сообщениями было распознано за­вершение сообщения.

Значение имени-данного-2 обновляется системой управления сообщениями только во время выполнения оператора RECEIVE (ПОЛУЧИТЬ).

Если программа обработки сообщений вызывается сис­темой обработки сообщений, то символическое имя терминала, являющегося источником сообщения, активирующего эту про­грамму, помещается в имя-данного-3 статьи CD (ОК) для вво­да-вывода с фразой INITIAL (НАЧАЛЬНОГО), если она при­меняется. Это символическое имя должно удовлетворять прави­лам образования системных имен.

Во всех других случаях значением имени-данного-3 статьи CD (ОК) для ввода-вывода с фразой INITIAL (НАЧАЛЬНО­ГО) будут пробелы.

Засылка символического имени или пробелов заканчивается I до выполнения первого оператора раздела процедур.

Если система управления сообщениями пытается вызвать программу, не содержащую фразу INITIAL (НАЧАЛЬНОГО) в статье CD (ОК), результат не определен.

Если фраза INITIAL (НАЧАЛЬНОГО) используется в статье CD (ОК) для ввода-вывода и программа вызывается про­граммой управления сообщениями, то значение имени-данного-3 не должно изменяться программой. Если это значение изменить, то выполнение любого оператора, использующего имя-коммуника- ции-1, будет неуспешным и значением имени-данного-6 будет код, означающий неизвестный источник или адресат (см. табл. 1).

Для статьи СР (ОК) для ввода-вывода | без фразы INITIAL (НАЧАЛЬНОГО) или статьи CD (ОК) для ввода-вы­вода с фразой INITIAL (НАЧАЛЬНОГО), но | когда програм­ма не вызывается программой управления сообщениями, до выпол­нения первого оператора, использующего имя-коммуникации-1, программа должна обеспечить символическое имя источника или адресата в имени-данного-3.

После выполнения первого оператора, использующего имя-ком­муникации-1, значение данного имя-данного-3 не должно изменять­ся программой. Если это значение изменить, то выполнение любо­го оператора, использующего имя-коммуникации-1, будет неус­пешным, и значением имени-данного-6 будет код, означающий не­известный источник или адресат (см. табл. 1).

В качестве значения имени-данного-4 система управления сообщениями указывает число позиций литер, заполненных в ре­зультате выполнения оператора RECEIVE (ПОЛУЧИТЬ).

Во время выполнения оператора SEND (ПОСЛАТЬ) система управления сообщениями рассматривает значение имени-данного-4 как число крайних левых позиций в поле, используемом в операто­ре SEND (ПОСЛАТЬ), из которого надо передавать данные (п. 3.6 настоящей части).

Значение имени-данного-5 устанавливается системой уп­равления сообщениями во время выполнения оператора RECEIVE (ПОЛУЧИТЬ) согласно слёдующим правилам.

Для оператора RECEIVE MESSAGE (ПОЛУЧИТЬ СООБ­ЩЕНИЕ):

если обнаружен конец группы, то значение имени-данного-5 устанавливается равным 3;

если обнаружен конец сообщения, то значение имени-данно­го-5 устанавливается равным 2;

если передается часть сообщения, то значение имени-данно- го-5 устанавливается равным Q.

Для оператора RECEIVE SEGMENT (ПОЛУЧИТЬ СЕГ­МЕНТ):

если обнаружен конец группы, то значение имени-данно-' го-5 устанавливается равным 3;

если обнаружен конец сообщения, то значение имени-дан­ного-5 устанавливается равным 2;

если обнаружен конец сегмента, то значение имени-данно- го-5 устанавливается равным 1;

если передается только часть сообщения, то значение име­ни-данного-5 устанавливается равным 0.

Если одновременно удовлетворяются несколько из перечис­ленных выше условий, то значение имени-данного-5 определяется первым выполненным условием в порядке перечисления.

(34) Значение имени-данного-6 определяет ключ состояния вы­полнения предшествующих операторов | DISABLE (ЗАПРЕ- I ТИТЬ), ENABLE~7PA3PEmHTb), PURGE (ОЧИСТИТЬ), ACCEPT (ПРИНЯТЬ), SEND (ПОСЛАТЬ).

RECEIVE (ПОЛУЧИТЬ)

SEND (ПОСЛАТЬ) для CD (ОК) для ввода-вы­

вода

SEND (ПОСЛАТЬ) для CD (ОК) для вывода

PURGE² (ОЧИСТИТЬ²)

ACCEPT MESSAGE COUNT (ПРИНЯТЬ ЧИСЛО СООБ­

ЩЕНИЙ)

I ENABLE INPUT² (РАЗРЕШИТЬ ВВОД²)

ENABLE INPUT/I-0 ? TERMINAL² (РАЗРЕШИТЬ ВВіОД/ВВОД.ВЫВОД С ТЕРМИНАЛА²)

ENABLE OUTPUT²

(РАЗРЕШИТЬ ВЫВОД²)

DISABLE INPUT-

(ЗАПРЕТИТЬ ВЫВОД²)

DISABLE INPUT/I-0 TERMINAL² (ЗАПРЕ­ТИТЬ ВВОД/ВВОД- ВЫВОД С ТЕРМИ­

НАЛА²)

1

2

3

4

5

6

7

8

9

10

X

X

X

X

х

X

X

X

X

X

X

X

X

X

X

X

X

X

X

X

X

X

DISABLE OUTPUT²

(ЗАПРЕТИТЬ ВЫВОД²)

Значение ключа состояния

Комментарий

И

12

13

X

00

Ошибки не обнаружено. Вы­полнение оператора завершено

10

10

Один или несколько адреса­тов запрещены. Выполнение оператора завершено (см. п. 2.2.6)

Адресат запрещен. Никакие действия не предпринимаются

х

15

Символический источник, од­на или несколько очередей и адресатов запрещены/разре- шены² (см. п. 2.2.6)

X

20

Один или несколько адреса­тов неизвестны. Для извест­ных адресатов действие за­вершается (см. п. 2.2.6)

X

X

—

RECEIVE (ПОЛУЧИТЬ)

X

SEND (ПОСЛАТЬ) для CD (ОК) для ввода-вывода

X

X

w

SEND (ПОСЛАТЬ) для CD (ОК) для вывода

X

л

PURGE² (ОЧИСТИТЬ²)

X

сл

W

ACCEPT MESSAGE COUNT (ПРИНЯТЬ ЧИСЛО СО­ОБЩЕНИИ)

X

X

О)

ENABLE INPUT² (РАЗРЕШИТЬ ВВОД²)

X

X

ENABLE INPUT/I-O

TERMINAL² (РАЗРЕШИТЬ ВВОД/ВВОД-ВЫВОД

С ТЕРМИНАЛА²)

X

X

00

ENABLE OUTPUT² (РАЗРЕШИТЬ ВЫВОД²)

X

X

«э

DISABLE INPUT² (ЗАПРЕТИТЬ ВЫВОД²)

X

X

5

DISABLE INPUT/I-O TERMINAL² (ЗАПРЕТИТЬ ВВОД/ВВОД-ВЫВОД

С ТЕРМИНАЛА²)

X

X

£

DISABLE OUTPUT²

(ЗАПРЕТИТЬ ВЫВОД²'

сл о

о

со о

to

о

С>

Значение ключа состо­яния

м и Ь ft

ёа 35 Я СО

b

Я

маютс

PC P 31 S CP

Пар

маютс

какие

Зна¹ TION PECA

п релщ

а W а 2

Сим

прини:

а

£ ГР

• » о

«

9$ Я О

о

Я о Ґ5 Е Ьа со СР

а CD

ж

EQ

J=a rp S«

S a

Рэи ЧІГО

a

j=j (0 ? a a

8 w

a

чение да COUNT

эинимаю'

S а

а а

волическ

маются

а я 0) я а ГР

а я о

2

§ а

S

о

CD

a

CD

S«

a

s

я a

g

CD я

а а«

ГР а«

■S

Я

ё (Т ЕС

-е* S а

го поля, п

больше

EC CD

Д Ъ

ГО

Я

8 s

2 CP a

a ГР

3

2

3

о a

H a 2 О

ого DESTI (ЧИСЛО

а го

)а Ф К« о ч W 3

источник

со а а

а ГР

а

2 ГР а<

а СР я W to

а о ь а а о

о л

S3

ср

Л

5

a a

5Q

а

"С? СР

0

■§

у

.ta

S

a

a

s

5

г¹?*

а го

ГР

9

Продолжение табл.

RECEIVE (ПОЛУЧИТЬ)

SEND (ПОСЛАТЬ) для CD (ОК) для ввода-вывода

SEND (ПОСЛАТЬ) для CD (ОК) для вывода

PURGE² (ОЧИСТИТЬ²)

ACCEPT MESSAGE COUNT (ПРИНЯТЬ ЧИСЛО СО­

ОБЩЕНИИ)

ENABLE INPUT²

(РАЗРЕШИТЬ ВВОД²)

ENABLE INPUT/I-O TERMINAL² (РАЗРЕШИТЬ ВВОД/ВВОД-ВЫВОД

С ТЕРМИНАЛА²)

ENABLE OUTPUT² (РАЗРЕШИТЬ ВЫВОД²)

1

2

3

4

5

6

7

7

X

X

X

X