查询RESTRICT_REFERENCES杂注

Question

如何以编程方式确定包过程是否标记了任何RESTRICT_REFERENCES编译指示(WNDS、WDPS、RNDS...)？

Answer 1

我能说出来的唯一方法是查询包的源代码，例如：

select text from all_source
where UPPER(text) like '%PRAGMA RESTRICT_REFERENCES%'
and owner = :owner
and name = :package_name
and type = 'PACKAGE';

不完全可靠(如果杂注定义被分成多行或者有额外的空格之类的东西，它就不会被提取出来)。