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

    IF p_form_status^.p_form_definition^.display_definitions.total_number = 0
          THEN
      fdp$ptr_displays := NIL;
    ELSE
      fdp$ptr_displays := #PTR (p_form_status^.p_form_definition^.
            display_definitions.p_display_definitions, p_form_status^.
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_displays;

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