declare
vCursor number;
vComando varchar2(2000);
vError number;
begin
vCursor := dbms_sql.open_cursor;
for rObjetos in (select owner,object_name
from all_objects
where object_type='TABLE' and owner in ('TESTE')
) loop
vComando := 'alter table '||rObjetos.owner|| '.' || rObjetos.object_name||' move tablespace TBS_TESTE';
dbms_sql.parse(vCursor, vComando, dbms_sql.native);
dbms_output.put_line(rObjetos.owner|| '.' || rObjetos.object_name);
vError := dbms_sql.execute(vCursor);
end loop;
dbms_sql.close_cursor(vCursor);
end;
/
Nenhum comentário:
Postar um comentário