 TYPE
    fdt$event_definitions = record
      active_number: fdt$number_events,
      total_number: fdt$number_events,
      p_event_definitions: REL (fdt$form_module) ^array [1 .. * ] of
        fdt$event_definition,
    recend;

*copyc fdt$number_events
*copyc fdt$form_module
*copyc fdt$event_definition
