Создание дубликатов таблиц

[Sparky]

Есть такое задание, необходимо создать бд по определенной предметной области, необходмо реализовать процедуру на pl/sql которая позволит создать дубликаты всех таблиц, которые были созданы

[soleil@mmc]

в принципе-то надо немного поработать с поиском и ответ найдется
пример получения ДДЛ таблицы EMP

select dbms_metadata.get_ddl('TABLE','EMP')
from dual

вот так можно получить все таблицы юзера scott

select *
from all_objects
where 0=0  
  and owner = upper('scott') 
  and object_type = upper('table')
order by object_name

ну и ссылка на доку в помощь (там ведь еще индексы и гранты добавлять)

[Sparky]

спасибо большое

[soleil@mmc]

и вот это для общего развития

select * 
from dictionary
order by table_name

[Serge_Bliznykov]

а вот от меня примерчик подобной процедуры:

CREATE OR REPLACE PROCEDURE DOUBLE_TABLES IS

       CURSOR all_tabs IS
        select object_name
        from all_objects
        where owner = upper('uzes') 
          and object_type = 'TABLE'
          and instr(object_name, 'DBL_')=0
          and instr(object_name, 'S2008')>0;

 Dbl_Name varchar2(30);          
 RecCount number;

BEGIN
for all_tabs_rec in all_tabs loop
   Dbl_Name :=  substr(('DBL_' ||all_tabs_rec.object_name),1,30);
   select count(*) into RecCount
   from all_objects
      where object_type = 'TABLE'
          and object_name = Dbl_Name;
   if RecCount > 0 then    
      EXECUTE IMMEDIATE 'drop table '||Dbl_Name;
   end if;   
   EXECUTE IMMEDIATE 'create table '||Dbl_Name||' as select * from '||all_tabs_rec.object_name;
end loop;
END;