SELECT Rdb$character_set_name FROM Rdb$database

SELECT Rdb$character_set_name FROM Rdb$database

SELECT T.Rdb$relation_name Table_Name,
       T.Rdb$field_name Field_Name,
       C.Rdb$character_set_name Character_Set_Name
  FROM Rdb$relation_fields T, Rdb$fields F, Rdb$character_sets C
WHERE (F.Rdb$character_set_id = C.Rdb$character_set_id)
  AND (F.Rdb$field_type IN ( 14 ,  37 ))
  AND (COALESCE(F.Rdb$system_flag,  0 ) =  0 )
  AND (T.Rdb$field_source = F.Rdb$field_name)
  AND (COALESCE(T.Rdb$system_flag,  0 ) =  0 )
  AND (C.Rdb$character_set_name <> 'WIN1251')
ORDER BY  1 , 2 , 3