Patrick Marc..
22
根据您的需要,这可能就足够了(但依赖于对v $ session和dba_objects的访问):
select 'CALLED PLSQL', vs.username, d_o.object_name -- whatever info you need
from dba_objects d_o
inner join
v$session vs
on d_o.object_id = vs.plsql_entry_object_id
union all
select 'CURRENT PLSQL', vs.username, d_o.object_name
from dba_objects d_o
inner join
v$session vs
on d_o.object_id = vs.plsql_object_id
根据文档:
PLSQL_ENTRY_OBJECT_ID - 堆栈中最顶层的PL/SQL子程序的ID; 如果堆栈上没有PL/SQL子程序,则为NULL
PLSQL_OBJECT_ID - 当前正在执行的PL/SQL子程序的对象ID; 执行SQL时为NULL
您可以添加v $ sql以在检查时获取当前运行的SQL:LEFT OUTER JOIN v $ sql vsq ON vsq.sql_id = vssql_id并将vsq.sql_fulltext添加到SELECT列表.哦,你可能想要包括WHERE vsstatus ='ACTIVE'. (2认同)