PLSQL中获取堆栈消息的方法

FUNCTION get_error_message RETURN VARCHAR2 IS

    l_msg_index     NUMBER;

    l_msg_data      VARCHAR2(2000);

    l_error_message VARCHAR2(2000);

  BEGIN

    FOR i IN 1 .. fnd_msg_pub.count_msg

    LOOP

      fnd_msg_pub.get(p_msg_index     => i,

                      p_encoded       => fnd_api.g_false,

                      p_data          => l_msg_data,

                      p_msg_index_out => l_msg_index);

      l_error_message := l_error_message || ' ' || l_msg_data;

    END LOOP;

    RETURN l_error_message;

  EXCEPTION

    WHEN OTHERS THEN

      RETURN l_error_message;

  END get_error_message;