 FUNCTION [INLINE] fdp$ptr_tables (p_form_status: ^fdt$form_status): ^array [1
  .. * ] OF fdt$form_table_definition;

    IF p_form_status^.p_form_definition^.form_table_definitions.total_number =
          0 THEN
      fdp$ptr_tables := NIL;
    ELSE
      fdp$ptr_tables := #PTR (p_form_status^.p_form_definition^.
            form_table_definitions.p_form_table_definitions, p_form_status^.
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_tables;

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