 TYPE
    fdt$variable_record_definition = record
      case key: fdt$record_definition_key of

      = fdc$record_table =
        table_index: fdt$table_index,

      = fdc$record_variable =
        variable_index: fdt$variable_index,
      casend
    recend;

*copyc fdt$record_definition_key
*copyc fdt$table_index
*copyc fdt$variable_index
