 TYPE
    fdt$error_no_variable_object = record
      occurrence: fdt$occurrence,
      variable_name: ost$name,
    recend;

*copyc fdt$occurrence
*copyc ost$name
