通过查询 user_source 数据字典,可以查看当前用户下package或procedure的源代码。
------------------------------------
set lingsize 3000
set pagesize 3000
set pagesize 3000
select *
from user_source t
where t.name = upper('对象名')
order by t.type, t.line;
---------------------------------------
from user_source t
where t.name = upper('对象名')
order by t.type, t.line;
---------------------------------------
例子:
SQL>
SQL> select *
2 from user_source t
3 where t.name = upper('pkg_sfdc_registration')
4 order by t.type, t.line
5 /
SQL> select *
2 from user_source t
3 where t.name = upper('pkg_sfdc_registration')
4 order by t.type, t.line
5 /
NAME TYPE LINE TEXT
------------------------------ ------------ ---------- --------------------------------------------------------------------------------
PKG_SFDC_REGISTRATION PACKAGE 1 package pkg_sfdc_registration as
PKG_SFDC_REGISTRATION PACKAGE 2 emp_id number(10);
PKG_SFDC_REGISTRATION PACKAGE 3
PKG_SFDC_REGISTRATION PACKAGE 4 procedure hire_employee(e_id out number);
PKG_SFDC_REGISTRATION PACKAGE 5
PKG_SFDC_REGISTRATION PACKAGE 6 end pkg_sfdc_registration;
PKG_SFDC_REGISTRATION PACKAGE BODY 1 package body pkg_sfdc_registration as
PKG_SFDC_REGISTRATION PACKAGE BODY 2
PKG_SFDC_REGISTRATION PACKAGE BODY 3 procedure hire_employee(e_id out number) is
PKG_SFDC_REGISTRATION PACKAGE BODY 4 begin
PKG_SFDC_REGISTRATION PACKAGE BODY 5 select 1 into e_id from dual;
PKG_SFDC_REGISTRATION PACKAGE BODY 6 end hire_employee;
PKG_SFDC_REGISTRATION PACKAGE BODY 7
PKG_SFDC_REGISTRATION PACKAGE BODY 8 end pkg_sfdc_registration;
------------------------------ ------------ ---------- --------------------------------------------------------------------------------
PKG_SFDC_REGISTRATION PACKAGE 1 package pkg_sfdc_registration as
PKG_SFDC_REGISTRATION PACKAGE 2 emp_id number(10);
PKG_SFDC_REGISTRATION PACKAGE 3
PKG_SFDC_REGISTRATION PACKAGE 4 procedure hire_employee(e_id out number);
PKG_SFDC_REGISTRATION PACKAGE 5
PKG_SFDC_REGISTRATION PACKAGE 6 end pkg_sfdc_registration;
PKG_SFDC_REGISTRATION PACKAGE BODY 1 package body pkg_sfdc_registration as
PKG_SFDC_REGISTRATION PACKAGE BODY 2
PKG_SFDC_REGISTRATION PACKAGE BODY 3 procedure hire_employee(e_id out number) is
PKG_SFDC_REGISTRATION PACKAGE BODY 4 begin
PKG_SFDC_REGISTRATION PACKAGE BODY 5 select 1 into e_id from dual;
PKG_SFDC_REGISTRATION PACKAGE BODY 6 end hire_employee;
PKG_SFDC_REGISTRATION PACKAGE BODY 7
PKG_SFDC_REGISTRATION PACKAGE BODY 8 end pkg_sfdc_registration;
14 rows selected
SQL>
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/20335819/viewspace-694343/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/20335819/viewspace-694343/