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.RequestBuilder.
USING OpenEdge.Net.HTTP.IHttpResponse.
USING Progress.Json.ObjectModel.JsonObject.
/* *************************** Definitions ************************** */
DEFINE VARIABLE oClient AS IHttpClient NO-UNDO.
DEFINE VARIABLE oRequest AS IHttpRequest NO-UNDO.
DEFINE VARIABLE oResponse AS IHttpResponse NO-UNDO.
DEFINE VARIABLE oPayload AS JsonObject NO-UNDO.
/* *************************** Main Block *************************** */
oClient = ClientBuilder:Build():Client.
oPayload = NEW JsonObject().
oPayload:AddNumber('OrderNum','3213').
oPayload:AddNumber('ItemNum','432235').
oPayload:AddNumber('Qty','20000').
oRequest = RequestBuilder:Post('http://httpbin.org/post', oPayload)
:Request.
oResponse = oClient:Execute(oRequest).
MESSAGE oResponse:StatusCode
VIEW-AS ALERT-BOX.
CATCH oError AS Progress.Lang.Error :
MESSAGE oError:GetMessage(1) SKIP(2)
oError:CallStack
VIEW-AS ALERT-BOX.
END CATCH.
