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

    IF p_form_status^.p_form_definition^.record_definitions.total_number = 0
          THEN
      fdp$ptr_record_definitions := NIL;
    ELSE
      fdp$ptr_record_definitions := #PTR (p_form_status^.p_form_definition^.
            record_definitions.p_record_definitions, p_form_status^.
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_record_definitions;

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