How to copy procedures and packages from one server to another?

Question

Hi,
I have 439 packages and 178 procedures located in one server called MAXWELL.
I need to copy these objects to another server called TITAN.
The schema names is SPCBR in both servers.
So both servers have an instance running with this schema SPCBR.
SPCBR in TITAN server has their tables with table data which was generated by an export/import process from MAXWELL server.
However, procedures and packages were not copied by the export/import because I used the clause 'tables'.
Now, what can I do in order to equalize procedures and packages in both databases? I can't risk in damaging or duplicating data in my database located in TITAN server, ok?
Thanks,

Answer 1

Another simple alternative, according to AskTom (http://asktom.oracle.com/pls/ask/f?p=4950:8:::::F4950_P8_DISPLAYID:454220160386)
---------------- getcode.sql ----------------------------
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
------------------- eof --------------------------------
it extracts one procedure, function or package to a file. Thats it. If you
wanted to get all of the procedures in a schema extracted to the current working
directory, you would run a script:
--------------- getallcode ---------------------------
set termout off
set heading off
set feedback off
set linesize 50
spool xtmpx.sql
select '@getcode ' || object_name
from user_objects
where object_type in ( 'PROCEDURE', 'FUNCTION', 'PACKAGE' )
spool off
spool getallcode_INSTALL.sql
select '@' || object_name
from user_objects
where object_type in ( 'PROCEDURE', 'FUNCTION', 'PACKAGE' )
spool off
set heading on
set feedback on
set linesize 130
set termout on
@xtmpx.sql
---------------- eof ---------------------------------
You can see how to filter on that one by adding to the where clause if you want.
Just run @getallcode_INSTALL to run all of the scripts...