Oracle 批量修改表字段的长度

declare
  -- 修改表字段长度的字符串
  v_alter_sqlstr  varchar2(500);
  -- 游标
  cursor c_result is 
  select t_tables.table_name,
         t_column.column_name,
         t_column.data_length,
         'alter table ' || t_column.table_name || ' modify ' || t_column.column_name ||
         ' varchar2(200)' as alter_sqlstr
    from user_tab_columns t_column, user_tables t_tables
   where t_column.table_name = t_tables.table_name
     and t_tables.table_name like 'RP_NW_%'     -- 模糊匹配的表名
     and t_column.data_length < 100             -- 可根据字段长度
     and t_column.data_type = 'VARCHAR2'        -- 可根据字段类型
     and t_tables.table_name = 'RP_NW_HWXSYBG'; -- 具体那张表
  -- 定义一个与游标一样的变更
  v_result c_result%rowtype;
begin
  open c_result;
    loop
      fetch c_result into v_result;  
      exit when c_result%notfound;
      v_alter_sqlstr := v_result.alter_sqlstr;
      dbms_output.put_line(v_alter_sqlstr || ';'); -- 可单独将SQL从output窗口提取出来执行
      
      -- 执行修改
      execute immediate v_alter_sqlstr;   
    end loop;
  close c_result;
exception
  when others then
    begin
      dbms_output.put_line('异常:' || 'sqlcode:' || sqlcode || ' sqlerrm : ' ||sqlerrm );
    end;  
end;

以下代码可改造成存储过程，可根据代码中定义游标SQL语句中的条件来作为传入的参数，这样就更加灵活了。