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;