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
*/