将 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
);