Execution of Clob through dynamic sql

Question

Hi,
Here in below code.I am trying to execute the CLOB dynamically.Its giving an error as
ORA-6502
Numeric or value error.
Declare
SQL3 CLOB := '';
SQLSTRING1 LONG;
SQLSTRING2 LONG;
SQLSTRING3 LONG;
Begin
SQL3 := GENUPD(RECTABLE => 'REC_TARGET_TABLE',
TGTTABLE =>'TARGET_TABLE',
AUDITTABLE => 'DATA_AUDIT_DETAILS');
SQLSTRING1 := DBMS_LOB.SUBSTR(SQL3, 8000, 1);
SQLSTRING2 := DBMS_LOB.SUBSTR(SQL3, 8000, 8001);
SQLSTRING3 := DBMS_LOB.SUBSTR(SQL3, 8000, 16001);
EXECUTE IMMEDIATE SQLSTRING1 || SQLSTRING2 || SQLSTRING3 ;
When I am doing the same in below way its giving an above error
for i in 0 .. 2 loop
SQLSTRING1 := SQLSTRING1 ||
DBMS_LOB.SUBSTR(SQL3, 8000, 8000 * i +
end loop;
EXECUTE IMMEDIATE SQLSTRING1;
end;
Is there any way to write the aboive code in optimized manner.
Any help really appreciated.
Thanks in Advance

Answer 1

DECLARE 
  stmt_str varchar2(200);
  cur_hdl int;
  rows_processed int;
  name varchar2(10);
  salary int;
  v_type DBMS_SQL.varchar2s;
BEGIN
  cur_hdl := dbms_sql.open_cursor;
  v_type(1) := 'SELECT 1'||chr(10);
  v_type(2) := '  FROM DUAL'||chr(10);   
  DBMS_SQL.PARSE ( c                  => cur_hdl,
                   statement          => v_type,
                   lb                 => 1,
                   ub                 => 2,
                   lfflg              => FALSE,
                   language_flag      => dbms_sql.native );
  -- describe defines
  dbms_sql.define_column(cur_hdl, 1, name, 200);   
  rows_processed := dbms_sql.execute(cur_hdl); 
  LOOP
      -- fetch a row
      IF dbms_sql.fetch_rows(cur_hdl) > 0 then
      -- fetch columns from the row
      dbms_sql.column_value(cur_hdl, 1, name);
      Dbms_Output.put_line(name);   
      ELSE
        EXIT;
      END IF;
  END LOOP;
  dbms_sql.close_cursor(cur_hdl); -- close cursor
END;