 TYPE
    fdt$get_table_key = (fdc$get_next_table_variable,
      fdc$get_number_table_variables, fdc$get_stored_occurrence,
      fdc$get_unused_table_entry, fdc$get_visible_occurrence);
