magvivek@Kaapi#cat something
sqlplus -s $DBA/$DBP@test <<EOF
set long 500000000;
set linesize 1000
set feed off;
SET HEAD off;
set trimspool on;
column xxx  format a400
-- for single spool
-- select DBMS_METADATA.GET_DDL('PROCEDURE',u.object_name) as xxx from user_objects u where object_type='PROCEDURE' and object_name in ('P1','P2');
spool myList.sql
select 'spool '||u.object_name||'.sql'||CHr(10)|| 
	'select DBMS_METADATA.GET_DDL(''PROCEDURE'','''||u.object_name||''') from dual;'   ||chr(10)||
	'spool off;'
from user_objects u where object_type='PROCEDURE' and object_name in ('P1','P2');
spool off;
@myList.sql
exit;
EOF
magvivek@Kaapi#./something

spool P1.sql
select DBMS_METADATA.GET_DDL('PROCEDURE','P1') from dual;
spool off;

spool P2.sql
select DBMS_METADATA.GET_DDL('PROCEDURE','P2') from dual;
spool off;



  CREATE OR REPLACE PROCEDURE "DBADMIN"."P1"
as
begin
Null;
end;




  CREATE OR REPLACE PROCEDURE "DBADMIN"."P2"
as
begin
dbms_output.put_line('hello');
end;


magvivek@Kaapi#cat P1.sql


  CREATE OR REPLACE PROCEDURE "DBADMIN"."P1"
as
begin
Null;
end;


magvivek@Kaapi#cat P2.sql


  CREATE OR REPLACE PROCEDURE "DBADMIN"."P2"
as
begin
dbms_output.put_line('hello');
end;


magvivek@Kaapi#