
  PROCEDURE [INLINE] pfp$end_system_authority;

?? PUSH (LISTEXT := ON) ??

    pfv$system_authority := pfv$system_authority - 1;
  PROCEND pfp$end_system_authority;

*copyc pfv$system_authority
?? POP ??
