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

    IF p_form_status^.p_form_definition^.form_variable_definitions.total_number
          = 0 THEN
      fdp$ptr_variables := NIL;
    ELSE
      fdp$ptr_variables := #PTR (p_form_status^.p_form_definition^.
            form_variable_definitions.p_form_variable_definitions,
            p_form_status^.p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_variables;

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