How to POST\PUT an empty request using OpenEdge HttpClient?

The below code sample demonstrates how to perform an empty POST or PUT request using HttpClient.

 

BLOCK-LEVEL ON ERROR UNDO, THROW.

USING OpenEdge.Core.String.
USING OpenEdge.Net.HTTP.ClientBuilder.
USING OpenEdge.Net.HTTP.IHttpClient.
USING OpenEdge.Net.HTTP.IHttpRequest.
USING OpenEdge.Net.HTTP.IHttpResponse.
USING OpenEdge.Net.HTTP.RequestBuilder.
USING OpenEdge.Net.URI.

DEFINE VARIABLE httpClient AS IHttpClient   NO-UNDO.
DEFINE VARIABLE emptyReq   AS IHttpRequest  NO-UNDO. 
DEFINE VARIABLE resp       AS IHttpResponse NO-UNDO.

httpClient = ClientBuilder:Build():Client.
emptyReq = RequestBuilder:Post(URI:Parse('http://httpbin.org/post'),String:Empty()):Request.

//PUT method
//emptyReq = RequestBuilder:PUT(URI:Parse('http://httpbin.org/put'),String:Empty()):Request.

resp = httpClient:Execute(emptyReq).

MESSAGE resp:statuscode
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

 

References to Other Documentation:

Progress Article(s):
 OpenEdge.Net.pl is missing from PROPATH
 Is there an HTTP client for OpenEdge?
Getting started with HTTP client for OpenEdge