Procedure to create new table using existing metadata

Question

Hi All,
THis is what I want to achieve,
I want to create procedure which will take a input parameter as name of a table lets say 'EMP',
and this procedure will check whether that table exist or not?
if exist then
it will create a new table with name appending _dummy to existing table name (ex: new table will be EMP_DUMMY) ,
and new table should have the same table structure ,index and constraint imposed on EMP table.
NB: It should not be created using as select like create table EMP_DUMMY as select * from EMP where condition=false;
Can any one please help me how to achieve this?

Answer 1

Hi,
you can use the DBMS_METADATA package
declare
cddl clob;
ctable  varchar2(80):='EMP';
cowner  varchar2(80):='HR';
begin
cddl:=dbms_metadata.get_ddl ('TABLE',ctable,cowner);
cddl:=replace(cddl, 'CREATE TABLE "'||cowner||'"."'||ctable||'"','CREATE TABLE "'||cowner||'"."'||ctable||'_DUMMY"');
dbms_output.put_line(substr(cddl,1,1200));
execute immediate dbms_lob.substr(cddl,least(dbms_lob.getlength(cddl),32000));
cddl:=dbms_metadata.get_dependent_ddl ('INDEX',ctable,cowner);
cddl:=replace(cddl,'ON "'||cowner||'"."'||ctable,'ON "'||cowner||'"."'||ctable||'_DUMMY');
execute immediate dbms_lob.substr(cddl,least(dbms_lob.getlength(cddl),32000));
end;but you'll need to adapt (ex: existing contraint name etc)