如何修改Table Column Byte/Char

有时候虽然更改了NLS_LENGTH_SEMANTICS=CHAR，但是已经创建好的数据项，不一定能及时修改或者完全不能修改，这个时候我就需要把他们按照要求全部转换成所需要的Char,
具体PLSQL 代码如下：

CREATE OR REPLACE PROCEDURE PROC_CONVERTBYTETOCHAR IS

v_strSQL varchar2(200);

cursor cur_toChar is
  select table_name,column_name,data_type,data_length,data_default
    from user_tab_columns where char_used='B' and data_type='VARCHAR2';
 rec_toChar cur_toChar%rowtype;
BEGIN
   if cur_tochar%isopen then
     close cur_toChar;
   end if;
   open cur_toChar;
     loop
       fetch cur_tochar INTO rec_toChar;
       exit when cur_toChar%notfound;

           v_strSQL :=' alter table '||rec_toChar.Table_Name
                        ||' modify '||rec_toChar.Column_Name
                        ||' varchar2('||rec_toChar.Data_Length||' char) ';
         EXECUTE IMMEDIATE v_strSQL;
     commit;
     end loop;
   close cur_toChar;

EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(SQLERRM);
     
END;

执行procedure，最后我们具体去查看下，此DB Schema的table column到底是用那个类型：

SELECT * FROM USER_TAB_COLUMNS WHERE CHAR_USED='B'