************************************************************************
* <%= pcWebService %> Process class based Web Service
************************************************************************
***  Function: Web Service Process Loader. 
***    Assume: Process based Web Services are compiled into the 
***            the application.
***      Pass:
***    Return:
************************************************************************
LPARAMETER loServer
LOCAL loProcess

#INCLUDE WCONNECT.H

loProcess=CREATE("<%= pcWebService %>",loServer)

*** Call the Process Method that handles the request
loProcess.Process()

RETURN


*************************************************************
DEFINE CLASS <%= pcWebService %> AS WWC_WEBSERVICE
*************************************************************

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


ENDDEFINE
*EOC <%= pcWebService %>
