
  PROCEDURE [INLINE] pfp$validate_set_owner
    (    set_name: stt$set_name;
         authority: pft$authority;
     VAR status: ost$status);

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

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

  PROCEND pfp$validate_set_owner;

*copyc ost$status
*copyc pft$authority
*copyc stt$set_name
?? POP ??
