删除某用户下所有对象

begin
 for c in (select 'drop '|| object_type ||' '|| owner||'.'||object_name||
                   decode(object_type,'TABLE', ' CASCADE CONSTRAINTS PURGE','VIEW',' CASCADE CONSTRAINTS','TYPE',' FORCE','INDEX',' FORCE') as dsql 
            from all_objects  where owner like'&user%') loop
         
  begin                   
         execute immediate c.dsql;
         dbms_output.put_line(c.dsql || '  ...........√'); 
          exception
         when others then
             dbms_output.put_line(c.dsql||' ..........ⅹ');
   end;
  end loop;
end;