DROP TABLE debug_output;

CREATE TABLE debug_output (message VARCHAR2(200));

CREATE OR REPLACE PACKAGE debugging AS

    FUNCTION log_msg (msg VARCHAR2) RETURN VARCHAR2;

    PRAGMA RESTRICT_REFERENCES(log_msg, WNDS, RNDS); --编译指令

END debugging;

/

CREATE OR REPLACE PACKAGE BODY debugging AS

    FUNCTION log_msg (msg VARCHAR2) RETURN VARCHAR2 IS

        PRAGMA AUTONOMOUS_TRANSACTION; --自治函数

    BEGIN

    --插入不会违背WNDS规则，因为这是一个自治程序

    INSERT INTO debug_output (message) VALUES (msg);

    COMMIT;

    RETURN msg;

    END;

END debugging;

/

--从查询调用包函数

DECLARE

    my_emp_id    NUMBER(6);

    my_last_name VARCHAR2(25);

    my_count     NUMBER;

BEGIN

    my_emp_id := 120;

    SELECT debugging.log_msg(last_name)

    INTO my_last_name

    FROM employees

    WHERE employee_id = my_emp_id;

    dbms_output.put_line(my_last_name);

    --即使执行了回滚操作,但插入到debug_output中的信息仍然存在

    --因为它是自治事务的一部分

    ROLLBACK;

END;

/

SELECT * FROM debug_output;