如何查找PL SQL包中受影响的表？

Question

我必须找出现有的PL SQL包中要插入或更新到其中的表的列表。 我开始分析该软件包。 令人担忧的是，程序包代码在数千行代码中运行，并依次调用许多其他程序包。 另外，代码不是我写的。 由于它是开发环境，因此无法运行AWR报告。

启动事务后，是否有办法将插入/更新的表插入其中？ 是否可以编写触发器来满足我的要求？

Answer 1

-- plain
select *
from dba_dependencies
where name = 'PACKAGE_NAME' and owner = 'PACKAGE_OWNER'
and type in ('PACKAGE', 'PACKAGE BODY') and referenced_type = 'TABLE';

-- hierarchy
select distinct referenced_owner, referenced_name, referenced_type, referenced_link_name
from dba_dependencies
where referenced_type = 'TABLE'
start with name = 'PACKAGE_NAME' and owner = 'PACKAGE_OWNER' 
and type in ('PACKAGE', 'PACKAGE BODY')
connect by nocycle prior referenced_name = name and prior referenced_owner = owner
and replace(prior referenced_type, 'PACKAGE BODY', 'PACKAGE') = replace(type, 'PACKAGE BODY', 'PACKAGE')
and referenced_owner not in ('SYS', 'SYSTEM', 'OUTLN' , 'AUDSYS')
order by 1, 2, 3;

Answer 2

@ akk0rd87的答案更好DBA_DEPENDENCIES ，它带有CONNECT BY以通过被调用的过程获取表的用法。

他的答案唯一找不到的是由于动态SQL（例如EXECUTE IMMEDIATE ）而直接使用的表。 为此，您可以使用细粒度的审核。

对我而言，此方法只是遵循@ akk0rd87的建议后的备用方法。

由于SO不是免费的代码编写服务，因此，我将向您简要介绍。

1）创建一个表作为您的审核跟踪。 确保它至少包含以下几列：

• SCHEMA_NAME（30个字符）
• TABLE_NAME（30个字符）
• CALL_STACK（4000个字符）
• SQL_STMT（4000个字符）

2）创建一个程序包作为审核处理程序。 我将为此提供代码，因为它必须遵循我给出的确切API，才能用于细粒度审核。

CREATE OR REPLACE PACKAGE BODY xxcust_table_access_aud_pkg AS
  PROCEDURE audit_access ( schema_name VARCHAR2, table_Name VARCHAR2, policy_name VARCHAR2 ) IS
  BEGIN
    INSERT INTO your_audit_table ( SCHEMA_NAME, TABLE_NAME, CALL_STACK, SQL_STMT )
    VALUES ( schema_name, 
             table_Name,
             substr(DBMS_UTILITY.format_call_stack,1,4000),
             substr(SYS_CONTEXT ('userenv', 'CURRENT_SQL'),1,4000)
            )
  EXCEPTION
    WHEN others THEN 
      null;
  END;

END xxcust_table_access_aud_pkg ;

3）遍历应用程序模式中的所有表，并为每个表调用DBMS_FGA.ADD_POLICY 。 例如，

FOR r IN ( ... all my tables ... ) LOOP
  DBMS_FGA.add_policy(object_schema=> r.owner,
                      object_name => r.table_name,
                      policy_Name => -- make up something unique, maybe table_name plus some number,
                      audit_condition => '1=1',
                      audit_column => null,
                      handler_schema => -- your schema,
                      handler_module => 'XXCUST_TABLE_ACCESS_AUD_PKG', -- the package above
                      enable => true);

4）运行您的程序包并检查表是否有结果

5）重复步骤3，但是删除策略而不是添加它们。

Answer 3

不确定触发器是否可以作为解决方案，以下可能是解决方案之一，尽管需要一些手动操作：

1. 在主软件包上执行grep查找其他软件包名称，记下包括主软件包在内的所有软件包的名称。
2. 从“ all_source”表获取所有这些软件包的源代码，并在“ NAME”属性上使用where子句，并指定上面标识的软件包名称。
3. 将上述软件包的源假脱机到文本文件中，并对插入和更新命令执行grep。