Question

我想列出在给定模式中使用重载的所有存储过程。所有程序都在包装内。我可以使用下面的SQL来实现（proc_count＆gt; 1）。

select 
    object_name, procedure_name, count(procedure_name) as proc_count 
from 
    all_procedures                
where 
    owner = 'SCHEMA_NAME' 
group by
    object_name, procedure_name
order by proc_count desc

然而似乎没有办法区分名为'ask_version'的函数和一个名为'ask_version'的过程，在我的情况下我需要这样做。这种情况是我们的中间件无法调用使用重载的过程。我需要对发生的地方进行影响分析。我们从不直接调用函数，因此需要隔离它们

有什么东西我不见了吗？

Answer 1

all_arguments似乎有所帮助。对于一个函数，有一个参数position=0（这是返回值），对于这个参数不存在的过程。

SELECT object_name, procedure_name, t, COUNT(1) AS proc_count
FROM
(
  SELECT p.object_name, p.procedure_name,
         CASE WHEN a.object_id IS NULL THEN 'PROCEDURE' ELSE 'FUNCTION' END AS t
  FROM all_procedures p
  LEFT JOIN all_arguments a ON ( a.object_id = p.object_id
                             AND a.subprogram_id = p.subprogram_id AND a.position = 0 )
  WHERE p.owner = 'SCHEMA_NAME'
)
GROUP BY object_name, procedure_name, t
ORDER BY proc_count DESC;

Answer 2

这有点棘手，因为Oracle将包作为离散对象存储在独立的函数和过程中。

您可以通过查看ALL_ARGUMENTS中的参数元数据来判断这一点。函数在位置0有一个参数来指定返回类型，而过程没有。

此外，通过检查OVERLOAD字段可以很容易地判断函数或过程是否有重载。

select P.OBJECT_NAME
,      P.PROCEDURE_NAME
,      DECODE(min(a.POSITION), 0, 'Function', 'Procedure') FUNC_OR_PROC
,      DECODE(NVL(min(P.OVERLOAD), 0), 0, 'No', 'Yes') OVERLOADED
from   ALL_PROCEDURES P
,      ALL_ARGUMENTS a
where  P.OWNER = 'FLOWS_030000'
and    P.OBJECT_NAME = a.PACKAGE_NAME 
and    P.PROCEDURE_NAME = a.OBJECT_NAME
group  by P.OBJECT_NAME, P.PROCEDURE_NAME
order  by 1,2;

如何区分Oracle元数据中的过程和函数？

2 个答案: