Dynamic procedure

Question

I have to perform an execution of sql statements in a series when i call a stored procedure. The table name and the insert statements are given in the table. The execution will happen dynamically when i call a stored procedure.
Something like below. I have a table with two columns table name and statement
tahle_name Statement
emp_1 select empno, ename from emp@dblink;
dept_1 select deptno, deptname from dept@dblink
the emp_1 has same structure as emp table, dept_1 has same structure as dept table.
Now i will have a stored procedure which will read this statement column and will make an insert to emp_1 or dept_1 table ( eg, insert into emp_1 as select select empno, ename from emp@dblink).
the input to the stored procedure is just DBLink, this should replace the dblink which is given in the select statement dynamically.
so finally i will have two statement executed since there are two rows in the table, this is just an eg. this will be dynamic i can have any number of rows in the table, ultimatly this should perform an insert to each table for their corresponding sql statements given.
Any idea how can i write a stored procedure?
thanks

Answer 1

CREATE OR REPLACE PROCEDURE sp_load_appolo_data (i_dblink in varchar2, o_error_text out varchar2)
AS
TNAME VARCHAR2(50);
STATEMENT VARCHAR2(4000);
o_error_code varchar2(100);
tableid number(10);
BEGIN
FOR r IN (SELECT REPLACE (sql_statement, 'db_link', i_dblink) AS stmt,
table_name AS table_name, table_id
FROM REFRESH_TABLE_LIST)
LOOP
EXECUTE IMMEDIATE 'DELETE FROM ' || r.table_name ;
TNAME := R.TABLE_NAME;
STATEMENT :=R.STMT;
tableid := r.table_id ;
DBMS_OUTPUT.PUT_LINE('INSERT INTO ' || r.table_name || ' ' || r.stmt);
EXECUTE IMMEDIATE 'INSERT INTO ' || r.table_name || ' ' || r.stmt;
END LOOP;
o_error_text := null;
EXCEPTION WHEN OTHERS THEN
o_error_code := sqlcode;
o_error_text := substr(sqlerrm,1,500);
ROLLBACK;
sp_champ_error_log (o_error_code, o_error_text, TNAME, tableid, o_error_code||'-'||o_error_text,STATEMENT);
COMMIT;
END;
=============This above procedure is not handling the error, when execute immediate is thrown out with error, it has log that in the exeception handler. But it is not doing now.
Moreover the procedure is just breaking.. i dont want to terminate the procedure, it should always give procedure is successlly completed even if any error is throw. Since the error statments are logging to exception handler, the procedure has to be a success...
any suggestion why it is not going to exception when the execute immedite has thrown error??