 PROCEDURE [INLINE] fdp$find_object_definition (object_name: ost$name;
        occurrence: fdt$occurrence;
        p_form_object_definitions: ^array [1 .. * ] OF
      fdt$form_object_definition;
        active_number: fdt$number_objects;
    VAR p_form_object_definition: ^fdt$form_object_definition;
    VAR object_index: fdt$object_index;
    VAR object_name_exists: boolean;
    VAR object_occurrence_exists: boolean);

?? PUSH (LISTEXT := ON) ??
    object_name_exists := FALSE;
    object_occurrence_exists := FALSE;
  /find_object/
    FOR object_index := 1 TO active_number DO
      p_form_object_definition := ^p_form_object_definitions^ [object_index];
      IF p_form_object_definition^.key <> fdc$form_unused_object THEN
        IF p_form_object_definition^.name = object_name THEN
          object_name_exists := TRUE;
          IF p_form_object_definition^.occurrence = occurrence THEN
            object_occurrence_exists := TRUE;
            EXIT /find_object/;
          IFEND;
        IFEND;
      IFEND;
    FOREND /find_object/;
  PROCEND fdp$find_object_definition;
*copyc fdt$occurrence
*copyc fdt$form_object_definition
*copyc fdt$number_objects
*copyc fdt$object_index
*copyc ost$name
*copyc fdt$object_definition_key
?? POP ??
