Оператор POST_EVENT

Оператор EXECUTE PROCEDURE

Оператор EXIT

Оператор SUSPEND

Оператор SELECT

Оператор SELECT используется в ХП для выдачи единичной строки. К обычному формату SELECT в процедурный оператор добавлено предложение:

INTO:переменная [, переменная … ]

Пример:

…

SELECT AVG(KOLVO), SUM(KOLVO)

FROM RASHOD

WHERE TOVAR =:IN_TOVAR

INTO:AVG_KOLVO,:SUM_KOLVO;

Оператор FOR SELECT … DO

FOR < оператор SELECT >

DO < оператор >;

Оператор SELECT используется в ХП в расширенном синтаксисе с INTO. Для каждой строки полученного результирующего НД выполняется оператор, следующий за словом DO. Этим оператором часто бывает SUSPEND, который приводит к возврату выходных параметров в вызывающее приложение.

Пример:

CREATE PROCEDURE RASHOD_TOVARA (IN_TOVAR VARCHAR(20))

RETURNS (OUT_DAT DATE, OUT_POKUP VARCHAR(20),

OUT_KOLVO INTEGER) AS

BEGIN

FOR SELECT DAT_RASH, POKUP, KOLVO FROM RASHOD

WHERE TOVAR =:IN_TOVAR

INTO:OUT_DAT,:OUT_POKUP,:OUT_KOLVO

DO

SUSPEND;

END

Оператор SUSPEND передает в вызывающее приложение значения результирующих параметров (перечисленных после слова RETURNS в описании функции), имеющие место на момент выполнения SUSPEND. Когда от оператора SELECT вызывающего приложения приходит запрос на следующее значение выходных параметров, выполнение хранимой процедуры возобновляется.

Пример:

CREATE PROCEDURE POK_LIST (IN_TOVAR VARCHAR(20))

RETURNS (POK VARCHAR(20)) AS

DECLARE VARIABLE AVG_KOLVO INTEGER;

BEGIN

SELECT AVG(KOLVO) FROM RASHOD

WHERE TOVAR =:IN_TOVAR

INTO:AVG_KOLVO;

FOR SELECT POKUP FROM RASHOD

WHERE KOLVO >=:AVG_KOLVO

INTO:POK

DO

BEGIN

IF (:POK IS NULL) THEN

POK = “Покупатель не указан”;

SUSPEND;

END

END

Оператор WHILE … DO

WHILE (<условие>) DO

< оператор >;

В цикле проверяется выполнение условия. Если истинно – выполняется оператор. Цикл продолжается пока условие не станет ложным.

Пример:

CREATE PROCEDURE SUM_0_N (N INTEGER)

RETURNS (S INTEGER) AS

DECLARE VARIABLE TMP INTEGER;

BEGIN

S = 0;

TMP=1;

WHILE (TMP <= N) DO

BEGIN

S = S+TMP;

TM = TPM + 1;

END

END

Оператор EXIT инициирует прекращение выполнения процедуры и выход в вызывающее приложение.

Пример:

CREATE PROCEDURE MAX_VALUE (А INTEGER, B INTEGER)

RETURNS (M_V INTEGER) AS

DECLARE VARIABLE TMP INTEGER;

BEGIN

IF (:A IS NULL OR:B IS NULL) THEN EXIT;

IF (:A >:B) THEN M_V =:A;

ELSE M_V =:B;

END

Оператор вызова другой хранимой процедуры:

EXECUTE PROCEDURE имя [параметр [, параметр … ] ];

[ RETURNING_VALUES параметр [, параметр … ] ];

Пример:

…

EXECUTE PROCEDURE AVG_KOLVO (:IN_TOVAR)

RETURNING_VALUE:AVG_KOLVO_TOVAR;

…

Оператор применяется для посылки сервером клиентским приложениям сообщения о наступлении какой-либо ситуации, связанной с именем события.

POST_EVENT “Имя события”;

После выполнения оператора наступает событие с указанным именем. Сервер БД уведомляет о наступлении этого события все активные приложения, зарегистрировавшие свой интерес к нему с помощью оператора EVENT INIT.

Обмен событиями между сервером и приложениями может широко использоваться. Например, с его помощью можно создать клиентское приложение, которое будет видеть все изменения, вносимые в БД другими пользователями. Для этого нужно, чтобы в соответствующий момент возбуждалось заданное событие. Получив сообщение, программа-наблюдатель отображает внесенные изменения.

Дата добавления: 2014-12-23