Firebird - RDB$DB_KEY

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