存储过程（六）批量复制表

create or replace procedure test_004 is
	vSql varchar2(2000);
	vSql2 varchar2(2000);

	vTable varchar2(50);
	vTable2 varchar2(50);
	vTable_bak varchar2(50);
	vTable2_bak varchar2(50);



	vgrant varchar2(100);
	begin
	vgrant:='grant create table to netuser';
	execute immediate vgrant;

	for m in 0..9 loop
	for n in 0..9 loop

	vTable := 'user_role_'||m||'_'||n;
	vTable_bak := 'user_role_'||m||'_'||n||'_bak';
	vTable2 := 'user_role_attribute_'||m||'_'||n;

	vTable2_bak := 'user_role_attribute_'||m||'_'||n||'_bak';

	vSql := 'create table '||vTable_bak||''||' as  select * from  '|| vTable ;

	vSql2 := 'create table '||vTable2_bak||''||' as  select * from  '|| vTable2 ;
	--dbms_output.put_line(vSql);


  execute immediate vSql;

  execute immediate vSql2;



  end loop;
  end loop;

  end test_004;