Erro de Syntax no Firebird

Pessoal, estou utilizando o Firebird.

Estou com um erro de sintax no fonte abaixo e não consigo descobrir o que pode ser.

O erro ocorre no primeiro UPDATE

Precompiler Error: Syntax error - UPDATE.

Saberiam o que poderia ser?

CREATE PROCEDURE TIPOPESSOA
AS

 declare variable wcodigo integer;
 declare variable wespecie integer;

 FOR select ID_GTOT,ESPECIE from CLIFOR
 into :wcodigo,:wespecie
 DO
 BEGIN
 select CASE
 WHEN(:wespecie="C") THEN
 UPDATE CLIFOR SET FL_CLIENTE=1 WHERE ID_GTOT=:wcodigo;
 WHEN(:wespecie="F") THEN
 UPDATE CLIFOR SET FL_FORNECEDOR=1 WHERE ID_GTOT=:wcodigo;
 WHEN(:wespecie="T") THEN
 UPDATE CLIFOR SET FL_TRANSPORTADOR=1 WHERE ID_GTOT=:wcodigo;
 WHEN(:wespecie="R") THEN
 UPDATE CLIFOR SET FL_REPRESENTANTE=1 WHERE ID_GTOT=:wcodigo;
 END
 END
 SUSPEND;
END;

Valeu!