 FUNCTION [INLINE] fdp$ptr_table_variables (table_variables:
    fdt$table_variables;
        p_form_module: ^fdt$form_module): ^array [1 .. * ] OF
      fdt$table_variable;

    IF table_variables.total_number = 0 THEN
      fdp$ptr_table_variables := NIL;
    ELSE
      fdp$ptr_table_variables := #PTR (table_variables.p_table_variables,
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_table_variables;

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