 PROCEDURE [INLINE] fdp$rel_events (p_event_definitions: ^array [1 .. * ] OF
    fdt$event_definition;
        p_form_status: ^fdt$form_status);

    p_form_status^.p_event_definitions := p_event_definitions;
    IF p_event_definitions = NIL THEN
      p_form_status^.p_form_definition^.event_definitions.total_number := 0;
      p_form_status^.p_form_definition^.event_definitions.active_number := 0;
    ELSE
      p_form_status^.p_form_definition^.event_definitions.p_event_definitions
            := #REL (p_event_definitions, p_form_status^.p_form_module^);
      p_form_status^.p_form_definition^.event_definitions.total_number :=
            UPPERBOUND (p_event_definitions^);
    IFEND;
  PROCEND fdp$rel_events;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$event_definition
*copyc fdt$form_status
*copyc fdt$object_definition_key
?? POP ??
