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

forward prototypes
global function string f_rp_excute (string arg_command)
end prototypes

global function string f_rp_excute (string arg_command);string l_rstl
string  ls_rs
integer ll_row
DataStore ds_cmp
ds_cmp = Create DataStore
ds_cmp.DataObject = "ds_rp_event"

ll_row = ds_cmp.InsertRow(0)
ls_rs = ds_cmp.Modify("cmp.Expression='"+ arg_command + "'")
IF ls_rs <> '' THEN
	l_rstl="error"
	GOTO ext
END IF
ds_cmp.AcceptText()
l_rstl = string(dec(ds_cmp.Object.cmp[ll_row]))

ext:
Destroy ds_cmp



return l_rstl
end function