Remplacer CHAR par VARCHAR2

Question

Comment puis-je remplacer CHAR par VARCHAR2 dans toutes les tables d'un schéma?

Remarque: Je suis satisfait d'une requête renvoyant les instructions ALTER TABLE afin que je puisse enregistrer le script et l'exécuter à nouveau.

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