create or replace procedure proc_databack (deletetime in varchar2)
as
--把当天已经删除的信息查询出来放入游标  
cursor mycursor is(select  object_name   from recyclebin  where droptime like deletetime);
temp_emp    varchar2(2000);
vflash_back   varchar2(2000);
begin
open mycursor;
loop
fetch mycursor  into temp_emp;
exit when mycursor%notfound;
--构建恢复语句  
vflash_back:='flashback table "'||temp_emp||'"  to  before drop';
--循环恢复被删除的表，直到全部恢复完成  
execute immediate vflash_back;
end loop;
close mycursor;
end;
--调用存储过程  
--比如今天是2011-12-02，那么写法如下：

/*

declare

time varchar2(20);

begin

time:='2011-12-02%';

proc_databack (time);

end;

*/