
  PROCEDURE [INLINE] pfp$clear_system_authority;

?? PUSH (LISTEXT := ON) ??

    pfv$system_authority := 0;
  PROCEND pfp$clear_system_authority;

*copyc pfv$system_authority
?? POP ??
