Oracle9i新特性之数据库监控系列详解

以下两个过程呢，其实是辅助过程，一个是完成写日志，一个是完成发邮件，在以后的程序中，可能会经常用到。

1、写日志过程　　name:sp_Write_log
　　parameter:textContext in varchar2　日志内容
　　create date:2003-06-01
　　creater:chen jiping
　　desc: •写日志,把内容记到服务器指定目录下
　　•必须配置Utl_file_dir初始化参数，
　　并保证日志路径与Utl_file_dir路径一致或者是其中一个
　　
　　create or replace PROCEDURE sp_Write_log(textContext VARCHAR2)
　　IS
　　file_handle　　　UTL_FILE.file_type;
　　Write_content　　VARCHAR2(1024);
　　Write_file_name　VARCHAR2(50);
　　BEGIN
　　--打开文件
　　--Write_file_name := rtrim(to_char(SYSDATE,'YYYY-MM-DD'))||'.log';
　　Write_file_name := 'db108_alert.log';
　　file_handle　　 := UTL_FILE.FOPEN('/u01/product/admin/ora81/logs',Write_file_name,'a');
　　Write_content　 := to_char(SYSDATE,'yyyy-mm-dd hh24:mi:ss')||'||'||textContext;
　　--写文件
　　IF UTL_FILE.IS_OPEN(file_handle) THEN
　　UTL_FILE.PUT_LINE(file_handle,Write_content);
　　END IF;
　　--关闭文件
　　UTL_FILE.Fclose(file_handle);
　　EXCEPTION
　　WHEN OTHERS THEN
　　IF UTL_FILE.IS_OPEN(file_handle) THEN
　　UTL_FILE.Fclose(file_handle);
　　END IF;
　　END sp_Write_log;