
  PROCEDURE [INLINE] pfi$get_family_from_fs_struct
    (    evaluated_file_reference: fst$evaluated_file_reference;
     VAR family_name: ost$family_name);

?? PUSH (LISTEXT := ON) ??

    family_name := evaluated_file_reference.
          path_structure (2, $INTEGER (evaluated_file_reference.
          path_structure (1)));

  PROCEND pfi$get_family_from_fs_struct;

*copyc fst$evaluated_file_reference
?? POP ??
