
  PROCEDURE [INLINE] pfp$get_eval_file_ref_mast_cat
    (    evaluated_file_reference: fst$evaluated_file_reference;
     VAR master_catalog_name: pft$name);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      family_name_size: fst$path_element_size;

    family_name_size := $INTEGER (evaluated_file_reference.path_structure (1));
    master_catalog_name := evaluated_file_reference.path_structure
          (family_name_size + 3, $INTEGER (evaluated_file_reference.path_structure (family_name_size + 2)));

  PROCEND pfp$get_eval_file_ref_mast_cat;

*copyc fst$evaluated_file_reference
*copyc fst$path_element_size
*copyc pft$name
?? POP ??
