24 lines
497 B
MySQL
24 lines
497 B
MySQL
|
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
|