defaultHandler=OpenEdge.Web.CompatibilityHandler
webhandler1=MyHandler:/mycustomer
webhandler2=MyHandler:/mycustomer/{custid}

USING Progress.Lang.*.
USING OpenEdge.Web.WebResponseWriter.
USING OpenEdge.Net.HTTP.StatusCodeEnum.
USING OpenEdge.Web.WebHandler.
USING customerBE.*.
USING Progress.Json.ObjectModel.*.
BLOCK-LEVEL ON ERROR UNDO, THROW.
CLASS webh1Handler INHERITS WebHandler: 
{"customerbe.i"}
/*------------------------------------------------------------------------------
Purpose: Handler for unsupported methods. The request being serviced and
an optional status code is returned. A zero or null value means 
this method will deal with all errors.                                                               
Notes:                                                                        
------------------------------------------------------------------------------*/
METHOD OVERRIDE PROTECTED INTEGER HandleNotAllowedMethod( INPUT poRequest AS OpenEdge.Web.IWebRequest ):
/* Throwing an error from this method results in a 500/Internal Server Error response. 
The web handler will attempt to log this exception.
See the HandleGet method's comments on choosing a value to return from this method. */
UNDO, THROW NEW Progress.Lang.AppError("METHOD NOT IMPLEMENTED").
END METHOD.
/*------------------------------------------------------------------------------
Purpose: Handler for unknown methods. The request being serviced and an 
optional status code is returned. A zero or null value means 
this method will deal with all errors.                                                               
Notes:                                                                        
------------------------------------------------------------------------------*/
METHOD OVERRIDE PROTECTED INTEGER HandleNotImplemented( INPUT poRequest AS OpenEdge.Web.IWebRequest ):
/* Throwing an error from this method results in a 500/Internal Server Error response. 
The web handler will attempt to log this exception.
See the HandleGet method's comments on choosing a value to return from this method. */  
UNDO, THROW NEW Progress.Lang.AppError("METHOD NOT IMPLEMENTED").
END METHOD.
/*------------------------------------------------------------------------------
Purpose: Default handler for the HTTP GET method. The request being 
serviced and an optional status code is returned. A zero or 
null value means this method will deal with all errors.                                                           
Notes:                                                                        
------------------------------------------------------------------------------*/
METHOD OVERRIDE PROTECTED INTEGER HandleGet( INPUT poRequest AS OpenEdge.Web.IWebRequest ):     
DEFINE VARIABLE oResponse AS OpenEdge.Net.HTTP.IHttpResponse NO-UNDO.
DEFINE VARIABLE oWriter   AS OpenEdge.Web.WebResponseWriter  NO-UNDO.
DEFINE VARIABLE oBody     AS OpenEdge.Core.String            NO-UNDO.
DEFINE VARIABLE beCustomer AS customerBE NO-UNDO.
DEFINE VARIABLE pcFilter AS CHAR NO-UNDO.
DEFINE VARIABLE lcJSON AS LONGCHAR NO-UNDO.
DEFINE VARIABLE jObj AS JsonObject.
DEFINE VARIABLE htt AS HANDLE.
jObj = NEW JsonObject().
/* Get data from the BE */
beCustomer = NEW customerBE().
beCustomer:ReadcustomerBE(INPUT pcfilter,OUTPUT DATASET dsCustomer).
htt = TEMP-TABLE ttCustomer:HANDLE.
htt:WRITE-JSON("JsonObject", jObj).
ASSIGN 
oResponse            = NEW OpenEdge.Web.WebResponse()
oResponse:StatusCode = INTEGER(StatusCodeEnum:OK)
.
/* This body object can be a string or something else (JsonObject for instance) */
lcJSON= jObj:GetJsonText().
ASSIGN 
oBody = NEW OpenEdge.Core.String(lcJSON).            
ASSIGN 
oResponse:Entity        = oBody
/* HTTP messages require a content type */
oResponse:ContentType   = 'application/json':u
/* ContentLength is good too */
oResponse:ContentLength = oBody:Size
.
/* The WebResponseWriter ensures that the status line and
all headers are writted out before the message body/entity. */
ASSIGN 
oWriter = NEW WebResponseWriter(oResponse).
oWriter:Open().
/* Finish writing the response message */
oWriter:Close().
/* A response of 0 means that this handler will build the entire response;
a non-zero value is mapped to a static handler in the webapp's /static/error folder.
The mappings are maintained in the webapps's WEB-INF/web.xml 
A predefined set of HTTP status codes is provided in the OpenEdge.Net.HTTP.StatusCodeEnum 
enumeration */
RETURN 0.
END METHOD. 
END CLASS.