Error handler - это имя того места в программе, в которое будет перенесено выполнение программы, если произошла ошибка (GOTO может состоять из одного или двух слов). Такое место определяется любым способом, соответствующим для главного языка, например, с помощью метки в Паскале или имени раздела или имени параграфа в КОБОЛЕ (в дальнейшем мы будем использовать термин - метка). Метка более удачно идентифицирует стандартную процедуру распространяемую проектировщиком для включения во все программы.

CONTINUE не делает чего-то специального для значения SQLCODE. Оно также является значением по умолчанию, если вы не используете команду WHENEVER, определяющую значение SQLCODE. Однако, эти неактивные определения дают вам возможность переключаться вперед и назад, выполняя и не выполняя действия, в различных точках (метках) вашей программы. Например, если ваша программа включает в себя несколько команд INSERT, использующих запросы, которые реально должны производить значения, вы могли бы напечатать специальное сообщение или сделать что-то такое, чтопояснялобы, что запросы возвращаются пустыми и никакие значения не были вставлены. Вэтомслучае, вы можете ввести следующее:

EXEC SQL WHENEVER NOT FOUND GOTO No rows;

No rows - это метка в некотором коде, содержащем определенное действие. С другой стороны, если вам нужно сделать выборку в программе позже, вы можете ввести следующее в этой точке:

EXEC SQL WHENEVER NOT FOUND CONTINUE;

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

МОДИФИЦИРОВАНИЕ КУРСОРОВ

Курсоры могут также быть использованы, чтобы выбирать группу строк из таблицы, которые могут быть затем модифицированы или удалены одна за другой. Это дает вам возможность обходить некоторые ограничения предикатов, используемых в командах UPDATE и DELETE. Вы можете ссылаться на таблицу, задействованную в предикате запроса курсора или любом из его подзапросов, которые вы не можете выполнить в предикатах самих этих команд. Как подчеркнуто в Главе 16, стандарт SQL отклоняет попытку удалить всех пользователей с рейтингом ниже среднего, всле-дующей форме:

EXEC SQL DELETE FROM Customers

WHERE rating < (SELECT AVG (rating) FROM Customers);

Однако, вы можете получить тот же эффект, используя запрос для выбора соответствующих строк, запомнив их в курсоре, ивыполнив DELETE с использованием курсора. Сначала вы должны обьявить курсор:

EXEC SQL DECLARE Belowavg CURSOR FOR

SELECT *

FROM Customers

WHERE rating < (SELECT AVG (rating) FROM Customers);

Затемвыдолжнысоздатьцикл, чтобы удалить всех заказчиков выбранных курсором:

EXEC SQL WHENEVER SQLERROR GOTO Error handler;

EXEC SQL OPEN CURSOR Belowavg;

while not SOLCODE = 100 do begin

EXEC SOL FETCH Belowavg INTO :a, :b, :c, :d, :e; EXEC SOL DELETE FROM Customers

WHERE CURRENT OF Belowavg; end;

EXEC SOL CLOSE CURSOR Belowavg;

Предложение WHERE CURRENT OF означает, что DELETE применяется к строке, которая в настоящее время выбрана курсором. Здесь подразумевается, что и курсор, и команда DELETE ссылаются на одну и ту же таблицу, и следовательно, что запрос в курсоре - этонеобьединение.

Курсор должен также быть модифицируемым. Являясь модифицируемым, курсор должен удовлетворять тем же условиям что и представления (см. Главу 21). Кроме того, ORDER BY и UNION, которые не разрешены в представлениях, в курсорах - разрешаются, но предохраняют курсор от модифицируемости. Обратите внимание в вышеупомянутом примере, что мы должны выбирать строки из курсора в набор переменных, даже если мы не собирались использовать эти переменные. Этого требует синтаксис команды FETCH. UPDATE работает так же.

Вы можете увеличить значение комиссионных всем продавцам, которые имеют заказчиков с оценкой=300, следующим способом. Сначала вы обьявляете курсор:

EXEC SOL DECLARE CURSOR High Cust AS SELECT *

FROM Salespeople

WHERE snum IN (SELECT snum

FROM Customers

WHERE rating = 300);

Затем вы выполняете модификации в цикле:

EXEC SQL OPEN CURSOR High cust; while SQLCODE=0do begin

EXEC SOL FETCH High cust

INTO :id num, :salesperson, :loc, :comm; EXEC SQL UPDATE Salespeople

SET comm = comm + .01

WHERE CURRENT OF High cust; end;

EXEC SQL CLOSE CURSOR High cust;

Обратите внимание: что некоторые реализации требуют, чтобывыуказывалив определении курсора, что курсор будет использоваться для выполнения команды UPDATE на определенных столбцах. Это делается с помощью заключительной фразы определения курсора - FOR UPDATE <column list>. Чтобы обьявить курсор High cust таким способом, так чтобы вы могли модифицировать командой UPDATE столбец comm, вы должны ввести следующее предложение:

EXEC SQL DECLARE CURSOR High Cust AS SELECT *

FROM Salespeople

WHERE snum IN (SELECT snum

FROM Customers

WHERE rating = 300) FOR UPDATE OF comm;

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

ПЕРЕМЕННАЯ INDICATOR

Пустые (NULLS) значения - это специальные маркеры определяемые самой SQL. Они не могут помещаться в главные переменные. Попытка вставить NULL значения в главнуюпеременную будет некорректна, так как главные языки не поддерживают NULL значений в SQL, по определению. Хотя результат при попытке вставить NULL значение в главную переменную определяет проектировщик, этот результат не должен ротиворечить теории базы данных, и поэтому обязан произвести ошибку: код SQLCODE в виде отрицательного числа, и вызвать подпрограмму управления ошибкой. Естественно вам нужно этого избежать. Поэтому, вы можете выбрать NULL значения с допустимыми значениями, не приводящими к разрушению вашей программы. Даже если программа и не разрушится, значения в главных переменных станут неправильными, потому что они не могут иметь NULL значений. Альтернативным методом предоставляемым для этой ситуацией является - функция переменной indicator (указатель).

Переменная indicator - обьявленная в разделе объявлений SQL напоминает другие переменные. Она может иметь тип главного языка который соответствует числовому типу в SQL. Всякий раз, когда вы выполняете операцию, которая должна поместить NULL значение в переменную главного языка, вы должны использовать переменную indicator, для надежности. Вы помещаете переменную indicator в команду SQL непосредственно после переменной главного языка которую вы хотите защитить, без каких-либо пробелов или запятых, хотя вы и можете, при желании, вставить слово

INDICATOR.

Переменной indicator в команде, изначально присваивается значение 0. Однако, если производится значение NULL, переменная indicator становится равной отрицательному числу. Вы можете проверить значение переменной indicator, чтобы узнать, было ли найдено значение NULL. Давайте предположим, что поля city и comm, таблицы Продавцов, не имеют ограничения NOT NULL, и что мы объявили вразделе обьяв-лений SQL, две ПАСКАЛЬевские переменные целого типа,i a и i b.

(Нет ничего такого в разделе обьявлений, что могло бы представить их как переменные indicator. Они станут переменными indicator, когда будут использоваться как переменные indicator.)

Имеется одна возможность:

EXEC SQL OPEN CURSOR Highcust;

while SQLCODE=Odo

begin

EXEC SQL FETCH High cust

INTO :id num, :salesperson, :loc, :i a, :commINDlCATOR, :i b; If i a >= 0 and i b >= 0 then {no NULLs produced} begin

EXEC SQL UPDATE Salespeople

SET comm = comm + .01

WHERE CURRENT OF Hlgh cust end {then} else {one or both NULL} begin

If i a < 0 then writeln(salesperson , id num,

has no city); If i b < 0 then writeln(salesperson , id num,

has no commission)

end {else} end; {while} EXEC SQL CLOSE CURSOR High cust;

Как вы видите, мы включили, ключевое слово INDICATOR в одном случае, иис-ключили его в другом случае, чтобы показать, что эффект будет одинаковым в любом