Dropar objetos de um owner no banco - Oracle

Este escript dropa todos os objetos de um owner do banco (menos dblinks).

* necessário :

1 - ter certeza do que está fazendo pois esse processo é irreversível, portanto não me responsabilizo pelo uso indevido desse script.

2 - gerar spool <nome-do-arquivo.sql>

3 - executar o script

4 - desligar spool  : spool off

5 - executar o script : @<nome-do-arquivo.sql>

** abaixo listados 2 scripts, 1 para execurar drop dos objetos com constraints e sem constraints

set pagesize 2000

select

'drop '||object_type||' '||owner||'.'||object_name||';'

from dba_objects

where object_type in ('FUNCTION','LIBRARY','MATERIALIZED VIEW',

'PACKAGE','PROCEDURE','SEQUENCE','TABLE','VIEW','SYNONYM','TYPE','JAVA CLASS','JAVA SOURCE')

and owner in ('XXX')

order by owner,object_type,object_name;

set pagesize 2000

select

'drop '||object_type||' '||owner||'.'||object_name||' CASCADE CONSTRAINTS;'

from dba_objects

where object_type in ('FUNCTION','LIBRARY','MATERIALIZED VIEW',

'PACKAGE','PROCEDURE','SEQUENCE','TABLE','VIEW','SYNONYM','TYPE','JAVA CLASS','JAVA SOURCE')

and owner in ('XXX')

order by owner,object_type,object_name;