Re: Table to Flat File dump Script Please--dump.SQL??

From: Joshi Rajanish <dbaoracle2000_at_yahoo.com>
Date: Tue, 21 Nov 2000 22:30:18 -0800 (PST)
Message-Id: <10687.122696@fatcity.com>

Hi Reza ,
You will find this script on Jareds web site. I am giving that file down.
Hope this helps,
Regards,
Rajanish Joshi
Pune India

--start of file
-- dump.sql - jared still
-- jkstill_at_bcbso.com
-- jkstill_at_teleport.com
--
-- dump a table to a comma delimited ascii file
-- only drawback is line length is likely to be padded with 
-- quite a few spaces if the 'set trimspool on' option is
-- not in your version of SQLPLUS
--
-- also builds a control file and a parameter file for SQL*LOADER

set trimspool on
set serverout on
clear buffer
undef dumpfile
undef dumptable
undef dumpowner

var maxcol number
var linelen number
var dumpfile char(40)

col column_id noprint

set pages0 feed off termout on echo off verify off

accept dumpowner char prompt 'Owner of table to dump: ' accept dumptable char prompt 'Table to dump: '

begin

	select max(column_id) into :maxcol
	from all_tab_columns
	where table_name = rtrim(upper('&dumptable'))
	and owner = rtrim(upper('&dumpowner'));

	select sum(data_length) + ( :maxcol * 3 ) into :linelen
	from all_tab_columns
	where table_name = rtrim(upper('&dumptable'))
	and owner = rtrim(upper('&dumpowner'));

end;
/

print linelen
print maxcol
spool ./_dump.sql

select 'set trimspool on' from dual;
select 'set termout off pages 0 heading off echo off' from dual;
select 'set line ' || :linelen from dual;
select 'spool ' || lower('&dumptable') || '.txt' from dual;

select 'select' || chr(10) from dual;

select '   ' || '''' || '"'  || '''' || ' || ' ||  


	'replace(' || column_name || ',' || '''' ||  '"' || '''' || ') '

	|| ' ||' || '''' || '",' || '''' || ' || ', 
	column_id

from all_tab_columns
where table_name = upper('&dumptable')
and owner = upper('&dumpowner')
and column_id < :maxcol
union
select ' ' || '''' || '"' || '''' || ' || ' ||

'replace(' || column_name || ',' || '''' || '"' || '''' || ') '

	|| ' ||' || '''' || '"' || '''', 
	column_id

from all_tab_columns
where table_name = upper('&dumptable')
and owner = upper('&dumpowner')
and column_id = :maxcol
order by 2
/

select 'from &dumpowner..&dumptable' from dual;

select '/' from dual;
select 'spool off' from dual;

spool off

@@_dump

set line 79
-- build a basic control file
spool _dtmp.sql
select 'spool ' || lower('&dumptable') || '.par' from dual; spool off
@@_dtmp

select 'userid = /' || chr(10) ||

'control = ' || lower('&dumptable') || '.ctl' || chr(10) ||
'log = ' || lower('&dumptable') || '.log' || chr(10) ||
'bad = ' || lower('&dumptable')|| '.bad' || chr(10)
from dual;

spool _dtmp.sql
select 'spool ' || lower('&dumptable') || '.ctl' from dual; spool off
@@_dtmp
select 'load data' || chr(10) ||

'infile ' || ''''|| lower('&dumptable') || '.txt' || '''' || chr(10) ||
'into table &dumptable' || chr(10) ||
'fields terminated by ' || '''' || ',' || '''' ||
'optionally enclosed by ' || '''' || '"' || '''' || chr(10)
from dual;

select '(' from dual;

select ' ' || column_name || ',' ,

        column_id
from all_tab_columns
where table_name = upper('&dumptable')
and owner = upper('&dumpowner')
and column_id < :maxcol
union
select ' ' || column_name, column_id
from all_tab_columns
where table_name = upper('&dumptable')
and owner = upper('&dumpowner')
and column_id = :maxcol
order by 2
/

select ')' from dual;

exit

--end of file--

---

Received on Wed Nov 22 2000 - 00:30:18 CST