Como switchear los redologs periódicamente desde la base de datos

El siguiente procedimiento, te permite estar switcheando la información de redolog cada cierto periódo de tiempo, para asegurarnos que la información sea guardada a los archivos de archivelog, creando una ventana de tiempo máxima de pérdida de información.

CREATE OR REPLACE procedure switchear_log IS
v_cur integer;
v_result integer;

BEGIN
v_cur := dbms_sql.open_cursor;
dbms_sql.parse(v_cur,'alter system switch logfile',dbms_sql.native);
v_result := dbms_sql.execute(v_cur);
dbms_sql.close_cursor(v_cur);
END;

/

Este procedimiento, puede ser utilizado en conjunto con un job en la base de datos, para ser ejecutado cada hora ó el periódo de tiempo requerido.

---- Programación JOB ----
DECLARE
X NUMBER;
BEGIN
SYS.DBMS_JOB.SUBMIT
( job => X
,what => 'SWITCHEAR_LOG;'
,next_date => to_date('18/08/2009 18:10:02','dd/mm/yyyy hh24:mi:ss')
,interval => '/*1:Hr*/ sysdate + 1/24'
,no_parse => FALSE
);
SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' to_char(x));
COMMIT;
END;
/