出现如下匿名块:
DECLARE
tab_nameVARCHAR2(32);
tab_owner VARCHAR2(32);
syn_nameVARCHAR2(32);
syn_owner VARCHAR2(32);
obj_t VARCHAR2(16);
depth NUMBER;
max_depth NUMBER;
curr_schema VARCHAR2(32);
BEGIN
depth := 0;
max_depth := 10;
tab_name:= :1;
tab_owner := :2;
SELECT SYS_CONTEXT('USERENV', 'CURRENT_SCHEMA')
into curr_schema
FROM DUAL;
IF (tab_owner IS NULL) THEN
tab_owner := curr_schema;
END IF;
LOOP
BEGIN
select ot
into obj_t
FROM (select object_type ot