Добрый день.
Необходимо сделать проверку на существование произвольной процедуры, которая будет дергаться через динамический SQL
Сейчас делаю примерно следующее
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
function isPrcExist(prc_name varchar2) return integer
is
s c_pkgstring.StrBufType;
s1 varchar2(50);
s2 varchar2(50);
s3 varchar2(50);
res int;
begin
if prc_name is null then
return 0;
end if;
s:= c_pkgstring.Split(upper(trim(prc_name)),'.');
s3 := s(s.last);
if s.count = 1 then
/*Проверка, если процедура указана как MY_PROC*/
select sign(count(1))
into res
from all_procedures
where object_name = s3
and object_type in ('PROCEDURE','FUNCTION');
elsif s.count = 2 then
/*Проверка, если процедура указана как MY_PACKAGE.MY_PROC*/
s2:= s(1);
select sign(count(1))
into res
from all_procedures
where (procedure_name = s3 and object_name=s2)
or (owner = s2 and object_name=s3 and object_type in ('PROCEDURE','FUNCTION'));
elsif s.count = 3 then
/*Проверка, если процедура указана как OWNER.MY_PACKAGE.MY_PROC*/
s1:= s(1);
s2:= s(2);
select sign(count(1) )
into res
from all_procedures
where procedure_name = s3
and (owner = s1 and object_name=s2);
else
res:=0;
end if;
return res;
end;
Может есть какой-то более элегантный способ это проверить?
