Pasted

EXECUTE block
AS
DECLARE vs_DB_KEY CHAR(8) CHARACTER SET OCTETS;
BEGIN
 
   SELECT
      FIRST 1
      C.RDB$DB_KEY
   FROM CIDADE C
   WHERE
      C.DESCCIDADE = 'FLORES DA CUNHA' AND
      C.UF = 'RS'
   INTO
      :vs_DB_KEY ;
      
 
   UPDATE CIDADE C SET
      C.DESCCIDADE = C.DESCCIDADE || '*'
   WHERE
      C.rdb$db_key = :vs_DB_KEY ;
 
 
END