目錄

• 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;