Estrapolazione sorgenti
di Mirko Scognamiglio

 

---------------------------------------------------------------------------
-- Questo file permette di estrapolare tutto il codice sorgente delle
-- funzioni, procedure e i package all'interno dello stesso SCHEMA
-- attraverso l'interrogazione della USER_SOURCE
---------------------------------------------------------------------------
set pages 0
set lines 1000
set feed off
set head off
set termout off
set trimspool on
--------------------------------------------
-- Creazione del file attraverso lo spool --
--------------------------------------------
spool c:\src.sql

prompt Begin
prompt null;
prompt End;

---------------------------------------------------------------------
-- Select basata sulla user_source per estrapolare tutto il codice --
---------------------------------------------------------------------
select decode(line,1,'/'||chr(10)||chr(10)||
'prompt '||type||' '||name||chr(10)||
'CREATE OR REPLACE '||text,text)
from user_source
order by decode(type,'PACKAGE',1,'PACKAGE BODY',2,3), name, line
/
---------------------------------------------------------------------
prompt /
--------------------------
-- Chiusura dello spool --
--------------------------
spool off
--------------------------------
-- Ripristino delle variabili --
--------------------------------
set termout on
set pages 100
set lines 80
set feed on
set head on
---------------------------------------------------
-- Il file sorgenti.sql verrà creato nella dir :
-- c:\
---------------------------------------------------
prompt Result written in c:\src.sql