Страница 69: ГОСТ 22558-89. Язык программирования КОБОЛ (74592)

д. Если указатель позиции файла был установлен преды­дущим оператором READ (ЧИТАТЬ) и текущий ключ ссылки допускает дублирование, выбирается первая запись в файле, значение ключа которой либо равно указателю позиции файла и логическая позиция которой во множестве дубликатов следует сразу после записи, которая стала доступной благодаря преды­дущему оператору READ (ЧИТАТЬ), либо значение ключа ко­торой больше чем указатель позиции файла.

Если найдена запись, удовлетворяющая вышеприведенным пра­вилам, она становится доступной в области записи, связанной с именем-файла-1.

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

Если запись сделалась доступной, указателю позиции файла приписывается значение текущего ключа ссылки записи, ставшей доступной.

5. Функционирование оператора READ (ЧИТАТЬ) не зависит от метода, используемого для согласования времени доступа со временем обработки; запись доступна объектной программе до выполнения повелительного-оператора-2 или повелительного-опе- ратора-4, если они указаны, или до выполнения любого.оператора, следующего за оператором READ (ЧИТАТЬ), если ни повелитель- ный-оператор-2, ни повелительный-оператор-4 не указаны.

6. Когда логические записи описаны более чем одной статьей описания записи, эти записи автоматически используют одну и ту же область памяти; это эквивалентно неявному переопределению области. По завершении оператора READ (ЧИТАТЬ) значения всех данных, находящихся вне диапазона текущей записи данных, не определены.

7. Фраза INTO (В) может быть указана в операторе READ (ЧИТАТЬ), если:

1. только одно описание записи подчиняется статье описания файла;

2. все имена-записей, связанные с именем-файла-1, и данное, на которое ссылается идентификатор-1, описывают групповое дан­ное или элементарное буквенно-цифровое данное.

(8) Результат выполнения оператора READ (ЧИТАТЬ) с фра­зой INTO (В) эквивалентен применению следующих правил в ука­занном порядке:

1. выполняется тот же оператор READ (ЧИТАТЬ) без фразы INTO (В);

2. текущая запись пересылается из области записи в область, указываемую идентификатором-1, в соответствии с правилами для оператора MOVE (ПОМЕСТИТЬ) без фразы CORRESPON­DING (СООТВЕТСТВЕННО). Размер текущей записи определя­ется: правилами, указанными для фразы RECORD (В ЗАПИСИ). Если статья описания файла содержит фразу RECORD IS VARYING (В ЗАПИСИ ПЕРЕМЕННОЕ ЧИСЛО ЛИТЕР), не­явная пересылка является групповой. | Неявный оператор MOVE (ПОМЕСТИТЬ) не выполняется, если выполнение оператора READ (ЧИТАТЬ) было неуспешным. Индексы, связанные с иден­тификатором-1, вычисляются после того, к&к запись была прочита­на и непосредственно перед ее пересылкой в данное. Запись дос­тупна в области записи и в данном, на которое ссылается иденти­фикатор-1.

9. Если во время выполнения оператора READ (ЧИТАТЬ) формата 2 указатель позиции файла указывает, что нет необя­зательного входного файла, возникает условие ошибки ключа, а выполнение оператора READ (ЧИТАТЬ) является неуспешным (см. ч. 8, п. 1.3.5).

10. При использовании формата 1 оператора READ (ЧИ­ТАТЬ), если указатель позиции файла показывает, что не сущест- вует последующей логической записи, [ или что необязательный входной файл отсутствует, | имеет место в соответствии с указан­ной последовательностью следующее:

1. значение, полученное по указателю позиции файла, помеща­ется в состояние ввода-вывода, соответствующее имени-файла-1, и указывает на условие «в конце» (см. п. 1.3.4 настоящей части);

2. если в операторе, вызвавшем условие, задана фраза AT END (В КОНЦЕ), управление передается повелительному-оператору-1 фразы AT END (В КОНЦЕ).

Никакая процедура^ USE AFTER STANDARD EXCEPTION (ИСПОЛЬЗОВАТЬ ПОСЛЕ СТАНДАРТНОЙ ПРОЦЕДУРЫ ОШИБКИ), связанная с именем-файла-1 не выполняется;

3. если фраза AT END (В КОНЦЕ) не задана, процедура USE AFTER STANDARD EXCEPTION (ИСПОЛЬЗОВАТЬ ПОСЛЕ СТАНДАРТНОЙ ПРОЦЕДУРЫ ОШИБКИ) должна быть связа­на с именем-файла-1, и эта процедура выполняется. Возврат из этой процедуры осуществляется к следующему после оператора READ (ЧИТАТЬ) выполнимому оператору.

Если возникает условие «в конце», выполнение оператора READ (ЧИТАТЬ) неуспешно.

11. Если во время выполнения оператора READ (ЧИТАТЬ) не возникают ни условие конца, ни условие ошибки ключа, фразы AT END (В КОНЦЕ) и INVALID KEY (ПРИ ОШИБКЕ КЛЮЧА) игнорируются, если они указаны, и выполняются следующие дей­ствия:

1. устанавливается значение указателя позиции файла и об­новляется значение состояния ввода-вывода, связанного с именем- файла-1;

2. если возникает условие особой ситуации, не являющееся ни условием конца, ни условием ошибки ключа, управление передает­ся процедуре USE AFTER EXCEPTION (ИСПОЛЬЗОВАТЬ ПОС­ЛЕ ПРОЦЕДУРЫ ОШИБКИ) согласно правилам для оператора USE (ИСПОЛЬЗОВАТЬ), применимого к имени-файла-1 (п. 4.8 настоящей части);

3. если условие особой ситуации не существует, запись стано­вится доступной в области записи и выполняются любые неявные пересылки, предопределенные фразой INTO (В). Управление пе­редается в точку выхода оператора READ (ЧИТАТЬ) или повели- тельному-оператору-2, если он указан. В последнем случае выпол­нение продолжается согласно правилам для операторов, указанных в повелительном-операторе-2. Если выполняется ветвление про­цедуры или условный оператор, вызывающие явную передачу уп­равления, оно передается в соответствии с правилами для этих операторов; в противном случае после завершения выполнения по- велительного-оператора-2 управление передается в точку выхода оператора READ (ЧИТАТЬ).

11. После неуспешного выполнения оператора READ (ЧИ­ТАТЬ) содержимое соответствующей области записи не определе­но, ключ ссылки для индексного файла не определен, а указатель позиции файла показывает, что правильная следующая запись не установлена.

12. Для индексного файла, для которого задан динамиче­ский доступ, оператор READ (ЧИТАТЬ) формата 1 вызывает считывание следующей логической записи из этого файла.

13. Для индексного файла с последовательным доступом записи, имеющие одно и то же дублирующееся значение допол­нительного ключа, являющегося ключом ссылки, становятся доступными в том порядке, в котором они передавались при вы­полнении операторов WRITE (ПИСАТЬ) или REWRITE (ОБ­НОВИТЬ), которые привели к возникновению этих дублирую­щихся значений.

Для индексного файла, если фраза KEY (КЛЮЧ) зада­на в формате 2 оператора READ (ЧИТАТЬ), в качестве ключа ссылки при извлечении записи учреждается имя-данного-1, ука­занное во фразе KEY (КЛЮЧ). Для файла с динамическим дос­тупом этот же ключ ссылки используется для всех последующих выполнений операторов HEAD (ЧИТАТЬ) формата 1 до тех пор, пока для этого файла не будет учрежден другой ключ ссылки.

11. Для индексного файла , если в операторе READ (ЧИ­ТАТЬ) формата'2 не указан вариант KEY (КЛЮЧ),/ в качестве ключа ссылки прй извлечении записи учреждается основной ключ записи. [ Для файла с динамическим доступом этот же ключ ссыл­ки используется для всех последующих выполнений оператора READ (ЧИТАТЬ) формата 1 до тех пор, пока для этого файла не будет учрежден другой ключ ссылки.

12. Выполнение оператора READ формата 2 устанавливает указатель позиции файла равным значению ключа ссылки. Это значение сравнивается со значением соответствующего данного в записях файла до тех пор, пока не будет найдена первая запись с равным значением.

При использовании дополнительного ключа в случае дуб­лирующихся значений первой найденной записью будет первая запись в последовательности дубликатов, которые были переда­ны системе управления массовой памятью. | Найденная таким образом запись становится доступной в области записи, соответст­вующей имени-файла-1. Если таким образом не удается найти ни одной записи, возникает условие ошибки ключа, и выполнение опе­ратора READ (ЧИТАТЬ) считается неуспешным (см. п. 1.3.5 нас­тоящей части).

11. Если число позиций литер в прочитанной записи меньше минимального размера, указанного статьями описания записей для имени-файла-1, участок области записи, находящийся справа от последней прочитанной литеры, не определен. Если число пози­ций литер в прочитанной записи больше максимального размера, указанного статьями описания записей для имени-файла-1, запись усекается справа до максимального размера. В обоих случаях вы­полнение оператора. READ (ЧИТАТЬ) считается успешным, а сос­тояние ввода-вывода указывает, что возникло несоответствие дли­ны записи (см. п. 1.3.4 настоящей части).

12. Фраза END-READ (КОНЕЦ-ЧИТАТЬ) ограничивает об­ласть действия оператора READ (ЧИТАТЬ) (см. ч. 4, п. 6.4.3).

4.6. Оператор REWRITE (ОБНОВИТЬ)

Оператор REWRITE (ОБНОВИТЬ) логически заменяет запись в файле на устройстве массовой памяти.

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

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

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

ОБНОВИТЬ имя-записи-1 [ИЗ ПОЛЯ идентификатор-1]

[ПРИ ОШИБКЕ КЛЮЧА повелительный-оператор-1] [БЕЗ ОШИБКИ КЛЮЧА повелительный-оператор-2] [КОНЕЦ-ОБНОВИТЬ]

1. Ймя-записи-1 и идентификатор-1 не должны относиться к одной и той же области памяти.

2. Имя-записи-1 — это имя логической записи в секции фай­лов раздела данных. Оно может быть уточнено.

3. Если для соответствующего имени-файла не указана про­цедура USE AFTER STANDARD EXCEPTION (ИСПОЛЬЗОВАТЬ ПОСЛЕ СТАНДАРТНОЙ ПРОЦЕДУРЫ ОШИБКИ), фразы INVALID KEY (ПРИ ОШИБКЕ КЛЮЧА) и NOT INVALID KEY (БЕЗ ОШИБКИ КЛЮЧА) должны указываться.

4.6;4. Общие правила

1. Файл, связанный с именем-записи-1, должен быть файлом массовой памяти и должен быть открыт как входной-выходной во время выполнения этого оператора (см. п. 4.4 настоящей части).

2. Для файлов с последовательным, доступом последним опе­ратором ввода-вывода для соответствующего файла перед выпол­нением оператора REWRITE (ОБНОВИТЬ) должен быть успешно выполненный оператор READ (ЧИТАТЬ). СУМП логически заме­няет запись, которая была извлечена оператором READ (ЧИТАТЬ).

3. На. уровне 1 число позиций литер в записи, представленной именем-записи-1, должно быть равно числу позиций литер в обнов­ляемой записи. На уровне 2 число позиций литер в записи, пред­ставленной именем-записи-1, может совпадать, а может и не сов- падать с числом позиций литер в обновляемой записи.

4. Логическая запись, включенная в файл при успешном вы­полнении оператора REWRITE (ОБНОВИТЬ), становится недос­тупной в области записи , за исключением случая, когда имя- файла, связанное с именем-записи-1, описано во фразе SAME RECORD AREA (ОБЩАЯ ОБЛАСТЬ ЗАПИСИ). Логическая запись доступна программе и как запись файла, связанного с именем-записи-1, и как запись других файлов, указанных в той же фразе SAME RECORD AREA (ОБЩАЯ ОБЛАСТЬ ЗАПИ­СИ), что и соответствующий выходной файл.

5. Выполнение оператора REWRITE (ОБНОВИТЬ) с фразой FROM (ИЗ ПОЛЯ) эквивалентно выполнению следующих опера­торов в указанном порядке:

1. оператор

MOVE идентификатор-1 ТО имя-записи-1.

ПОМЕСТИТЬ идентификатор-1 В имя-записи-1 соответственно 'правилам, описанным для оператора MOVE (ПОМЕСТИТЬ);

2. тот же оператор REWRITE (ОБНОВИТЬ) без фразы FROM (ИЗ ПОЛЯ).

6. После завершения выполнения оператора REWRITE (ОБ­НОВИТЬ) информация в области, указанной идентификатором-1, остается доступной, Даже если информация в области, указанной именем-записи-1, не является доступной), за исключением слу- I чая, определенного фразой SAME RECORD AREA (ОБЩАЯ [ОБЛАСТЬ ЗАПИСИ)'^-;

7. Выполнение оператора REWRITE (ОБНОВИТЬ) не влияет на указатель позиции файла.

8. Выполнение оператора REWRITE (ОБНОВИТЬ) вызыва- ■ет обновление состояния ввода-вывода для файла, связанного с именем-записи-1 (см. п. 1.3.4 настоящей части).

9. При выполнении оператора REWRITE (ОБНОВИТЬ) логи­ческая запись передается операционной системе.

10. Передача управления после успешного или неуспешного выполнения оператора REWRITE (ОБНОВИТЬ) зависит от нали­чия или отсутствия в операторе REWRITE (ОБНОВИТЬ) необя­зательных фраз INVALID KEY (ПРИ ОШИБКЕ КЛЮЧА) и NOT INVALID KEY (БЕЗ ОШИБКИ КЛЮЧА) (см. п. 1.3.5 настоящей части).

11. Фраза END-REWRITE (КОНЕЦ-ОБНОВИТЬ) ограничи­вает область действия оператора REWRITE (ОБНОВИТЬ) (см. ч. 4, in. 6.4.3).

12. Число позиций литер в записи, представленной именем- записи-1, должно быть не больше, чем наибольшее, и не меньше, чем наименьшее число позиций литер, определенное фразой RE­CORD IS VARYING (В ЗАПИСИ ПЕРЕМЕННОЕ ЧИСЛО ЛИ­ТЕР), относящейся к имени-файла, связанного с именем-запи­си-1. В обоих случаях выполнение оператора REWRITE (ОБ­НОВИТЬ) является неуспешным, обновление не происходит, со­держимое области записи не изменяется, а состояние ввода-вы­вода файла, связанного с именем-записи-1, становится равным значению, указывающему на причину возникновения ситуации (см. п. 1.3.4 настоящей части).

Для файла с последовательным доступом запись, которая должна быть заменена, определяется значением основного ключа. При выполнении оператора REWRITE (ОБНОВИТЬ), значение основного ключа заменяющей записи должно быть равно значению •основного ключа последней прочитанной из этого файла записи

6. .Для файла с произвольным или динамическим доступом запись, подлежащая замене, указывается значением основного- ключа записи.

7. Выполнение оператора REWRITE (ОБНОВИТЬ) для записи, которая имеет дополнительный ключ, производится сле­дующим образом:

1. если значение конкретного дополнительного ключа не из­менилось, порядок чтения в случае, когда этот ключ является ключом ссылки, остается неизменным;

2. если значение конкретного дополнительного ключа изме­нилось, последующий порядок считывания этой записи может измениться, когда этот конкретный дополнительный ключ явля­ется ключом ссылки. Если допускается дублирование значений ключа, запись логически размещается последней среди множе­ства записей дубликатов, содержащих такое же значение допол­нительного ключа записи, которое было помещено в запись.