Oracleエラーログと異常処理パッケージの詳細なソースの添付

1概要
1.目的:'クイック位置決めプログラム異常'
2.包処理の核心思想：「自治事務」--自治事務の「提出・ロールバック」と主事務の間は互いに影響しない
3.エラー異常記録ロジックは大体一致しています。ここに記録して、必要な時にコピー、貼り付けします。
4.考え方を検証する：エラーを報告する過程を実行することによって、「プログラム実行結果」と「ログテーブル」データ挿入状況を観察する
2効果のデモンストレーション
プログラム実行スクリーンショット:

ログクエリーのスクリーンショット:

3ソースコード

  ：
1.    ，   2     --         
  (1) odsdata:       
  (2) odscde :       
  --       ，        '   owner'

3.1エラーログ表

CREATE TABLE odsdata.ods_program_error_log (
 error_log_id    VARCHAR2(10) NOT NULL, -- CONSTRAINT pk_opel_error_log_id PRIMARY KEY(error_log_id)
 owner        VARCHAR2(30),
 package_name    VARCHAR2(30),
 procedure_name   VARCHAR2(30),
 error_comment    VARCHAR2(1000),
 error_backtrace   VARCHAR2(400),
 error_stack     VARCHAR2(4000),
 call_stack     VARCHAR2(4000),
 error_date     DATE NOT NULL,
 oracle_execute_user VARCHAR2(50),
 um_id        VARCHAR2(50)
);

COMMENT ON TABLE odsdata.ods_program_error_log IS '       ';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_log_id IS '    id';
COMMENT ON COLUMN odsdata.ods_program_error_log.owner IS '  ';
COMMENT ON COLUMN odsdata.ods_program_error_log.package_name IS '  ';
COMMENT ON COLUMN odsdata.ods_program_error_log.procedure_name IS '   ';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_comment IS '    ';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_backtrace IS '    ';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_stack IS '    ';
COMMENT ON COLUMN odsdata.ods_program_error_log.call_stack IS '    ';
COMMENT ON COLUMN odsdata.ods_program_error_log.error_date IS '    ';
COMMENT ON COLUMN odsdata.ods_program_error_log.oracle_execute_user IS 'oracle    ';
COMMENT ON COLUMN odsdata.ods_program_error_log.um_id IS '    um  ';

GRANT SELECT, INSERT, UPDATE ON odsdata.ods_program_error_log TO odscde;

3.2異常処理パッケージ
拡張：Oracleシーケンス詳細（sequence）
package：

CREATE OR REPLACE PACKAGE odscde.pkg_ods_error_handle IS
 --*************************************************
 --    :     
 --    : i_procedure_name    
 --     i_error_comment      （     ）
 --    :
 --    ： create by YoYo 2020-12-17
 --*************************************************
 PROCEDURE exception_handle(i_procedure_name IN VARCHAR2,
               i_error_comment IN VARCHAR2);
END pkg_ods_error_handle;

package body：

CREATE OR REPLACE PACKAGE BODY odscde.pkg_ods_error_handle IS
 --*************************************************
 --    :     
 --    : i_procedure_name    
 --     i_error_comment      （     ）
 --    :
 --    ： create by YoYo 2020-12-17
 --*************************************************
 PROCEDURE exception_handle(i_procedure_name IN VARCHAR2,
               i_error_comment IN VARCHAR2) IS
  PRAGMA AUTONOMOUS_TRANSACTION; -- !!!     
  v_log_info odsdata.ods_program_error_log%ROWTYPE;
 BEGIN
  v_log_info.error_log_id    := '1'; --     id（    "     "，     ）
  v_log_info.procedure_name   := i_procedure_name; --    
  v_log_info.error_comment    := i_error_comment;
  v_log_info.oracle_execute_user := sys_context('USERENV', 'SESSION_USER'); -- oracle    
  v_log_info.um_id        := nvl(sys_context('USERENV', 'OS_USER'),
                     USER); --     um  
  v_log_info.error_backtrace   := dbms_utility.format_error_backtrace; --     
  v_log_info.error_stack     := dbms_utility.format_error_stack; --     
  v_log_info.call_stack     := dbms_utility.format_call_stack; --     
  v_log_info.error_date     := SYSDATE;
 
  --    
  ----    
  v_log_info.owner := substr(v_log_info.error_backtrace,
                instr(v_log_info.error_backtrace, '"', 1) + 1,
                (instr(v_log_info.error_backtrace, '.', 1) -
                instr(v_log_info.error_backtrace, '"', 1) - 1));
  ----   
  v_log_info.package_name := substr(v_log_info.error_backtrace,
                   instr(v_log_info.error_backtrace,
                      '.',
                      1) + 1,
                   (instr(v_log_info.error_backtrace,
                       '"',
                       1,
                       2) - instr(v_log_info.error_backtrace,
                             '.',
                             1) - 1));
 
  --     
  INSERT INTO odsdata.ods_program_error_log
   (error_log_id,
    owner,
    package_name,
    procedure_name,
    error_comment,
    error_backtrace,
    error_stack,
    call_stack,
    error_date,
    oracle_execute_user,
    um_id)
  VALUES
   (v_log_info.error_log_id,
    v_log_info.owner,
    v_log_info.package_name,
    v_log_info.procedure_name,
    v_log_info.error_comment,
    v_log_info.error_backtrace,
    v_log_info.error_stack,
    v_log_info.call_stack,
    v_log_info.error_date,
    v_log_info.oracle_execute_user,
    v_log_info.um_id);
 
  COMMIT;
 END exception_handle;
END pkg_ods_error_handle;

3.3試験手順
プレゼンテーションエラー:一意の制約に違反します。
stuinfo:

CREATE TABLE odsdata.stu_info (
 sno  NUMBER(10) CONSTRAINT pk_si_sno PRIMARY KEY,
 sname VARCHAR2(50) NOT NULL
);

GRANT SELECT, INSERT, UPDATE ON odsdata.stu_info TO odscde;

INSERT INTO odsdata.stu_info(sno, sname) VALUES(1, '  ');
COMMIT;

package:

CREATE OR REPLACE PACKAGE odscde.pkg_ods_error_test AS
 PROCEDURE ods_error_test(o_flag  OUT VARCHAR2,
              o_message OUT VARCHAR2);
END pkg_ods_error_test;

package body：

CREATE OR REPLACE PACKAGE BODY odscde.pkg_ods_error_test AS
 PROCEDURE ods_error_test(o_flag  OUT VARCHAR2,
              o_message OUT VARCHAR2) IS
  i_procedure_name VARCHAR2(30) := 'ods_error_test';
 BEGIN
  INSERT INTO odsdata.stu_info (sno, sname) VALUES (1, '  ');
  COMMIT;
 
  o_flag  := 'Y';
  o_message := '    ！';
 EXCEPTION
  WHEN OTHERS THEN
   o_flag  := 'N';
   o_message := '    ！';
   pkg_ods_error_handle.exception_handle(i_procedure_name => i_procedure_name,
                      i_error_comment => '' --     、  
                      );
 END ods_error_test;
END pkg_ods_error_test;

以上で、Oracleエラーログ表と異常処理カバンについて詳しく説明しました。ソース付きの文章はここまで紹介しました。Oracleエラーログの内容は以前の文章を検索してください。または下記の関連記事を引き続きご覧ください。これからもよろしくお願いします。