Best way of reading clob and loadng into table

Question

Hi,
I'm loading the data from clob to one of our table. For this task its taking 10 minutes for 8,000 records. Down the road we are expecting more than 20,000 records.
Is there any fastest way to load the data in this approach. please help me out
sournce table is lob_effect1 and target table canbe any table.
CREATE TABLE lob_effect1 (
  id  INTEGER NULL,
  loc CLOB    NULL
  STORAGE (
    NEXT       1024 K
CREATE OR REPLACE FUNCTION f_convert(p_list IN VARCHAR2)
    RETURN varchar2
  AS
    l_string       VARCHAR2(32767) := p_list || ',';
    l_comma_index  PLS_INTEGER;
    l_index        PLS_INTEGER := 1;
   -- l_tab          test_type := test_type();
      v_col_val                         varchar2(32767);
   v_col_val_str            varchar2(32767);
  BEGIN
    LOOP
     --     dbms_output.put_line(l_string);
      l_comma_index := INSTR(l_string, ',', l_index);
               EXIT WHEN l_comma_index = 0;
      v_col_val := SUBSTR(l_string, l_index, l_comma_index - l_index);
               v_col_val_str :=v_col_val_str ||','||chr(39)||v_col_val|| chr(39);
               v_col_val_str :=ltrim(v_col_val_str,',');
          --     dbms_output.put_line(v_col_val_str);
      l_index := l_comma_index + 1;
    END LOOP;
    RETURN v_col_val_str;
  END f_convert;
CREATE OR REPLACE
PROCEDURE p_load_clob1(
    p_date     IN DATE DEFAULT NULL,
    p_tab_name IN VARCHAR2,
    p_clob     IN CLOB DEFAULT NULL)
IS
  var_clob CLOB;
  var_clob_line            VARCHAR2(4000);
  var_clob_line_count      NUMBER;
  var_clob_line_word_count NUMBER;
  v_col_val                VARCHAR2(32767);
  v_col_val_str            VARCHAR2(32767);
  v_tab_name               VARCHAR2(200):='coe_emea_fi_fails_new_tmp';
  v_sql                    VARCHAR2(32767);
  n_id                     NUMBER;
  CURSOR cur_col_val(p_str VARCHAR2)
  IS
    SELECT * FROM TABLE(fn_split_str(p_str));
BEGIN
  INSERT
  INTO lob_effect VALUES
      seq_lob_effect.nextval,
      p_clob
  RETURNING id
  INTO n_id;
  COMMIT;
  SELECT loc INTO var_clob FROM lob_effect1 WHERE id =n_id;
  var_clob_line_count := LENGTH(var_clob) - NVL(LENGTH(REPLACE(var_clob,chr(10))),0) + 1;
  FOR i                                  IN 1..var_clob_line_count
  LOOP
    var_clob_line           := regexp_substr(var_clob,'^.*$',1,i,'m');
    var_clob_line_word_count:=LENGTH(var_clob_line) - NVL(LENGTH(REPLACE(var_clob_line,',')),0) + 1;
    v_col_val_str           :=NULL;
    v_col_val               :=NULL;
    FOR rec_col_val         IN cur_col_val(var_clob_line)
    LOOP
      v_col_val     :=rec_col_val.column_value;
      v_col_val_str :=v_col_val_str ||','||chr(39)||v_col_val|| chr(39);
      v_col_val_str :=ltrim(v_col_val_str,',');
    END LOOP;
    v_sql :='insert into '||p_tab_name||' values ('||v_col_val_str||')';
    EXECUTE immediate v_sql;
  END LOOP;
  COMMIT;
EXCEPTION
WHEN OTHERS THEN
  dbms_output.put_line('Error:' || SQLERRM);
END;
/Thanks & Regards,
Ramana.

Answer 1

Thread: HOW TO: Post a SQL statement tuning request - template posting
HOW TO: Post a SQL statement tuning request - template posting