 TYPE
    fdt$event_position = record
      form_identifier: fdt$form_identifier,
      form_x_position: fdt$x_position,
      form_y_position: fdt$y_position,
      screen_x_position: fdt$x_position,
      screen_y_position: fdt$y_position,

      case key: fdt$event_position_key of

      = fdc$form_event =
        ,

      = fdc$object_event =
        object_name: ost$name,
        object_occurrence: fdt$occurrence,
        object_x_position: fdt$x_position,
        object_y_position: fdt$y_position,
        case object_definition_key: fdt$object_definition_key of

        = fdc$box,fdc$constant_text,fdc$constant_text_box,
          fdc$line,fdc$table =
          ,

        = fdc$variable_text, fdc$variable_text_box =
          character_position: fdt$character_position,
        casend
      casend
    recend;

*copyc fdt$character_position
*copyc fdt$event_position_key
*copyc fdt$form_identifier
*copyc fdt$object_definition_key
*copyc fdt$occurrence
*copyc fdt$x_position
*copyc fdt$y_position

