oralce 动态更新表

郁闷写了个存储过程还搞了半天（鄙视下自己），记录一下

create or replace procedure update_xxx
as
v_sql varchar2(200);
begin
   for l_record in (select table_name  from USER_TAB_COLUMNS where COLUMN_NAME='xxx') loop
      if substr(l_record.table_name,1,4)='TEST' then
        --DBMS_OUTPUT.PUT_LINE(l_record.table_name);
        v_sql := ' update ' || l_record.table_name || ' set xxx= substr(xxx,1,2) ';
        execute immediate v_sql;
       end if;
   end loop;
end;