oracle批量更新数据库里面所有表的记录为指定值

create or replace procedure updatealltable (startdate varchar2,enddate varchar2) is
v_table varchar2(50);
v_col varchar2(50);
v_sql varchar2(4000);
v_sqlupdate varchar2(4000);
v_tname varchar2(50);
v_cname varchar2(50);
sql_cnt integer := 0;
cursor my_cursor is
select table_name,column_name from sys.dba_tab_columns where owner='LUCKY' and DATA_TYPE like '%VARCHAR%';
begin
open my_cursor;
loop
fetch my_cursor into v_table,v_col;
--dbms_output.put_line(v_table);
exit when my_cursor%NOTFOUND;
v_sql:='select count(*) ' || 'from LUCKY.'||v_table||' where '||v_col||' like ''%xx%''';
--dbms_output.put_line(v_sql);
EXECUTE IMMEDIATE v_sql into sql_cnt;
--dbms_output.put_line(sql_cnt);
if(sql_cnt > 0) then
dbms_output.put_line(v_table);
v_sqlupdate:='UPDATE LUCKY.'||v_table||' set '||v_col||' = replace('||v_col|| ',''xx,''yy'') where '||v_col||' like ''%xx%''';
EXECUTE IMMEDIATE v_sqlupdate;
end if;
commit;
end loop;
close my_cursor;
end updatealltable;