 PROCEDURE [INLINE] fdp$rel_table_variables (p_table_variables: ^array [1 .. * ]
  OF fdt$table_variable;
        p_form_module: ^fdt$form_module;
    VAR table_variables: fdt$table_variables);

    IF p_table_variables = NIL THEN
      table_variables.total_number := 0;
      table_variables.active_number := 0;
    ELSE
      table_variables.p_table_variables := #REL (p_table_variables,
            p_form_module^);
      table_variables.total_number := UPPERBOUND (p_table_variables^);
    IFEND;
  PROCEND fdp$rel_table_variables;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$table_variable
*copyc fdt$form_module
*copyc fdt$table_variables
*copyc fdc$maximum_record_length
*copyc fdc$maximum_variables
?? POP ??
