
  FUNCTION [INLINE] avp$system_administrator: boolean;

?? PUSH (LISTEXT := ON) ??

{
{   The purpose of this request is to determine if the current job is
{ currently executing with system administration capability.
{
{       AVP$SYSTEM_ADMINISTRATOR  : SYSTEM_ADMINISTRATOR
{
{ SYSTEM_ADMINISTRATOR:  (output) This parameter specifies whether or not the
{       current job is currently executing with system administration capability.
{

    avp$system_administrator :=  avp$capability_active (avc$cc_system_admin);

  FUNCEND avp$system_administrator;

*copyc avp$capability_active
?? POP ??
