oracle dbms_utility,ORACLE DBMS_UTILITY.format_call_stack 001

SET SERVEROUTPUT ON

BEGIN

DBMS_OUTPUT.put_line('A BEGIN');

BEGIN

DBMS_OUTPUT.put_line('B BEGIN');

DECLARE

v_CallStack      VARCHAR2(2000);

BEGIN

DBMS_OUTPUT.put_line('C BEGIN');

v_CallStack := DBMS_UTILITY.format_call_stack;

DBMS_OUTPUT.put_line(v_CallStack);

DBMS_OUTPUT.put_line('C END');

END;

DBMS_OUTPUT.put_line('B END');

END;

DBMS_OUTPUT.put_line('A END');

END;

--DBMS_UTILITY.format_call_stack

SET SERVEROUTPUT ON

DECLARE

v_CallStack      VARCHAR2(2000);

BEGIN

DBMS_OUTPUT.put_line('C BEGIN');

v_CallStack := DBMS_UTILITY.format_call_stack;

DBMS_OUTPUT.put_line(v_CallStack);

DBMS_OUTPUT.put_line('C END');

END;

--结果

/*

C BEGIN

----- PL/SQL Call Stack -----

object      line  object

handle    number  name

135576A4         5  anonymous block

C END

*/

/**

CREATE OR REPLACE PROCEDURE C AS

v_CallStack      VARCHAR2(2000);

BEGIN

v_CallStack := DBMS_UTILITY.format_call_stack;

END C;

CREATE OR REPLACE PROCEDURE B AS

BEGIN

C;

END B;

CREATE OR REPLACE PROCEDURE A AS

BEGIN

B;

END A;

--类似结果

C BEGIN

----- PL/SQL Call Stack -----

object      line  object

handle    number  name

135576A4         4  PROCEDURE C

135576A4         5  PROCEDURE B

135576A4         5  PROCEDURE A

135576A4         5  anonymous block

C END

*/