PROCEDURE [INLINE] fdp$find_variable_definition (variable_name: ost$name;
      p_form_variable_definitions: ^array [1 .. * ] OF fdt$form_variable_definition;
      number_variables: fdt$number_variables;
  VAR p_form_variable_definition: ^fdt$form_variable_definition;
  VAR variable_index: fdt$variable_index;
  VAR variable_exists: boolean);
?? PUSH (LISTEXT := ON) ??

  variable_exists := FALSE;
  /find_variable/
  FOR variable_index := 1 TO number_variables DO
    p_form_variable_definition := ^p_form_variable_definitions^ [variable_index];
    IF p_form_variable_definition^.name = variable_name THEN
      variable_exists := TRUE;
      EXIT /find_variable/;
    IFEND;
  FOREND /find_variable/;
PROCEND fdp$find_variable_definition;
*copyc fdt$form_variable_definition
*copyc ost$name
*copyc fdt$number_variables
*copyc fdt$variable_index
?? POP ??


