  TYPE
    fdt$variable_search = record
      case status: fdt$variable_search_status of
      = fdc$found_first_error, fdc$searching =
        object_index: fdt$object_index,
      = fdc$not_searched, fdc$search_completed, fdc$search_not_allowed =
        ,
      casend,
    recend;

*copyc fdt$object_index
*copyc fdt$variable_search_status
