oracle 批量表，多個表，修改字段

declare
v_sql varchar(10000);
v_tablename varchar(100);

// 定義遊標  names 爲 從用戶root 查出的所有表明
cursor names is select TABLE_NAME as t_name  from dba_tables where owner='root' and TABLESPACE_NAME<>'TEMP' and TABLE_NAME like 'table_r%' ;
    begin

       // 打開 names 數組
        open names;
    loop

      // 提取names 中的元素 放入 v_tablename中
        fetch names into v_tablename;
        EXIT WHEN names%NOTFOUND;
        v_sql := 'alter table ' || v_tablename || ' modify archive_no varchar(255)';
        execute immediate v_sql;
    end loop;
    close names;
end;