oracle存储过程实现记录日志

目录

• oracle存储过程实现记录日志
  • create table
  • Create sequence
  • package
  • body

oracle存储过程实现记录日志

create table

-- Create table
create table t_cem_proc_logs
(
  id       varchar2(32),
  proc_mc  varchar2(100),
  title    varchar2(4000),
  content  clob,
  log_type varchar2(10),
  log_time date default sysdate
)
;
-- Add comments to the table 
comment on table t_cem_proc_logs
  is '日志';
-- Add comments to the columns 
comment on column t_cem_proc_logs.id
  is 'id';
comment on column t_cem_proc_logs.proc_mc
  is '过程名';
comment on column t_cem_proc_logs.title
  is '标题';
comment on column t_cem_proc_logs.content
  is '内容';
comment on column t_cem_proc_logs.log_type
  is '日志级别：info,error,debug';
comment on column t_cem_proc_logs.log_time
  is '时间';
-- Create/Recreate primary, unique and foreign key constraints 
alter table t_cem_proc_logs
  add constraint pri_proc_logs primary key (ID);


-- Create table
create table T_CEM_TASK_LOG
(
  id           VARCHAR2(32) not null,
  task_id      VARCHAR2(100),
  task_code    VARCHAR2(100),
  start_date   DATE,
  end_date     DATE,
  log_status   VARCHAR2(2),
  log_message  VARCHAR2(4000),
  createdate   DATE,
  requestdata  CLOB,
  responsedata CLOB,
  modifytime   DATE,
  corpid       VARCHAR2(32)
);
-- Add comments to the table 
comment on table T_CEM_TASK_LOG
  is '调度日志';
-- Add comments to the columns 
comment on column T_CEM_TASK_LOG.id
  is 'ID';
comment on column T_CEM_TASK_LOG.task_id
  is '调度标识';
comment on column T_CEM_TASK_LOG.task_code
  is '调度任务代码';
comment on column T_CEM_TASK_LOG.start_date
  is '开始执行时间';
comment on column T_CEM_TASK_LOG.end_date
  is '执行结束时间';
comment on column T_CEM_TASK_LOG.log_status
  is '状态 0：执行中 1：执行完成 2：执行错误';
comment on column T_CEM_TASK_LOG.log_message
  is '日志信息';
comment on column T_CEM_TASK_LOG.createdate
  is '创建日期';
comment on column T_CEM_TASK_LOG.requestdata
  is '请求报文';
comment on column T_CEM_TASK_LOG.responsedata
  is '返回报文';
comment on column T_CEM_TASK_LOG.modifytime
  is '修改时间';
comment on column T_CEM_TASK_LOG.corpid
  is '企业id';
-- Create/Recreate indexes 
create index T_CEM_TASK_LOG_N1 on T_CEM_TASK_LOG (TASK_ID);
-- Create/Recreate primary, unique and foreign key constraints 
alter table T_CEM_TASK_LOG
  add constraint T_CEM_TASK_LOG_PK primary key (ID);

Create sequence

-- Create sequence 
create sequence seq_log
minvalue 1
maxvalue 99999999
start with 1
increment by 1
cache 20
cycle;

package

CREATE OR REPLACE PACKAGE LOGUTILS IS

	-- Author  : DYB
	-- Created : 2017/3/28 10:34:51
	-- Purpose : 日志记录工具类

	--日志
	PROCEDURE LOG(P_TASK_ID     VARCHAR2,
								P_TASK_CODE   VARCHAR2,
								P_START_DATE  DATE DEFAULT NULL,
								P_END_DATE    DATE DEFAULT NULL,
								P_LOG_STATUS  VARCHAR2 DEFAULT NULL,
								P_LOG_MESSAGE VARCHAR2 DEFAULT NULL);
  
  PROCEDURE INFO(p_proc_name varchar2, title varchar2, content clob);
  
  PROCEDURE DEBUG(p_proc_name varchar2, title varchar2, content clob);            
               
  PROCEDURE ERROR(p_proc_name varchar2, title varchar2, content clob);
END LOGUTILS;

body

CREATE OR REPLACE PACKAGE BODY LOGUTILS IS

	--日志
	PROCEDURE LOG(P_TASK_ID     VARCHAR2,
								P_TASK_CODE   VARCHAR2,
								P_START_DATE  DATE DEFAULT NULL,
								P_END_DATE    DATE DEFAULT NULL,
								P_LOG_STATUS  VARCHAR2 DEFAULT NULL,
								P_LOG_MESSAGE VARCHAR2 DEFAULT NULL) IS
		PRAGMA AUTONOMOUS_TRANSACTION;
		V_COUNT NUMBER;
	BEGIN
		SELECT COUNT(1)
			INTO V_COUNT
			FROM T_CEM_TASK_LOG T
		 WHERE T.TASK_ID = P_TASK_ID
			 AND T.TASK_CODE = P_TASK_CODE;
		IF V_COUNT = 0 THEN
			INSERT INTO T_CEM_TASK_LOG
				(ID,
				 TASK_ID,
				 TASK_CODE,
				 START_DATE,
				 END_DATE,
				 LOG_STATUS,
				 LOG_MESSAGE,
				 CREATEDATE)
			VALUES
				(CEM_TASK_LOG_S.NEXTVAL,
				 P_TASK_ID,
				 P_TASK_CODE,
				 P_START_DATE,
				 P_END_DATE,
				 P_LOG_STATUS,
				 P_LOG_MESSAGE,
				 SYSDATE);
		ELSE
			UPDATE T_CEM_TASK_LOG
				 SET END_DATE    = P_END_DATE,
						 LOG_STATUS  = P_LOG_STATUS,
						 LOG_MESSAGE = P_LOG_MESSAGE
			 WHERE TASK_ID = P_TASK_ID
				 AND TASK_CODE = P_TASK_CODE;
		
		END IF;
		COMMIT;
	END LOG;
  
   
  /*记录消息*/ 
  PROCEDURE INFO(p_proc_name varchar2, title varchar2, content clob) is 
    PRAGMA AUTONOMOUS_TRANSACTION;
  begin 
    INSERT INTO t_cem_proc_logs(id,proc_mc,title,content, log_type,log_time) 
    VALUES ('LOG'||to_char(sysdate,'YYYYMMDD')||lpad(SEQ_log.NEXTVAL,8,'0'), upper(p_proc_name), substr(title,1,4000), content, 'INFO',sysdate); 
    COMMIT; 
  EXCEPTION WHEN OTHERS THEN NULL; 
  ROLLBACK; 
  END; 
  /*记录测试*/ 
  PROCEDURE DEBUG(p_proc_name varchar2, title varchar2, content clob) is 
    PRAGMA AUTONOMOUS_TRANSACTION;
  begin 
    INSERT INTO t_cem_proc_logs(id,proc_mc,title,content, log_type,log_time) 
    VALUES ('LOG'||to_char(sysdate,'YYYYMMDD')||lpad(SEQ_log.NEXTVAL,8,'0'), upper(p_proc_name), substr(title,1,4000), content, 'DEBUG',sysdate); 
    COMMIT; 
  EXCEPTION WHEN OTHERS THEN NULL; 
  ROLLBACK; 
  END; 
  /*记录错误*/ 
  PROCEDURE ERROR(p_proc_name varchar2, title varchar2, content clob) is 
    PRAGMA AUTONOMOUS_TRANSACTION;
  begin 
    INSERT INTO t_cem_proc_logs(id,proc_mc,title,content, log_type,log_time) 
    VALUES ('LOG'||to_char(sysdate,'YYYYMMDD')||lpad(SEQ_log.NEXTVAL,8,'0'), upper(p_proc_name), substr(title,1,4000), content, 'ERROR',sysdate); 
    COMMIT; 
  EXCEPTION WHEN OTHERS THEN NULL; 
  ROLLBACK; 
  END; 
  
  
END LOGUTILS;