Exception en Procedimiento Almacenado

[Neeruu]

Hola..... Si estamos hablando de Firebird....

El ejemplo que pones compila... No he Probado si anda.... pero compila....

El problema se me da cuando tengo esta situación:

/* Excepcion para generar un mensaje de error */
create exception err_breakpoint 'Error';

Código Delphi [-]
/* Procedimiento o trigger donde debe capturarse la excepcion */
trigger/store procedure
begin
   descripcion = 'ALTER TABLE TTT ADD CAMPO2 INTEGER';
   execute statemente descripcion;
   /* Capturo la excepcion */
   /* ANY es cualquier excepcion */
   /* Tambien se pueden poner los valores de cada excepcion individual */
   when any do
   begin
      exception err_breakpoint 'Ha ocurrido un error al ejecutar ' || descripcion
   end;

   Suspend; //Y ACA ES DONDE ME DICE " parsing error - suspend."
end

Porque? no se... me gustaría saber, si alguien me pudiera explicar.... agredecido estare....

Saluda atte Neeruu!!!