set NLS_LANG=AMERICAN_AMERICA.UTF8
rem set NLS_LANG=AMERICAN_CIS.CL8MSWIN1251
sqlplus.exe -S USR/PASS@db0 @list.sql src
set NLS_LANG=

set feed off  linesize 32767  heading off  headsep off  verify off  trimspool on  trimout on  pagesize 0  newpage none  term off  long 10000000  longc 10000000  recsep off  serveroutput on size unlimited format truncated
host md &1
spool commands.sql
select '@unload_obj.sql "&1\'||name||'.'||decode(type, 'PACKAGE', 'PCK', 'FUNCTION', 'FNC', 'PROCEDURE', 'PRC', 'TYPE', 'TYP', 'TRIGGER', 'TRG', 'VIEW', 'VWS', 'sql')||'" '||name from SYS.all_source where owner = 'OWNER' and line = 1 and type not like '%%BODY' and name in (
'PKG1',
'FUNC2',
'PROC3',
'TYPE4',
'TRIGGER5'
) order by name;
spool off
@commands.sql
exit

spool &1
select SYS.DBMS_XMLGEN.convert(
        xmlagg(
          xmlelement(
            f
          , case
            when line = 1 then 'create or replace '||text
            when next_line = 1 then text||'/'||chr(10)
            when next_line is null then text||'/'
            else text
            end
          )
          order by type, line nulls last
        ).extract('//text()').getClobVal()
       , 1
       )
  from (
    select type, line, translate(text, '1'||chr(0)||chr(10), '1')||chr(10) as text, lead(line) over (order by type, line) as next_line from SYS.all_source where owner = 'OWNER' and name = upper('&2')
  );
spool off