 PROCEDURE [INLINE] fdp$rel_event_command (p_command: ^fdt$event_command;
        p_form_module: ^fdt$form_module;
    VAR command: fdt$command);

    IF p_command = NIL THEN
      command.command_exists := FALSE;
    ELSE
      command.command_exists := TRUE;
      command.p_command := #REL (p_command, p_form_module^);
    IFEND;
  PROCEND fdp$rel_event_command;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$event_command
*copyc fdt$form_module
*copyc fdt$command
?? POP ??
