  PROCEDURE [INLINE] pfp$terminate_server_apfid
    (VAR apfid: pft$attached_permanent_file_id);

?? PUSH (LISTEXT := ON) ??
    apfid.server_lifetime := 0;

  PROCEND pfp$terminate_server_apfid;

*copyc pft$attached_permanent_file_id
?? POP ??

