CREATE PROCEDURE 存储过程名称
is
cursor c_tab is select * from user_tab_columns t 
  r_tab user_tab_columns%rowtype;
  v_cell varchar2(100);
  sql_str varchar2(1000);
  data_length number;
begin
  open c_tab;
  loop
    fetch c_tab into r_tab;
    exit when c_tab%notfound;
    v_cell:=‘‘;
    data_length:=trunc(r_tab.data_length/2,0);
    sql_str:=‘select max(‘||r_tab.column_name||‘) from ‘||r_tab.table_name;
    dbms_output.put_line(‘sql_str: ‘||sql_str);
    execute immediate sql_str into v_cell;
    commit;
    dbms_output.put_line(‘value: ‘||v_cell);
    dbms_output.put_line(‘table name: ‘||r_tab.table_name||‘ column name: ‘||r_tab.column_name||‘ length: ‘||r_tab.data_length);
    --1. 修改原字段名  
    sql_str:=‘alter table ‘||r_tab.table_name||‘ rename column ‘||r_tab.column_name||‘ to temp_column‘;
    dbms_output.put_line(‘sql_str: ‘||sql_str);
    execute immediate sql_str;
    commit;
    --2. 添加一个和原字段同名的字段
    sql_str:=‘ALTER TABLE ‘||r_tab.table_name||‘ ADD ‘||r_tab.column_name||‘ VARCHAR2(‘||data_length||‘)‘;
    dbms_output.put_line(‘sql_str: ‘||sql_str);
    execute immediate sql_str;
    commit;
    --3. 将原来的数据更新到新字段中,这是要注意，一定要显示进行数据类型转换
    sql_str:=‘UPDATE ‘||r_tab.table_name||‘ SET ‘||r_tab.column_name||‘ = CAST(temp_column AS VARCHAR2(‘||data_length||‘))‘;
    dbms_output.put_line(‘sql_str: ‘||sql_str);
    execute immediate sql_str;
    commit;
    --4. 删除原来的备份字段
    sql_str:=‘ALTER TABLE ‘||r_tab.table_name||‘ DROP COLUMN temp_column‘;
    dbms_output.put_line(‘sql_str: ‘||sql_str);
    execute immediate sql_str;
    commit;
  end loop;
  close c_tab;
end;