[firebird-support] Retreiving exception message in PSQL

[sir_wally_lewis]

Hi.

I call a stored procedure in PSQL like this:

     BEGIN
       EXECUTE PROCEDURE MY_PROC
       WHEN ANY DO
         BEGIN
           THEERRMSG = 'GDSCODE ' || CAST( GDSCODE AS VARCHAR(20)); 
           INSERT INTO FAILED_LOG
           ( TS_SRT,  DE_MSG )
           VALUES
           ( CURRENT_TIMESTAMP, :THEERRMSG );        
         END
     END

Is there any way to retreive the actual error within PSQL as you would when 
running a TIBQuery?

ie.
  try
    qry.execute
  except
    on E.Exception do
      begin
        logit( e.message )
      end
  end

The actual error always gives details like line number place lots of stuff.

Kind Regards,

Robert.