[firebird-support] Get exception message in storedproc

[j...@stekas.lt [firebird-support]]

CREATE PROCEDURE TESTPROC 
 AS
 BEGIN
     /* Something that can throw any exception */
     WHEN ANY DO BEGIN

         /* How to get here exception text for logging? */
     END
 END