
  PROCEDURE [INLINE] pfp$validate_ownership
    (    authority: pft$authority;
         path: pft$complete_path;
     VAR status: ost$status);

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

    status.normal := TRUE;
    IF ($pft$ownership [pfc$master_catalog_owner, pfc$family_owner,
          pfc$system_owner] * authority.ownership) = $pft$ownership [] THEN
      osp$set_status_abnormal (pfc$permanent_file_manager_id, pfe$not_master_catalog_owner,
            path [pfc$master_catalog_path_index], status);
      osp$append_status_parameter (osc$status_parameter_delimiter, path [pfc$family_path_index], status);
    IFEND;

  PROCEND pfp$validate_ownership;
*copyc ost$status
*copyc pft$authority
*copyc pft$complete_path
?? POP ??
