let kind_uses_display_width = fun kind ->
match class_of_kind kind with
| SQL_C_Int | SQL_C_Real -> Dbf_misc.Maybe
| SQL_C_Char ->
match kind with
| SQL_Char | SQL_VarChar -> Dbf_misc.Yes
| _ -> Dbf_misc.No