[firebase-br] Dúvidas em SP !!!

[Glênio Côrtes Himmen]

Galera,

Estou com problemas na procedure abaixo, o FB 1.5.2 está reclamando um erro 
no ; do select...

---------- STATEMENT ----------

ALTER PROCEDURE PROGRAMA_SP (
    NOME_PRG CHAR(8) CHARACTER SET WIN1252)
AS
DECLARE VARIABLE QTD_PROGRAMAS INTEGER;
begin
  /* Procedure Text */
  select count (p.cd_programa) as qtd_programas from programa p where 
(p.cd_programa = :nome_prg);
  if (qtd_programas = 0) then
     begin
       exception nao_existe;
     end
  suspend;
end



---------- ERROR MESSAGE ----------

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 7, char 98.
;.

Prefeitura Municipal de Aparecida de Goiânia
Rua João Batista de Toledo, 16, Setor Central
Aparecida de Goiânia-GO - CEP - 74.980-901, Fone: (62) 545-5818
Glênio Côrtes Himmen - glenio.himmen em bol.com.br

Nada façais por partidarismo ou vanglória,
mas por humildade, considerando cada um
os outros superiores a si mesmo.

Fl. 2:3