Statspack Purge Snapshot Job

Statspack Purge Snapshot Job
=============================
create PROCEDURE "PERFSTAT"."PURGE_SNAPS" as
begin

delete from perfstat.stats$snapshot
where snap_time < (sysdate-30)
and rownum < 101;

while sql%found
loop

commit;

delete from perfstat.stats$snapshot
where snap_time < (sysdate-30)
and rownum < 101;

end loop;

commit;

end;
/



exec dbms_job.submit(:jobno, 'perfstat.purge_snaps;', trunc(sysdate+7), 'trunc(sysdate+7)', TRUE, 1);