
  PROCEDURE [INLINE] pfp$validate_family_ownership
    (    family_name: ost$family_name;
         authority: pft$authority;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
{ PURPOSE:
{   The purpose of this procedure is to validate that the authority specified
{   grants ownership rights to the specified family.  Ownership rights are
{   granted to the set owner, system administrators, and family administrators
{   for the specified family.

    status.normal := TRUE;
    IF ($pft$ownership [pfc$family_owner, pfc$set_owner, pfc$system_owner] * authority.ownership) =
          $pft$ownership [] THEN
      osp$set_status_abnormal (pfc$permanent_file_manager_id, pfe$not_family_owner, family_name, status);
    IFEND;

  PROCEND pfp$validate_family_ownership;

*copyc pft$authority
*copyc ost$status
*copyc osp$set_status_abnormal
?? POP ??
