
  FUNCTION [INLINE] pfp$system_path
    (    path: pft$complete_path): boolean;

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

    pfp$system_path := (UPPERBOUND (path) < pfc$family_path_index)
{  } OR (path [pfc$family_path_index] = jmc$system_family)
{  } OR ((UPPERBOUND (path) > pfc$family_path_index) AND (path [pfc$master_catalog_path_index] =
          jmc$system_user));

  FUNCEND pfp$system_path;

*copyc jmc$system_family
*copyc pft$complete_path
?? POP ??
