CREATE OR REPLACE PROCEDURE recicle is

t_name varchar2(32);

sq varchar2(500);

cursor cur is

select object_name,original_name,partition_name,type,ts_name,createtime,droptime from recyclebin where type='TABLE' and ts_name='USERS';

BEGIN

for x in cur loop

t_name :=x.original_name;

sq :='flashback table '||t_name||' to before drop';

execute immediate sq;

end loop;

end ;