Hey, i did a script that do this, but delete older than 30 days, just modify my script.


Here's a way to delete your archive logs files automaticaly.
This script delete archive logs that have more than 30 days.
It is very useful when you need the disk space.
Of course, make sure that you have valid backups,
cuse you could delete archive that you need.


First, i give grant to objects owned by the user sys.
Then, i create a directory to use the bfilename function.
After, i create a procedure that extract the name of the archive
and one that finds old archive logs and delete them.


You can execute that procedure manualy, or create a job that will execute
that procedure periodicaly.

---------------------------------------------------------------------------------------
connect sys/YOUR_SYS_PASSWORD


grant select on v_$archived_log to YOUR_USER;
grant execute on dbms_backup_restore to YOUR_USER;


connect YOUR_USER/USER_PASSWORD

create or replace directory ARCHIVEDIR as 'd:\ora8i\orant\oradata\archive';

create or replace function proc_nom_fich(P_chain IN Varchar2) return varchar2 IS
l_posi number;
l_nom_fich varchar2(100);

begin
l_posi := length(P_chain);
loop
if substr(P_chain,l_posi,1) in ('/','\') then
l_nom_fich := substr(P_chain,l_posi + 1);
exit;
else
l_posi := l_posi - 1;
if l_posi < 0 then
exit;
end if;
end if;
end loop;

return(l_nom_fich);
end;
/

create or replace procedure proc_dele_arch_log is
arch_file bfile;
arch_exis boolean;
arch_file_name varchar2(100);

cursor sel_archive is
select name
from v$archived_log
where completion_time < sysdate - 30;

begin
for list in sel_archive loop
arch_exis := FALSE;
arch_file_name := proc_nom_fich(list.name);
arch_file := bfilename('ARCHIVEDIR',arch_file_name);
arch_exis := dbms_lob.fileexists(arch_file) = 1;

if arch_exis then
sys.dbms_backup_restore.deleteFile(list.name);
end if;
end loop;
end;
/


---------------------------------------------------------------------------------------