$PBExportHeader$f_power_ind.srf
global type f_power_ind from function_object
end type

forward prototypes
global function boolean f_power_ind (long argno, ref string arg_msg)
end prototypes

global function boolean f_power_ind (long argno, ref string arg_msg);//f_power_ind
Int i

IF sys_power_issuper THEN RETURN TRUE
i = Integer(Mid(sys_right,argno,1))
IF i = 1 THEN	RETURN TRUE
RETURN FALSE


end function

