Submitted by: Alex Bekhtin (afgm)

Is related to QA360

SET TERM ^ ;

CREATE PROCEDURE GET_CALLER_NAME
RETURNS (
OBJECT_NAME CHAR(31),
OBJECT_TYPE SMALLINT)
AS
declare variable tran_id integer;
begin
TRAN_ID = CURRENT_TRANSACTION;

IN AUTONOMOUS TRANSACTION DO
BEGIN
select first 1 skip 1 CS.mon$object_name, CS.mon$object_type
from mon$call_stack CS, mon$statements ST
where
CS.mon$statement_id = ST.mon$statement_id
AND ST.mon$transaction_id = :TRAN_ID
order by CS.mon$call_id ascending
into :OBJECT_NAME, :OBJECT_TYPE;
END

SUSPEND;
end^

CREATE PROCEDURE TEST_CALLER_NAME
RETURNS (
OBJECT_NAME CHAR(31),
OBJECT_TYPE SMALLINT)
AS
begin
select OBJECT_NAME, OBJECT_TYPE from GET_CALLER_NAME
into :OBJECT_NAME, :OBJECT_TYPE;

SUSPEND;
end^

SET TERM ; ^
----------------------------------
SQL> select * from TEST_CALLER_NAME;

OBJECT_NAME OBJECT_TYPE
=============================== ===========
TEST_CALLER_NAME 5

SQL> select * from TEST_CALLER_NAME;
...
SQL> select * from TEST_CALLER_NAME;
...
SQL> COMMIT WORK;
Statement failed, SQLSTATE = 08006
connection lost to database
Statement failed, SQLSTATE = 08006
connection lost to database

Commits: 49c1957