AS BEGIN

INSERT INTO Test_Table VALUES(ParIn); ENDTestProc;

END TP;

CREATE OR REPLACE PROCEDUREProc_Dep (ParIn IN VARCHAR2) AS

BEGIN TP.TestProc (’pamйter ’ || ParIn); END Proc_Dep;

User_Objects – таблица словаря БД.

SELECT Object_Name, Object_Type, Status FROM User_Objects

WHERE Object_Name IN (’TP’, ’Proc_Dep’, ’Test_Table’);

OBJECT_NAME OBJECT_TYPE STATUS

--------------------- -------------------- -----------

TEST_TABLE TABLE VALID

PROC_DEP PROCEDURE VALID

TP PACKAGE VALID

TP PACKAGE BODY VALID

DROP TABLE Test_Table;

SELECT Object_Name, Object_Type, Status FROM User_Objects

WHERE Object_NameIN (’TestPackage’, ’Proc_Dep’, ’Test_Table’);

OBJECT_NAME OBJECT_TYPE STATUS

--------------------- -------------------- -----------

PROC_DEP PROCEDURE VALID

TP PACKAGE VALID

TP PACKAGE BODY INVALID

* Обработка исключений EXCEPTION

CURSOR_ALREDY_OPEN, DUP_VAL_ON_INDEX (в INSERT , UPDATE; INVALID_CURSOR (OPEN, FETCH, CLOSE), INVALID_NUMBER, LOGIN_DENIED –NO_DATA_FOUND ( SELECT), NOT_LOGGED_IN (операция с БД без подключения), PROGRAM_ERROR, STORAGE_ERROR, TIMEOUT_ON_RESOURSE, TOO_MANY_ROWS ( SELECT ... INTO), VALUE_ERROR, ZERO_DEVIDE

DECLARE ... out_status CHAR2(30); return_kod INTEGER;

BEGIN ...

EXCEPTION WHEN NO_DATA_FOUND THENout_status:= ’Не хватает данных’; return_kod:= 5; WHEN TOO_MANY_ROWS THEN out_status:= ’Больше, чем 1 строка’; return_kod:= 6; END;

Описание события пользователя:

<имя_события> EXCEPTION

Активизация события пользователя:

RAISE <Ошибка_ФИО>

DECLARE... sobit EXCEPTION;

BEGIN IF x>9999THEN RAISEsobit; END IF;

EXCEPTION

WHENsobitTHENreturn_code:= 7; Out_status :=’ x – ошибочно!’;

END;

DECLARE ....