CREATE OR REPLACE FUNCTION GET_DATABASE_NAME
RETURN VARCHAR2
AUTHID CURRENT_USER IS
v_Sql VARCHAR(200);
v_result varchar2(32);
BEGIN
v_Sql := 'SELECT name FROM v$database WHERE rownum = 1';
EXECUTE IMMEDIATE ( v_Sql ) INTO v_result ;
RETURN v_result;
END GET_DATABASE_NAME;
转载于:https://my.oschina.net/yck108/blog/423893