f_power_ind.srf 413 B

12345678910111213141516171819
  1. $PBExportHeader$f_power_ind.srf
  2. global type f_power_ind from function_object
  3. end type
  4. forward prototypes
  5. global function boolean f_power_ind (long argno, ref string arg_msg)
  6. end prototypes
  7. global function boolean f_power_ind (long argno, ref string arg_msg);//f_power_ind
  8. Int i
  9. IF sys_power_issuper THEN RETURN TRUE
  10. i = Integer(Mid(sys_right,argno,1))
  11. IF i = 1 THEN RETURN TRUE
  12. RETURN FALSE
  13. end function