 PROCEDURE [INLINE] fdp$rel_variables (p_form_variable_definitions: ^array [1 ..
  * ] OF fdt$form_variable_definition;
        p_form_status: ^fdt$form_status);

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

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