[firebase-br] Unexpected end of command

[Rogerio Monteiro]

Bom dia colegas.

Estou ficando cansado. Peguei a apostila onde ensina criar variáveis na 
stored procedure mas não sei onde estou errando.

Está dando Unexpected end of command - line 8, column 34,
que é logo no fim da primeria linha do declare variable na coluna do ")".

Eis o código:

CREATE PROCEDURE PREENCHE
AS
declare variable NOME varchar(30);
declare variable POSICAO integer;
DECLARE variable CAMPOS varchar(50);
BEGIN
FOR select a.RDB$FIELD_NAME, a.RDB$RELATION_NAME, a.RDB$FIELD_POSITION
FROM   RDB$RELATION_FIELDS a
where a.RDB$FIELD_POSITION > 1 and
      a.RDB$RELATION_NAME = 'CLIENTE')
into :CAMPOS, :NOME, :POSICAO
DO
begin
   INSERT INTO CARACTERISTICAS (TABELAS, ORDEMCAMPOS, CAMPOS)
   values
   (:NOME, :POSICAO || 1, :CAMPOS)
   suspend;
end

END!!

Desde já, agradeço a ajuda.

Rogerio