 TYPE
    fdt$command = record
      command_exists: boolean,
      p_command: REL (fdt$form_module) ^fdt$event_command,
    recend;

*copyc fdt$form_module
*copyc fdt$event_command
