[firebase-br] Ref. Execução Procedure

[Jeferson Oliveira]

2010/10/14 Omar Marques Haddad

> Tenho uma Procedure de Mensagem "SHOW_MESSAGE", que uso para dar display de
> mensagens dentro de Triggers, etc.
>
> Segue:
>
>
> SET TERM ^ ;
>
> create or alter procedure SHOW_MESSAGE (
>    MENSAGEM varchar(78))
> as
> BEGIN
>  UPDATE RDB$EXCEPTIONS
>     SET RDB$MESSAGE = :MENSAGEM
>   WHERE RDB$EXCEPTION_NAME = 'EXC_DINAMICO';
>  EXCEPTION EXC_DINAMICO;
> END^
>

Ao invés de alterar a tabela do sistema (que não é recomendável), basta
passar um parâmetro para a exceção:

create or alter procedure SHOW_MESSAGE (MENSAGEM varchar(78))
as
BEGIN
  EXCEPTION EXC_DINAMICO :MENSAGEM;
END^

--
Jeferson Oliveira