PowerBuilder

Refinitiv World-Check One - Archive Case (PUT)

See more Refinitiv Examples

Sends a signed PUT request to archive a case. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Json
oleobject loo_Http
oleobject loo_Resp

li_Success = 0

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Create the following JSON:
// 
// {
//   "keyId": "aaaaaaa-bbbb-cccc-dddd-eeeeeeeeeeee",
//   "hmacKey": "xxxxzI3vi58xxxCBxxx1+P/d8tGxx7KuLqN/KMPNxxxxekhj8/bx83+1YQSUxxxxYyv939ceY06GvhYRKmxxxx==",
//   "algorithm": "hmac-sha256",
//   "headers": [
//     "(request-target)",
//     "host",
//     "date",
//   ]
// }

// Substitute your actual API key and API secret in place of "api-key" and "api-secret"
// Note: This particular API call is a PUT with an empty request body.
// Because the request body is empty, we don't include the content-type and content-length headers.
loo_Json.UpdateString("keyId","api-key")
loo_Json.UpdateString("hmacKey","api-secret")
loo_Json.UpdateString("algorithm","hmac-sha256")
loo_Json.UpdateString("headers[0]","(request-target)")
loo_Json.UpdateString("headers[1]","host")
loo_Json.UpdateString("headers[2]","date")

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

// Setting the AuthSignature property causes the following header to be computed and added:
// Authorization: Signature keyId="...", algorithm="hmac-sha256", headers="(request-target) host date", signature="..."
loo_Http.AuthSignature = loo_Json.Emit()

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpStr("PUT","https://api-worldcheck.refinitiv.com/v2/cases/{{case-system-id}}/archive","","","",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Http
    destroy loo_Resp
    return
end if

Write-Debug "Response status code = " + string(loo_Resp.StatusCode)
Write-Debug loo_Resp.BodyStr

// If successful, the response status code will equal 204, and the response body will be empty JSON "{}"


destroy loo_Json
destroy loo_Http
destroy loo_Resp