将CHAR替换为VARCHAR2

Question

如何在模式中的所有表中将CHAR替换为VARCHAR2？

注意：我满足于返回ALTER TABLE语句的查询，因此我可以保存该脚本并再次运行它。

Answer 1

select 'ALTER TABLE "' || owner || '"."' || table_name 
|| '" MODIFY ("' || column_name 
|| '" VARCHAR2(' || data_length || '));' 
from all_tab_columns tc 
where data_type = 'CHAR' 
and owner = :schemaname 
and exists (
    select 1 
    from all_tables t 
    where tc.owner = t.owner 
    and tc.table_name = t.table_name 
);