2026-03-12 20:23:15
This commit is contained in:
23
vdh/getcode.sql
Normal file
23
vdh/getcode.sql
Normal file
@@ -0,0 +1,23 @@
|
||||
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
|
||||
Reference in New Issue
Block a user