Save an oracle package to a flat file

Question

Hallo,
how can I save an oracle package to a flat file?
Best Regards
Werner

Answer 1

Here is a script you can use. You may need to change the references to dba_source to user_source or all_source depending on your access privileges.
set termout off
store set sqlplus.cfg replace
column pkg_spec new_value pkg_spec noprint
column pkg_body new_value pkg_body noprint
set pagesize 0
set linesize 10000
set trimspool on
set echo off
set verify off
set feedback off
set timing off
set recsep off
set termout on
accept pkg prompt   'Package name:  '
accept owner prompt 'Owner:         '
set termout off
select lower('&&pkg') || '_spec.sql' pkg_spec,
  lower('&&pkg') || '_body.sql' pkg_body from dual;
spool &pkg_spec
select 'create or replace' from dual;
select text from dba_source
  where owner = upper('&&owner')
  and name = upper('&&pkg')
  and type = 'PACKAGE'
  order by line;
select '/' || chr(10) || 'sho err' from dual;
spool off
spool &pkg_body
select 'create or replace' from dual;
select text from dba_source
  where owner = upper('&&owner')
  and name = upper('&&pkg')
  and type = 'PACKAGE BODY'
  order by line;
select '/' || chr(10) || 'sho err' from dual;
spool off
@sqlplus.cfg
set termout on