 TYPE
    fdt$get_record_key = (fdc$get_number_record_variable,
      fdc$get_record_deck_name, fdc$get_record_definition,
      fdc$get_record_length, fdc$get_record_name, fdc$get_record_type,
      fdc$get_record_variable_names, fdc$get_table_access,
      fdc$get_unused_record_entry);
