存储过程（五）批量改变字段类型

create or replace procedure REPAIR_DIELD_CLASS is
   vSql varchar2(500);
   
   
   vTable varchar2(50);
begin
    for m in 97..99 loop
     
   /* vTable := 'USER_CHANNEL_INFO_HISTORY_'||m;*/
    vTable := 'USER_CHANNEL_INFO_'||m;
    
    vSql := 'alter table ' || vTable || ' modify (CHANNELID NUMBER(16))';
   
    
     /* dbms_output.put_line(vSql);*/
        
            execute immediate vSql;
        
          commit;
  
 end loop;
end REPAIR_DIELD_CLASS;
/