FXApp/ws_objects/l1_uo.pbl.src/f_get_sys_option_value.srf

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

forward prototypes
global function integer f_get_sys_option_value (string arg_optionid, ref string arg_ref_value, ref string arg_msg)
end prototypes

global function integer f_get_sys_option_value (string arg_optionid, ref string arg_ref_value, ref string arg_msg);Int rslt = 1

uo_sys_option uo_option_sys
uo_option_sys = Create uo_sys_option

IF uo_option_sys.uof_get_sys_option_value(arg_optionid,arg_ref_value,arg_msg) = 0 THEN
	arg_ref_value = '-1000'
	rslt = 0
	GOTO ext
END IF

ext:
destroy uo_option_sys
RETURN rslt


end function