
  FUNCTION [INLINE] pfp$cycle_attached_for_write
    (    p_cycle: ^pft$physical_cycle): boolean;

?? PUSH (LISTEXT := ON) ??

    pfp$cycle_attached_for_write := (p_cycle^.cycle_entry.attach_status.attach_count > 0) AND
          ((p_cycle^.cycle_entry.attach_status.usage_counts [pfc$shorten] > 0) OR
          (p_cycle^.cycle_entry.attach_status.usage_counts [pfc$append] > 0) OR
          (p_cycle^.cycle_entry.attach_status.usage_counts [pfc$modify] > 0));

  FUNCEND pfp$cycle_attached_for_write;

*copyc pft$physical_cycle
?? POP ??
