  TYPE
    fdt$table_object = record
      object_exists: boolean,
      object_index: fdt$object_index,
      program_record_position: fdt$record_position,
      screen_record_position: fdt$record_position,
    recend;

*copyc fdt$object_index
*copyc fdt$record_position
