 PROCEDURE [INLINE] fdp$rel_valid_strings (p_valid_strings: ^array [1 .. * ] OF
    fdt$valid_string_definition;
        p_form_module: ^fdt$form_module;
    VAR valid_strings: fdt$valid_strings);

    IF p_valid_strings = NIL THEN
      valid_strings.total_number := 0;
      valid_strings.active_number := 0;
    ELSE
      valid_strings.p_valid_strings := #REL (p_valid_strings, p_form_module^);
      valid_strings.total_number := UPPERBOUND (p_valid_strings^);
    IFEND;
  PROCEND fdp$rel_valid_strings;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$valid_string_definition
*copyc fdt$form_module
*copyc fdt$valid_strings
?? POP ??
