没有参数的游标Oracle,参数游标的有关问题

SQL codecreate or replace procedure SP_CLEAR(V_TABLE IN STRING) IS

TYPE cur_type IS REF CURSOR;

c_tab cur_type;

v_str STRING(2000);

v_tab t_clear.wlbmc%TYPE;

v_sql STRING(3000);

begin

--Get table from v_table

--Reorder these tables

v_str:=upper(v_table);

v_str:=REPLACE(v_str,',',''',''');

v_str:=''''||v_str||'''';

v_sql:='SELECT WLBMC FROM T_CLEAR WHERE TRIM(WLBMC) IN ('||v_str||') ORDER BY BZ DESC';

OPEN c_tab FOR v_sql;

LOOP

FETCH c_tab INTO v_tab;

EXIT WHEN c_tab%NOTFOUND;

v_sql:='delete from '||v_tab||'';

EXECUTE IMMEDIATE v_sql;

END LOOP;

COMMIT;

--deal with exception

EXCEPTION

WHEN OTHERS THEN

ROLLBACK;

RAISE;

end SP_CLEAR;