Controlar Espacio De Los Tablespaces En Oracle

1. OBJETIVOS

Automatizar el control de espacios libre en los tablespaces de base de datos mediante un procedimiento pl/sql.
Se pretende facilitar un procedimiento que compruebe el espacio libredel tablespace y si este es menor de un portentaje especificado del total se envie un correo de alerta para que el administrador pueda aumentar el tamaño del tablespace
COMO VER EL ESPACIO LIBRE DELOS TABLESPACES DE ORACLE
Para ver el espacio libre que queda en un tablespace tenemos que mirar en la tabla dba_free_space
SELECT tablespace_name,
ROUND(sum(bytes)/1024/1024,0)
FROMdba_free_space
WHERE tablespace_name NOT LIKE ‘TEMP%’
GROUP BY tablespace_name;
Con esta consulta obentemos el nombre del tablespace y el espacio en Megas libre
Para ver el espacio total en untablespace tenemos que mirar en la tabla dba_data_files
SELECT tablespace_name,
round(sum(BYTES/1024/1024),0)
FROM dba_data_files b
WHERE tablespace_name NOT LIKE ‘TEMP%’
GROUP BY b.tablespace_name;Con esta consulta obentemos el nombre del tablespace y el espacio total en Megas que puede llegar a tener
COMO ENVIAR UN CORREO EN PL/SQL

Como hemos dicho en el objetivo de este articulo, cuandoel tablespace se esté quedando sin espacio libre, se recibirá un correo.
Vamos a proporcionar un procedimiento para poder enviar un correo.
CREATE OR REPLACE PROCEDURE SEND_MAIL(SENDER IN VARCHAR2,RECIPIENT IN VARCHAR2, SUBJECT IN VARCHAR2, MESSAGE IN VARCHAR2) IS
– SENDER: direccion de correo de quien envia el mail
– RECIPIENT: dirreción de correo a la que va dirigida el mail
– SUBJECT: Esel asunto del correo
– ESSAGE: es el texto del mensaje
mailhost CONSTANT VARCHAR2(30) := ‘mail.server.es’; — servidor de correo , sustituir cadena por una valida
mesg VARCHAR2(1000); — texto delmensaje
mail_conn UTL_SMTP.CONNECTION; — conexion con el servidor smtp
BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);
mesg := ‘Date: ‘ ||
TO_CHAR( SYSDATE, ‘dd Mon yy hh24:mi:ss’ )...