Q5/ws_objects/Ew_aifmb.pbl.src/f_aifmb_ind_power.srf

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

forward prototypes
global function integer f_aifmb_ind_power (string arg_power, long arg_index)
end prototypes

global function integer f_aifmb_ind_power (string arg_power, long arg_index);Int rslt = 0
String ls_power
IF arg_index + 1 <= Len(arg_power) THEN
	ls_power = Mid(arg_power, arg_index + 1, 1)
	IF ls_power = '1' THEN
		rslt = 1
	END IF
END IF

RETURN rslt
end function