 TYPE
    fdt$object_event_position = record
      form_identifier: fdt$form_identifier,
      object_name: ost$name,
      occurrence: fdt$occurrence,
      case key: fdt$object_definition_key of

      = fdc$box, fdc$line, fdc$constant_text, fdc$constant_text_box =
        { The x, y positions are relative to the form. }
        form_x_position: fdt$x_position,
        form_y_position: fdt$y_position,

      = fdc$variable_text, fdc$variable_text_box =
        character_position: fdt$character_position,

      casend
    recend;

*copyc fdt$form_identifier
*copyc ost$name
*copyc fdt$occurrence
*copyc fdt$object_definition_key
*copyc fdt$x_position
*copyc fdt$y_position
*copyc fdt$character_position
