V zavisimosti ot versii oracle:

9i luchshe ispolzovat paket DBMS_METADATA.GET_DDL()
8i table sys.source$ --> ne zabud otsortirovat po # stroki

Examples:

SQL> select
decode(line,1,'create or replace '||chr(10)||s.source, s.source) txt
from sys.source$ s, dba_objects o
where s.obj# = o.object_id
and
o.object_name = '......'
and
o.object_type like 'PACKAGE%'
and o.owner = '.....'
order by o.object_type asc, s.line;

TXT
------------------------------------------------------------------------------------------------------------------------
create or replace
package medrep is

--
-- declare of public functions for reporting
--
function get_n_years(p_date_start date, p_date_end date) return number;
function get_username(p_userid number) return varchar2;
function get_username(p_f_name varchar2,
p_m_name varchar2,
p_l_name varchar2) return varchar2;
function get_user_street_address(p_userid number) return varchar2;
function get_street_address(p_address number) return varchar2;
function get_street_address(p_street1 varchar2, p_street2 varchar2) return varchar2;
function get_med_licenses(p_userid number) return varchar2;
function get_addressid(p_userid number) return number;
function get_specialty_list(p_userid number) return varchar2;
end;
create or replace
package body medrep is

-- ----------------------------------------------------------------------------------
function get_n_years(p_date_start date, p_date_end date) return number is
n number;
...
...