 TYPE
    fdt$screen_event_status = record
      event_exists: boolean,
      event_label: ost$name,
      event_trigger: fdt$event_trigger,
      event_used: boolean,
    recend;

*copyc fdt$event_trigger
*copyc ost$name
