
  FUNCTION [INLINE] pfp$share_for_write
    (    share_selections: pft$share_selections): boolean;

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    pfp$share_for_write := share_selections * $pft$share_selections [pfc$shorten, pfc$append,
          pfc$modify] <> $pft$share_selections [];

  FUNCEND pfp$share_for_write;

*copyc pft$attached_permanent_file_id
?? POP ??
