存储过程（二）批量重命名已有字段

create or replace procedure repair_field is
   vSql varchar2(500);
   vSql2 varchar2(500);
   vSql3 varchar2(500);
   vSql4 varchar2(500);
   vTable varchar2(50);
begin
    for m in 0..99 loop
     
    vTable := 'USER_CHANNEL_INFO_HISTORY_'||m;
    
    vSql := 'alter table ' || vTable || ' rename column CHANNEL to CHANNELUSERID';
   /*vSql2 := 'alter table ' || vTable || ' rename column field2 to ext2';
    vSql3 := 'alter table ' || vTable || ' rename column field3 to ext3';*/
    vSql4:='comment on column ' || vTable || '.channeluserid is ''客户在渠道的ID''';
    
    dbms_output.put_line(vSql4);
          /*  execute immediate vSql;
        execute immediate vSql2;
          execute immediate vSql3;*/
            execute immediate vSql4;
          commit;
  
 end loop;
end repair_field;
/