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

В идеальном случае все программные сегменты, имеющие номера-сегментов от 0 до 49, специфицируются как постоянные сегменты. Однако, когда доступная память недостаточна для того, чтобы разместить все постоянные сегменты плюс макси­мальный перекрываемый сегмент, становится необходимым сок­ратить число постоянных сегментов. Фраза SEGMENT-LIMIT (ГРАНИЦА СЕГМЕНТОВ) дает пользователю средство, кото­рым он может уменьшить число постоянных сегментов в своей программе с сохранением логических свойств сегментов фикси­рованной части (номера-сегментов от 0 до 49).

SEGMENT-LIMIT IS номер-сегмента

Номер-сегмента должен быть целым, принимающим значе­ния от 0 до 49.

1. Если задана фраза SEGMENT-LIMIT (ГРАНИЦА СЕГ­МЕНТОВ), то в качестве постоянных сегментов объектной про­граммы рассматриваются только сегменты, имеющие номера от О до (но не включая) номера, специфицированного фразой SEGMENT-LIMIT (ГРАНИЦА СЕГМЕНТОВ).

2. Сегменты, имеющие номера от номера, специфицирован­ного фразой SEGMENT-LIMIT (ГРАНИЦА СЕГМЕНТОВ), до 49, рассматриваются как перекрываемые фиксированные сег­менты.

3. Если фраза SEGMENT-LIMIT (ГРАНИЦА СЕГМЕН­ТОВ) опущена, все сегменты с номерами-сегментов от 0 до 49 будут рассматриваться как постоянные сегменты объектной про­граммы.

‘ 3. РАЗДЕЛ ПРОЦЕДУР В МОДУЛЕ СЕГМЕНТАЦИИ

При использовании модуля сегментации в исходном Кобол-про- /рамме раздел процедур содержит секции с номерами сегментов.

Ниже приводится общий формат раздела процедур, в котором задаются секции и номера сегментов.

PROCEDURE DIVISION.

[DECLARATIVES.

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

Оператор USE.

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

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

END DECLARATIVES.

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

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

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

РАЗДЕЛ ПРОЦЕДУР.

[ДЕКЛАРАТЙВЫ.

{СЕКЦИЯ имя-секции [номер-сегмента] .

Оператор ИСПОЛЬЗОВАТЬ.

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

X [предложение] ... ]КОНЕЦ ДЕКЛАРАТИВ.

{СЕКЦИЯ имя-секции [номер-сегмента] .

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

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

Классификация секций выполняется с помощью системы номе­ров сегментов. Номер сегмента включается в заголовок секции.

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

СЕКЦИЯ имя-секции [номер-сегмента]^;.

1. Номер-сегмента — целое, принимающее значения от 0 до 99.

2. Если номер-сегмента в заголовке секции опущен, то по умолчанию он предполагается равным 0.

3. Секции декларатив должны иметь номера-сегментов, мень­шие 50.

1. Все секции, имеющие один и тот же номер-сегмента, сос­тавляют единый программный сегмент. В уровне 1 все секции, имеющие один и тот же номер-сегмента, должны быть смежными.

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

2. Сегменты с номерами-сегментов от 0 до 49 принадлежат фиксированной части программы. На уровне 1 все секции с номе­рами-сегментов от 0 до 49 должны быть в исходной программе смежны.

3. Сегменты с номерами-сегментов от 50 до 99 — независи­мые сегменты.

При использовании сегментации на операторы ALTER (ИЗМЕ­НИТЬ), PERFORM (ВЫПОЛНИТЬ), MERGE (СЛИТЬ) и SORT (СОРТИРОВАТЬ) накладываются следующие ограничения.

Оператор GO ТО (ПЕРЕЙТИ) в секции с номером сегмента, большим или равным 50, не должен быть объектом оператора ALTER (ИЗМЕНИТЬ) в секции с другим номером сегмента.

Все другие использования оператора ALTER (ИЗМЕНИТЬ) допустимы и выполняются даже в том случае, когда оператор GO ТО (ПЕРЕЙТИ), на который ссылается оператор ALTER (ИЗМЕ­НИТЬ), находится в фиксированном перекрываемом сегменте.

Оператор PERFORM (ВЫПОЛНИТЬ), указанный в секции, не принадлежащей независимому сегменту, может иметь в своей об­ласти действия кроме декларативных секций только одну из следу' ющих процедур:

1. секции и (или) параграфы, полностью содержащиеся в од­ном или более сегментах, не являющихся независимыми;

2. секции и (или) параграфы, полностью содержащиеся в од­ном независимом сегменте.

Оператор PERFORM (ВЫПОЛНИТЬ), указанный в независи­мом сегменте, может иметь в своей области действия кроме декла­ративных секций только одну из следующих процедур:

1. секции и (или) параграфы, полностью содержащиеся в од­ном пли более сегментах, не являющихся независимыми;

2. секции и (или) параграфы, полностью содержащиеся в том же независимом сегменте, что и рассматриваемый оператор PERFORM (ВЫПОЛНИТЬ).

Если оператор MERGE (СЛИТЬ) появляется в секции, не при­надлежащей независимому сегменту, то процедура вывода, указан­ная в операторе MERGE (СЛИТЬ) должна содержаться:

1. полностью внутри сегментов, не являющихся независимы­ми, или

2. целиком содержаться в одном независимом сегменте.

Если оператор MERGE (СЛИТЬ) появляется в независимом сегменте, то процедура вывода, на которую ссылается оператор MERGE (СЛИТЬ), должна содержаться:

3. полностью внутри сегментов, не являющихся независимы­ми, или

4. полностью внутри того же независимого сегмента, в кото­ром находится оператор MERGE (СЛИТЬ).

Если оператор SORT (СОРТИРОВАТЬ) появляется в секции, не принадлежащей независимому сегменту, то процедура ввода и процедура вывода, на которую ссылается оператор SORT (СОР­ТИРОВАТЬ), должны появляться:

1. полностью внутри сегментов, не являющихся независимы­ми, или

2. ) целиком содержаться в одном независимом сегменте.

Если оператор SORT (СОРТИРОВАТЬ) указан в независимом сегменте, то процедура ввода и процедура вывода, на которые ссы­лается оператор SORT (СОРТИРОВАТЬ), должны содержаться:

1. полностью внутри сегментов, не являющихся независимы­ми, или

полностью внутри того же независимого сегмента, в кото­ром находится оператор SORT (СОРТИРОВАТЬ).Часть 17. ПРИЛОЖЕНИЯ

ПРИЛОЖЕНИЕ I

Справочное

ОТЛИЧИЯ МЕЖДУ ПРЕДЫДУЩИМ И НАСТОЯЩИМ СТАНДАРТОМ

1. Перечень отличий

Приложение содержит перечень всех элементов ГОСТ 22558 и настоящего стандарта. Элементы упорядочены соответственно разделам Кобола.

Литера «—» в столбце обозначает отсутствие указанного элемента. Наличие элемента определяется трехбуквенным обозначением модуля согласно следую­щей таблице.

Уровень, на котором встречается элемент в модуле, указан цифрой, пред­шествующей трехбуквенному сокращению имени модуля. Например, 2 ЯДР ука­зывает, что элемент принадлежит второму уровню ядра, а 1 ИПД — что элемент принадлежит первому уровню модуля индексного ввода-вывода. Литера +, сле­дующая за сокращением имспи модуля, обозначает, что элемент является уста­ревшим элементом в данной редакции стандарта Кобола и будет удален в сле­дующей редакции.

1.1. Перечень отличий в понятиях языка