*** DO NOT REMOVE - CALL WRAPPER
PARAMETERS lcMethod, lcParmString, lvResult
PRIVATE _loServer
_loServer = CREATEOBJECT("<%= pcWebService %>")
lvResult =  Eval("_loServer."+ lcMethod + "(" + lcParmString+ ")" )
RETURN lvResult
*** DO NOT REMOVE - CALL WRAPPER


*************************************************************
DEFINE CLASS <%= pcWebService %> AS RELATION OLEPUBLIC
*************************************************************

*** OK to remove after testing
FUNCTION Test(lcEcho)
IF EMPTY(lcEcho)
   RETURN "Test Result"
ENDIF   
RETURN lcEcho

ENDDEFINE
*EOC <%= pcWebService %> 
