
  PROCEDURE [INLINE] fdp$find_table_definition
    (    table_name: ost$name;
         p_form_table_definitions: ^array [1 .. * ] of
          fdt$form_table_definition;
         number_tables: fdt$number_tables;
     VAR p_form_table_definition: ^fdt$form_table_definition;
     VAR table_index: fdt$table_index;
     VAR table_exists: boolean);

    table_exists := FALSE;

  /find_table/
    FOR table_index := 1 TO number_tables DO
      p_form_table_definition := ^p_form_table_definitions^ [table_index];
      IF p_form_table_definition^.name = table_name THEN
        table_exists := TRUE;
        EXIT /find_table/;
      IFEND;
    FOREND /find_table/;
  PROCEND fdp$find_table_definition;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$form_table_definition
*copyc fdt$number_tables
*copyc fdt$table_index
*copyc ost$name
?? POP ??
