Oracle數據庫經過定義TYPE及Member對象來實現日誌信息的分級管理

時間  2019-11-19
標籤 oracle 數據庫 經過 定義 type member 對象 實現 日誌 信息 分級 管理 欄目 Oracle 简体版
原文   原文鏈接

調用路徑： 數據庫

存儲過程-》調用函數初始化TYPE裏變量-》存儲過程調用具體級別的日誌操做-》調用TYPES實現體TYPE BOBIES裏的具體Member實現體-》調用公用的Member成員存儲過程寫入syslog表。 session

代碼樣例展現： 函數

一、存儲過程 性能

 
     
 
  
  1.  create or replace procedure sp_message_hisorderdata_create(  
    2.  
 
  
  2.         p_l_date  HsCrmType.LDate%TYPE,  
    3.  
 
  
  3.         p_vc_customer hscrmtype.vc50%type) IS  
    4.  
 
  
  4.    
    5.  
 
  
  5.     v_l_date                              HsCrmType.LDate%Type;  
    6.  
 
  
  6.     v_l_currentdate                       HsCrmType.LDate%Type;  
    7.  
 
  
  7.     v_vc_customer                         hscrmtype.vc50%type;  
    8.  
 
  
  8.     v_l_count                             HsCrmType.LInt%Type;  
    9.  
 
  
  9.     v_l_total                             HsCrmType.LInt%Type;  
    10.  
 
  
  10.    
    11.  
 
  
  11.     v_vc_open_value                       HsCrmType.VC255%Type;  
    12.  
 
  
  12.     v_vc_open_value_temp                  HsCrmType.VC255%Type;  
    13.  
 
  
  13.     v_vc_customer_no                      HsCrmType.VC20%Type;  
    14.  
 
  
  14.     vc_product_no                         HsCrmType.CKind%Type;  
    15.  
 
  
  15.     vc_product_temp                       HsCrmType.CKind%Type;  
    16.  
 
  
  16.     v_vc_prefix                           HsCrmType.CKind%Type;  
    17.  
 
  
  17.    
    18.  
 
  
  18.     v_vc_temp1                            HsCrmType.VC255%Type;  
    19.  
 
  
  19.     v_vc_temp2                            HsCrmType.VC255%Type;  
    20.  
 
  
  20.     v_vc_temp3                            HsCrmType.VC255%Type;  
    21.  
 
  
  21.     v_vc_temp4                            HsCrmType.VC255%TYPE;  
    22.  
 
  
  22.    
    23.  
 
  
  23.     V_L_SPEAK_NO                          HsCrmType.LInt%Type;  
    24.  
 
  
  24.    
    25.  
 
  
  25.    l_tyLog  ty_logManager := ty_logManager('system','003');  
    26.  
 
  
  26.  begin  
    27.  
 
  
  27.    l_tyLog.up_Enter('sp_message_hisorderdata_create開始');  
    28.  
 
  
  28.    v_vc_temp1 := chr(1)||' '||chr(1)||' '||chr(1)||' '||chr(1)||' ';  
    29.  
 
  
  29.    v_vc_temp2 := chr(1)||' '||chr(1)||' '||chr(1)||' ';  
    30.  
 
  
  30.    v_vc_temp3 := chr(1)||' '||chr(1)||' ';  
    31.  
 
  
  31.    v_vc_temp4 := chr(1)||' ';  
    32.  
 
  
  32.    
    33.  
 
  
  33.    --zhoudy 2013-01-30 添加初始化賦值  
    34.  
 
  
  34.    v_vc_open_value := '';  
    35.  
 
  
  35.    
    36.  
 
  
  36.    v_l_total  := 0;  
    37.  
 
  
  37.  V_L_SPEAK_NO := 0;  
    38.  
 
  
  38.    v_l_date := nvl(p_l_date,0);  
    39.  
 
  
  39.    v_vc_customer := nvl(p_vc_customer,' ');  
    40.  
 
  
  40.    if v_l_date = 0  then  
    41.  
 
  
  41.      v_l_date := to_number(to_char(SYSDATE-1,'YYYYMMDD'));  
    42.  
 
  
  42.    end if;  
    43.  
 
  
  43.    
    44.  
 
  
  44.    FOR r IN (SELECT a.vc_customer_no  
    45.  
 
  
  45.                      ,a.l_product_no  
    46.  
 
  
  46.                      ,'3' AS c_sourcetype  
    47.  
 
  
  47.                      ,a.l_de_begin_date AS l_de_begin_date  
    48.  
 
  
  48.                      ,a.l_de_end_date AS l_de_end_date  
    49.  
 
  
  49.                      ,(SELECT WMSYS.WM_CONCAT(b.vc_open_value) FROM hscrm_dbo.orderinfo b  
    50.  
 
  
  50.                               WHERE b.vc_customer_no=a.vc_customer_no  
    51.  
 
  
  51.                               AND b.l_product_no=a.l_product_no  
    52.  
 
  
  52.                               and b.l_product_no < 20000) AS vc_open_value  
    53.  
 
  
  53.                      ,'1' AS c_processtype  
    54.  
 
  
  54.              FROM hscrm_dbo.speakforrelation a  
    55.  
 
  
  55.                   WHERE  --a.l_create_date <= v_l_date  
    56.  
 
  
  56.                   --a.l_create_date <= 20101026  
    57.  
 
  
  57.                   --and  
    58.  
 
  
  58.                   a.l_product_no < 20000  
    59.  
 
  
  59.                   --and a.l_create_date <= 20101024  
    60.  
 
  
  60.                   --and (a.vc_customer_no = v_vc_customer or v_vc_customer = ' ')  
    61.  
 
  
  61.                   --and a.l_product_no=11003  
    62.  
 
  
  62.                   GROUP BY vc_customer_no,l_product_no,l_de_begin_date,l_de_end_date  
    63.  
 
  
  63.    )  
    64.  
 
  
  64.    LOOP  
    65.  
 
  
  65.    
    66.  
 
  
  66.      v_vc_prefix := substr(r.vc_customer_no,1,3);  
    67.  
 
  
  67.      if v_vc_prefix = 'CRM' then  
    68.  
 
  
  68.        v_vc_customer_no := substr(r.vc_customer_no,4);  
    69.  
 
  
  69.        v_vc_open_value_temp := r.vc_open_value;  
    70.  
 
  
  70.        vc_product_temp := substr(to_char(r.l_product_no),1,1);  
    71.  
 
  
  71.        if vc_product_temp = '1' then  
    72.  
 
  
  72.          v_l_total := v_l_total + 1;  
    73.  
 
  
  73.          vc_product_no := substr(to_char(r.l_product_no),2);  
    74.  
 
  
  74.    
    75.  
 
  
  75.          SELECT COUNT(*) INTO v_l_count FROM hscrm_dbo.smsserviceparam WHERE vc_smsno = to_char(r.l_product_no);  
    76.  
 
  
  76.    
    77.  
 
  
  77.          CASE  
    78.  
 
  
  78.            WHEN v_l_count = 0 THEN  
    79.  
 
  
  79.              v_vc_open_value := '';  
    80.  
 
  
  80.            WHEN v_l_count = 1 THEN  
    81.  
 
  
  81.              v_vc_open_value := REPLACE(r.vc_open_value,v_vc_temp1);  
    82.  
 
  
  82.            WHEN v_l_count = 2 THEN  
    83.  
 
  
  83.              v_vc_open_value := REPLACE(r.vc_open_value,v_vc_temp2);  
    84.  
 
  
  84.            WHEN v_l_count = 3 THEN  
    85.  
 
  
  85.              v_vc_open_value := REPLACE(r.vc_open_value,v_vc_temp3);  
    86.  
 
  
  86.            WHEN v_l_count = 4 THEN  
    87.  
 
  
  87.              v_vc_open_value := REPLACE(r.vc_open_value,v_vc_temp4);  
    88.  
 
  
  88.              --zhoudy 20130131  
    89.  
 
  
  89.            ELSE  
    90.  
 
  
  90.              v_vc_open_value := REPLACE(r.vc_open_value,v_vc_temp4);  
    91.  
 
  
  91.          END CASE;  
    92.  
 
  
  92.    
    93.  
 
  
  93.          v_vc_open_value := REGEXP_REPLACE(v_vc_open_value,' ');  
    94.  
 
  
  94.          v_vc_open_value := REPLACE(v_vc_open_value,',',chr(1));  
    95.  
 
  
  95.  --V_L_SPEAK_NO := r.L_SPEAK_NO;  
    96.  
 
  
  96.          INSERT INTO THJZX_DZGX_IN_HIS2(KHH,CPBH,DZLY,DZSJ,DQSJ,DZLX,CS,CJRQ)  
    97.  
 
  
  97.                 VALUES(v_vc_customer_no  
    98.  
 
  
  98.                       ,vc_product_no  
    99.  
 
  
  99.                       ,r.c_sourcetype  
    100.  
 
  
  100.                       ,r.l_de_begin_date  
    101.  
 
  
  101.                       ,r.l_de_end_date  
    102.  
 
  
  102.                       ,r.c_processtype  
    103.  
 
  
  103.                       ,v_vc_open_value  
    104.  
 
  
  104.                       ,v_l_date);  
    105.  
 
  
  105.        end if;  
    106.  
 
  
  106.      end if;  
    107.  
 
  
  107.    
    108.  
 
  
  108.      COMMIT;  
    109.  
 
  
  109.    END LOOP;  
    110.  
 
  
  110.    commit;  
    111.  
 
  
  111.    l_tyLog.up_Leave('sp_message_hisorderdata_create處理結束,成功生成數'||v_l_total);  
    112.  
 
  
  112.    
    113.  
 
  
  113.    exception  
    114.  
 
  
  114.         when others then  
    115.  
 
  
  115.             rollback;  
    116.  
 
  
  116.             l_tyLog.up_Error('sp_message_orderdata_create error:'||v_vc_customer_no||':'||V_L_SPEAK_NO||':'||v_l_date||':'||vc_product_no||':'|| v_vc_open_value||':'||SQLCODE);  
    117.  
 
  
  117.  end sp_message_hisorderdata_create;  
    118.

片斷解析： spa

初始化log的定義，其實如今type的內部； 日誌

 
     
 
  
  1.  l_tyLog  ty_logManager := ty_logManager('system','003');   
    2.

調用log具體子過程 code

 
     
 
  
  1.  l_tyLog.up_Error('sp_message_orderdata_create error:'||v_vc_customer_no||':'||V_L_SPEAK_NO||':'||v_l_date||':'||vc_product_no||':'|| v_vc_open_value||':'||SQLCODE);  
    2.  

 
 
     
 
  
  1.  l_tyLog.up_Leave('sp_message_hisorderdata_create處理結束,成功生成數'||v_l_total);  
    2.

二、TYPE定義 對象

 上面初始化時調用的TY_LOGMANAGER是TYPE構造函數是的，整個TYPE的定義以下，注意其中的Member成員定義。 接口

 
     
 
  
  1.  CREATE OR REPLACE TYPE "TY_LOGMANAGER"                                                                          AS OBJECT  
    2.  
 
  
  2.  (  
    3.  
 
  
  3.  /*  
    4.  
 
  
  4.    * $Header: $  
    5.  
 
  
  5.    *  
    6.  
 
  
  6.    *  
    7.  
 
  
  7.    *  Overview:  日誌管理器，封裝LOG，規範化LOG的輸出  
    8.  
 
  
  8.                  實現了「多個Session的區別、性能問題定位、錯誤堆棧信息」，  
    9.  
 
  
  9.                  設有LogLevel開關  
    10.  
 
  
  10.    *  
    11.  
 
  
  11.    *  NOTES:  NULL  
    12.  
 
  
  12.    *--系統支持的LOG基本設置  
    13.  
 
  
  13.    *C_LOG_DEBUG CONSTANT NUMBER(1) := 1;  
    14.  
 
  
  14.    *C_LOG_INFO  CONSTANT NUMBER(1) := 2;  
    15.  
 
  
  15.    *C_LOG_WARN  CONSTANT NUMBER(1) := 3;  
    16.  
 
  
  16.    *C_LOG_ERROR CONSTANT NUMBER(1) := 4;  
    17.  
 
  
  17.    *--當前系統LOG的設置  
    18.  
 
  
  18.    *C_CURR_LOG_LEVEL CONSTANT NUMBER(1) := C_LOG_DEBUG;  
    19.  
 
  
  19.    *C_CURR_PER_LEVEL CONSTANT NUMBER(10) := 1000; --單位（百分之一秒）除以100即爲秒數  
    20.  
 
  
  20.    */  
    21.  
 
  
  21.    
    22.  
 
  
  22.  ---成員屬性  
    23.  
 
  
  23.  -- 對象生成的時間  
    24.  
 
  
  24.    C_CURR_LOG_LEVEL  NUMBER,  
    25.  
 
  
  25.    C_CURR_PER_LEVEL  NUMBER,  
    26.  
 
  
  26.    m_nStartTime      NUMBER,  
    27.  
 
  
  27.    m_nSessionID      CHAR(20),  
    28.  
 
  
  28.    m_varTerminal     VARCHAR2(16),  
    29.  
 
  
  29.    m_varBusinessCode CHAR(100),  
    30.  
 
  
  30.    m_chOperator      CHAR(20),  
    31.  
 
  
  31.    
    32.  
 
  
  32.  ---成員函數  
    33.  
 
  
  33.  -- 構造函數  
    34.  
 
  
  34.    CONSTRUCTOR FUNCTION ty_logManager  
    35.  
 
  
  35.    (  
    36.  
 
  
  36.      i_Operator        IN CHAR DEFAULT NULL,  
    37.  
 
  
  37.      i_varBusinessCode IN VARCHAR2 DEFAULT NULL  
    38.  
 
  
  38.    ) RETURN SELF AS RESULT,  
    39.  
 
  
  39.    
    40.  
 
  
  40.  -- 函數入口輸出重要信息  
    41.  
 
  
  41.    MEMBER PROCEDURE up_Enter(i_varMsg IN VARCHAR2 DEFAULT NULL),  
    42.  
 
  
  42.    
    43.  
 
  
  43.  -- 正常調用SP結束  
    44.  
 
  
  44.    MEMBER PROCEDURE up_Leave(i_varMsg IN VARCHAR2 DEFAULT NULL),  
    45.  
 
  
  45.    
    46.  
 
  
  46.  -- 輸出up_Debug信息到日誌表  
    47.  
 
  
  47.    MEMBER PROCEDURE up_Debug(i_LogDesc IN VARCHAR2),  
    48.  
 
  
  48.    
    49.  
 
  
  49.  -- 輸出up_Info信息到日誌表  
    50.  
 
  
  50.    MEMBER PROCEDURE up_Info(i_LogDesc IN VARCHAR2),  
    51.  
 
  
  51.    
    52.  
 
  
  52.  -- 輸出up_Warning信息到日誌表  
    53.  
 
  
  53.    MEMBER PROCEDURE up_Warning(i_LogDesc IN VARCHAR2),  
    54.  
 
  
  54.    
    55.  
 
  
  55.  -- 輸出up_Error信息到日誌表  
    56.  
 
  
  56.    MEMBER PROCEDURE up_Error(i_LogDesc IN VARCHAR2),  
    57.  
 
  
  57.    
    58.  
 
  
  58.  -- 往T_LOG中插入記錄  
    59.  
 
  
  59.    MEMBER PROCEDURE up_InsertLog  
    60.  
 
  
  60.    (  
    61.  
 
  
  61.      i_LOGID        IN NUMBER,  
    62.  
 
  
  62.      i_LOGDATE      IN CHAR,  
    63.  
 
  
  63.      i_LOGTIME      IN CHAR,  
    64.  
 
  
  64.      i_LogLevel     IN CHAR,  
    65.  
 
  
  65.      i_ELAPSETIME   IN NUMBER,  
    66.  
 
  
  66.      i_SESSIONID    IN CHAR,  
    67.  
 
  
  67.      i_TERMINAL     IN CHAR,  
    68.  
 
  
  68.      i_Operator     IN CHAR,  
    69.  
 
  
  69.      i_LOGDESC      IN VARCHAR2  
    70.  
 
  
  70.    )  
    71.  
 
  
  71.  )  
    72.

三、TYPE BOBY定義 terminal

 上面的TYPE體中定義了各個級別的Log處理Member子過程，其具體實現則在TYPE BODY中進行，源碼以下:

注意其實現中的公用過程的定義。 

 
     
 
  
  1.  CREATE OR REPLACE TYPE BODY ty_logManager IS  
    2.  
 
  
  2.    
    3.  
 
  
  3.    /*************************************************************************  
    4.  
 
  
  4.    【函數功能】構造LOG對象，記錄開始此對象生成的開始時間，並記錄日誌  
    5.  
 
  
  5.    【使用狀況】構造函數，對象定義時自動調用  
    6.  
 
  
  6.    【參數說明】i_varBusinessCode IN VARCHAR2，通常傳入調用的SP程序名或者業務對應的代號  
    7.  
 
  
  7.    【異常處理】出錯時，處理全部異常，不拋出異常  
    8.  
 
  
  8.     *************************************************************************/  
    9.  
 
  
  9.    CONSTRUCTOR FUNCTION ty_logManager  
    10.  
 
  
  10.    (  
    11.  
 
  
  11.      i_Operator        IN CHAR DEFAULT NULL,  
    12.  
 
  
  12.      i_varBusinessCode IN VARCHAR2 DEFAULT NULL  
    13.  
 
  
  13.    ) RETURN SELF AS RESULT IS  
    14.  
 
  
  14.    BEGIN  
    15.  
 
  
  15.      m_nStartTime      := dbms_utility.get_time;  
    16.  
 
  
  16.      m_nSessionID      := userenv('sessionid');  
    17.  
 
  
  17.      m_varTerminal     := userenv('terminal');  
    18.  
 
  
  18.      m_varBusinessCode := i_varBusinessCode;  
    19.  
 
  
  19.      m_chOperator    := i_Operator;  
    20.  
 
  
  20.    
    21.  
 
  
  21.      RETURN;  
    22.  
 
  
  22.    EXCEPTION  
    23.  
 
  
  23.      WHEN OTHERS THEN  
    24.  
 
  
  24.        NULL;  
    25.  
 
  
  25.    END;  
    26.  
 
  
  26.    
    27.  
 
  
  27.    /*************************************************************************  
    28.  
 
  
  28.    【函數功能】 調用SP接口的入口，記錄重要參數信息  
    29.  
 
  
  29.    【注意事項】通常在SP結束時調用  
    30.  
 
  
  30.    【參數說明】i_SPName IN VARCHAR2，通常傳入調用的SP程序名  
    31.  
 
  
  31.    【異常處理】出錯時，處理全部異常，不拋出異常  
    32.  
 
  
  32.     *************************************************************************/  
    33.  
 
  
  33.    MEMBER PROCEDURE up_Enter(i_varMsg IN VARCHAR2 DEFAULT NULL) IS  
    34.  
 
  
  34.    BEGIN  
    35.  
 
  
  35.      up_Info(i_varMsg || ',Enter.');  
    36.  
 
  
  36.    EXCEPTION  
    37.  
 
  
  37.      WHEN OTHERS THEN  
    38.  
 
  
  38.        NULL;  
    39.  
 
  
  39.    END;  
    40.  
 
  
  40.    
    41.  
 
  
  41.    /*************************************************************************  
    42.  
 
  
  42.    【函數功能】正常調用SP結束，記錄時間統計信息  
    43.  
 
  
  43.    【異常處理】出錯時，處理全部異常，不拋出異常  
    44.  
 
  
  44.     *************************************************************************/  
    45.  
 
  
  45.    MEMBER PROCEDURE up_Leave(i_varMsg IN VARCHAR2 DEFAULT NULL) IS  
    46.  
 
  
  46.    BEGIN  
    47.  
 
  
  47.      up_Info(i_varMsg || ',Leave.');  
    48.  
 
  
  48.    EXCEPTION  
    49.  
 
  
  49.      WHEN OTHERS THEN  
    50.  
 
  
  50.        NULL;  
    51.  
 
  
  51.    END;  
    52.  
 
  
  52.    
    53.  
 
  
  53.    /*************************************************************************  
    54.  
 
  
  54.    【函數功能】輸出up_Debug信息到日誌表 T_LOG  
    55.  
 
  
  55.    【注意事項】注意參數的長度和數據庫一致  
    56.  
 
  
  56.    【異常處理】出錯時，處理全部異常，不拋出異常。  
    57.  
 
  
  57.     *************************************************************************/  
    58.  
 
  
  58.    MEMBER PROCEDURE up_Debug(i_LogDesc IN VARCHAR2) IS  
    59.  
 
  
  59.      PRAGMA AUTONOMOUS_TRANSACTION;  
    60.  
 
  
  60.    
    61.  
 
  
  61.      l_date CHAR(8);  
    62.  
 
  
  62.      l_time CHAR(8);  
    63.  
 
  
  63.    
    64.  
 
  
  64.      l_LogID NUMBER(10);  
    65.  
 
  
  65.    BEGIN  
    66.  
 
  
  66.      SELECT to_char(SYSDATE, 'yyyymmdd'),  
    67.  
 
  
  67.             to_char(SYSDATE, 'hh24miss'),  
    68.  
 
  
  68.             seq_syslog.NEXTVAL  
    69.  
 
  
  69.        INTO l_date, l_time, l_LogID  
    70.  
 
  
  70.        FROM dual;  
    71.  
 
  
  71.    
    72.  
 
  
  72.      up_InsertLog(l_LogID,  
    73.  
 
  
  73.                   l_date,  
    74.  
 
  
  74.                   l_time,  
    75.  
 
  
  75.    
    76.  
 
  
  76.                   '1',--Debug  
    77.  
 
  
  77.                   (dbms_utility.get_time - m_nStartTime),  
    78.  
 
  
  78.                   m_nSessionID,  
    79.  
 
  
  79.                   m_varTerminal,  
    80.  
 
  
  80.                   m_chOperator,  
    81.  
 
  
  81.                   i_LOGDESC);  
    82.  
 
  
  82.      COMMIT;  
    83.  
 
  
  83.    EXCEPTION  
    84.  
 
  
  84.      WHEN OTHERS THEN  
    85.  
 
  
  85.        ROLLBACK;  
    86.  
 
  
  86.    END;  
    87.  
 
  
  87.    
    88.  
 
  
  88.    /*************************************************************************  
    89.  
 
  
  89.    【函數功能】輸出up_Info信息到日誌表 T_LOG  
    90.  
 
  
  90.    【注意事項】注意參數的長度和數據庫一致  
    91.  
 
  
  91.    【異常處理】出錯時，處理全部異常，不拋出異常  
    92.  
 
  
  92.     *************************************************************************/  
    93.  
 
  
  93.    MEMBER PROCEDURE up_Info(i_LogDesc IN VARCHAR2) IS  
    94.  
 
  
  94.      PRAGMA AUTONOMOUS_TRANSACTION;  
    95.  
 
  
  95.    
    96.  
 
  
  96.      l_date  CHAR(8);  
    97.  
 
  
  97.      l_time  CHAR(8);  
    98.  
 
  
  98.      l_LogID NUMBER(10);  
    99.  
 
  
  99.    BEGIN  
    100.  
 
  
  100.      SELECT to_char(SYSDATE, 'yyyymmdd'),  
    101.  
 
  
  101.             to_char(SYSDATE, 'hh24miss'),  
    102.  
 
  
  102.             seq_syslog.NEXTVAL  
    103.  
 
  
  103.        INTO l_date, l_time, l_LogID  
    104.  
 
  
  104.        FROM dual;  
    105.  
 
  
  105.    
    106.  
 
  
  106.      up_InsertLog(l_LogID,  
    107.  
 
  
  107.                   l_date,  
    108.  
 
  
  108.                   l_time,  
    109.  
 
  
  109.    
    110.  
 
  
  110.                   '2',--Info  
    111.  
 
  
  111.                   (dbms_utility.get_time - m_nStartTime),  
    112.  
 
  
  112.                   m_nSessionID,  
    113.  
 
  
  113.                   m_varTerminal,  
    114.  
 
  
  114.                   m_chOperator,  
    115.  
 
  
  115.                   i_LOGDESC);  
    116.  
 
  
  116.      COMMIT;  
    117.  
 
  
  117.    EXCEPTION  
    118.  
 
  
  118.      WHEN OTHERS THEN  
    119.  
 
  
  119.        ROLLBACK;  
    120.  
 
  
  120.    END;  
    121.  
 
  
  121.    
    122.  
 
  
  122.    /*************************************************************************  
    123.  
 
  
  123.    【函數功能】輸出up_Warning信息到日誌表 T_LOG  
    124.  
 
  
  124.    【注意事項】注意參數的長度和數據庫一致  
    125.  
 
  
  125.    【異常處理】出錯時，處理全部異常，不拋出異常  
    126.  
 
  
  126.     *************************************************************************/  
    127.  
 
  
  127.    MEMBER PROCEDURE up_Warning(i_LogDesc IN VARCHAR2) IS  
    128.  
 
  
  128.      PRAGMA AUTONOMOUS_TRANSACTION;  
    129.  
 
  
  129.    
    130.  
 
  
  130.      l_date CHAR(8);  
    131.  
 
  
  131.      l_time CHAR(8);  
    132.  
 
  
  132.    
    133.  
 
  
  133.      l_LogID NUMBER(10);  
    134.  
 
  
  134.    BEGIN  
    135.  
 
  
  135.      SELECT to_char(SYSDATE, 'yyyymmdd'),  
    136.  
 
  
  136.             to_char(SYSDATE, 'hh24miss'),  
    137.  
 
  
  137.             seq_syslog.NEXTVAL  
    138.  
 
  
  138.        INTO l_date, l_time, l_LogID  
    139.  
 
  
  139.        FROM dual;  
    140.  
 
  
  140.    
    141.  
 
  
  141.      up_InsertLog(l_LogID,  
    142.  
 
  
  142.                   l_date,  
    143.  
 
  
  143.                   l_time,  
    144.  
 
  
  144.    
    145.  
 
  
  145.                   '3',--Warn  
    146.  
 
  
  146.                   (dbms_utility.get_time - m_nStartTime),  
    147.  
 
  
  147.                   m_nSessionID,  
    148.  
 
  
  148.                   m_varTerminal,  
    149.  
 
  
  149.                   m_chOperator,  
    150.  
 
  
  150.                   i_LOGDESC);  
    151.  
 
  
  151.      COMMIT;  
    152.  
 
  
  152.    EXCEPTION  
    153.  
 
  
  153.      WHEN OTHERS THEN  
    154.  
 
  
  154.        ROLLBACK;  
    155.  
 
  
  155.    
    156.  
 
  
  156.    END;  
    157.  
 
  
  157.    
    158.  
 
  
  158.    /*************************************************************************  
    159.  
 
  
  159.    【函數功能】輸出up_Error信息到日誌表 T_LOG  
    160.  
 
  
  160.    【注意事項】注意參數的長度和數據庫一致  
    161.  
 
  
  161.    【異常處理】出錯時，處理全部異常，不拋出異常  
    162.  
 
  
  162.     *************************************************************************/  
    163.  
 
  
  163.    MEMBER PROCEDURE up_Error(i_LogDesc IN VARCHAR2) IS  
    164.  
 
  
  164.      PRAGMA AUTONOMOUS_TRANSACTION;  
    165.  
 
  
  165.    
    166.  
 
  
  166.      l_date CHAR(8);  
    167.  
 
  
  167.      l_time CHAR(8);  
    168.  
 
  
  168.    
    169.  
 
  
  169.      l_LogID NUMBER(10);  
    170.  
 
  
  170.    BEGIN  
    171.  
 
  
  171.      SELECT to_char(SYSDATE, 'yyyymmdd'),  
    172.  
 
  
  172.             to_char(SYSDATE, 'hh24miss'),  
    173.  
 
  
  173.             seq_syslog.NEXTVAL  
    174.  
 
  
  174.        INTO l_date, l_time, l_LogID  
    175.  
 
  
  175.        FROM dual;  
    176.  
 
  
  176.    
    177.  
 
  
  177.      up_InsertLog(l_LogID,  
    178.  
 
  
  178.                   l_date,  
    179.  
 
  
  179.                   l_time,  
    180.  
 
  
  180.                   '4',--Error  
    181.  
 
  
  181.                   (dbms_utility.get_time - m_nStartTime),  
    182.  
 
  
  182.                   m_nSessionID,  
    183.  
 
  
  183.                   m_varTerminal,  
    184.  
 
  
  184.                   m_chOperator,  
    185.  
 
  
  185.                   i_LOGDESC || CHR(10) ||  
    186.  
 
  
  186.                   DBMS_UTILITY.FORMAT_Error_BACKTRACE);  
    187.  
 
  
  187.      COMMIT;  
    188.  
 
  
  188.    EXCEPTION  
    189.  
 
  
  189.      WHEN OTHERS THEN  
    190.  
 
  
  190.        ROLLBACK;  
    191.  
 
  
  191.    
    192.  
 
  
  192.    END;  
    193.  
 
  
  193.    
    194.  
 
  
  194.    /*************************************************************************  
    195.  
 
  
  195.    【函數功能】往日誌表T_LOG中插入一條記錄  
    196.  
 
  
  196.    【使用狀況】建議外部不要直接調用  
    197.  
 
  
  197.    【異常處理】出錯時，不處理任何異常  
    198.  
 
  
  198.     *************************************************************************/  
    199.  
 
  
  199.    MEMBER PROCEDURE up_InsertLog  
    200.  
 
  
  200.    (  
    201.  
 
  
  201.      i_LOGID        IN NUMBER,  
    202.  
 
  
  202.      i_LOGDATE      IN CHAR,  
    203.  
 
  
  203.      i_LOGTIME      IN CHAR,  
    204.  
 
  
  204.      i_LogLevel     IN CHAR,  
    205.  
 
  
  205.      i_ELAPSETIME   IN NUMBER,  
    206.  
 
  
  206.      i_SESSIONID    IN CHAR,  
    207.  
 
  
  207.      i_TERMINAL     IN CHAR,  
    208.  
 
  
  208.      i_Operator     IN CHAR,  
    209.  
 
  
  209.      i_LOGDESC      IN VARCHAR2  
    210.  
 
  
  210.    ) IS  
    211.  
 
  
  211.    BEGIN  
    212.  
 
  
  212.      C_CURR_LOG_LEVEL := to_number(sp_message_sysparameters_get(0,5029));--1  
    213.  
 
  
  213.      C_CURR_PER_LEVEL := to_number(sp_message_sysparameters_get(0,5030));--1000  
    214.  
 
  
  214.      IF C_CURR_LOG_LEVEL <= i_LogLevel  
    215.  
 
  
  215.         OR C_CURR_PER_LEVEL <= i_ELAPSETIME THEN  
    216.  
 
  
  216.        INSERT INTO syslog  
    217.  
 
  
  217.          (l_serial_no  
    218.  
 
  
  218.          ,l_date  
    219.  
 
  
  219.          ,l_time  
    220.  
 
  
  220.          ,c_loglevel  
    221.  
 
  
  221.          ,l_elapsetime  
    222.  
 
  
  222.          ,vc_sessionid  
    223.  
 
  
  223.          ,vc_terminal  
    224.  
 
  
  224.          ,vc_businesscode  
    225.  
 
  
  225.          ,vc_operator_no  
    226.  
 
  
  226.          ,vc_logdesc)  
    227.  
 
  
  227.        VALUES  
    228.  
 
  
  228.          (i_LOGID,  
    229.  
 
  
  229.           i_LOGDATE,  
    230.  
 
  
  230.           i_LOGTIME,  
    231.  
 
  
  231.           i_LogLevel,  
    232.  
 
  
  232.           i_ELAPSETIME,  
    233.  
 
  
  233.           i_SESSIONID,  
    234.  
 
  
  234.           i_TERMINAL,  
    235.  
 
  
  235.           m_varBUSINESSCODE,  
    236.  
 
  
  236.           i_Operator,  
    237.  
 
  
  237.           i_LOGDESC);  
    238.  
 
  
  238.      END IF;  
    239.  
 
  
  239.    END;  
    240.  
 
  
  240.  END;  
    241.

 

四、日誌截圖展現

 可見上面初始化時候的類型爲「system」，vc_logdesc字段則記錄了咱們在調用地方記錄日誌的文本提示信息，如操做的記錄id、產品id、以及報錯信息、ora0000等的方便咱們排查的信息。

數據

文章小結

由上面能夠看到經過層層封裝，最終咱們的日誌信息是寫入了syslog表進行了統一管理，並經過TYPE定義了各個級別的日誌寫入柄對外提供各個級別日誌的信息寫入。

相關文章
相關標籤/搜索
每日一句
    每一个你不满意的现在，都有一个你没有努力的曾经。
本站公眾號
   歡迎關注本站公眾號,獲取更多信息
聯繫我們 最近搜索 最新文章 沪ICP备13005482号-10 MyBatis教程 SQL 教程 MySQL教程 Java 教程 Thymeleaf 教程 Hibernate教程 Spring教程 Redis教程