
  FUNCTION [INLINE] pfp$system_privilege
    (    caller_ring: ost$ring;
         master_catalog_name: pft$name): boolean;

?? PUSH (LISTEXT := ON) ??
{  This procedure uses the current executing tasks system authority to
{  determine if the caller has system privilege.
{  This procedure must only be called on the client mainframe.

    pfp$system_privilege := pfp$system_privilege_authority (
          pfv$system_authority, caller_ring, master_catalog_name);

  FUNCEND pfp$system_privilege;

*copyc osd$virtual_address
*copyc pft$name
*copyc pfp$system_privilege_authority
*copyc pfv$system_authority
?? POP ??

