store set saved_settings replace
set echo off feedback off heading off pagesize 0 verify off linesize 300
spool test.dat
select stragg (rn)|| ','
from   (select 1 rn
        from   dual
        connect by level < 130)
/
spool off
spool test.ctl
prompt load data
prompt infile 'test.dat'
prompt into table test_tab
prompt fields terminated by ','
prompt (col1 "trim(:col1)"
select ',col' || rn || ' "trim(:col' || rn || ')"'
from   (select rownum + 1 rn
        from   dual
        connect by level < 129)
/
prompt )
spool off
start saved_settings
declare
  v_sql varchar2(32767);
begin
  v_sql := 'create table test_tab (col1 varchar2(1)';
  for i in 2 .. 129 loop
    v_sql := v_sql || ',col' || i || ' varchar2(1)';
  end loop;
  v_sql := v_sql || ')';
  execute immediate v_sql;
end;
/
desc test_tab
host sqlldr scott/tiger control=test.ctl log=test.log
select * from test_tab
/
drop table test_tab
/