获得某个存储过程_包_函数代码脚本

 

--getcode.sql

--获得某个存储过程、包、函数代码脚本

set feedback off

set heading off

set termout off

set linesize 1000

set trimspool on

set verify off

spool &1..sql

prompt set define off

select decode( type||'-'||to_char(line,'fm99999'),

'PACKAGE BODY-1', '/'||chr(10), null) ||

decode(line,1,'create or replace ', '' ) || text text

from user_source

where name = upper('&&1')

order by type, line;

prompt /

prompt set define on

spool off

set feedback on

set heading on

set termout on

set linesize 100

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/12330444/viewspace-448421/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/12330444/viewspace-448421/