基于存储过程实现批量复制表（Procedure）的方案实现

利用存储过程结合DBLink批量复制表（Procedure），具体实现代码如下：

create or replace procedure "SP_CREATETABLE" authid current_user

as

v_tmp varchar2(50);

cursor cur_table is select table_name from user_tables@DBLINK_217;

begin

dbms_output.put_line('------ 开始 ------');

for tableName in cur_table loop

v_tmp := tableName.Table_Name;
dbms_output.put_line('------ create table start ------' ||v_tmp);
execute immediate 'create table '||v_tmp||' as select * from '||v_tmp||'@DBLINK_217 ';
dbms_output.put_line('------ create table finished ------' ||v_tmp);           

end loop;

exception

when others then
dbms_output.put_line(v_tmp);
           

end;