当前位置 : 主页 > 数据库 > mysql >

Oracle存储过程实现记录日志

来源:互联网 收集:自由互联 发布时间:2021-04-08
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 com

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;

网友评论