(DataFlex) Refinitiv World-Check One - Archive Case (PUT)

See more Refinitiv Examples

Sends a signed PUT request to archive a case.

Note: This example requires Chilkat v9.5.0.89 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    Handle hoHttp
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    // 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.
    Get ComUpdateString Of hoJson "keyId" "api-key" To iSuccess
    Get ComUpdateString Of hoJson "hmacKey" "api-secret" To iSuccess
    Get ComUpdateString Of hoJson "algorithm" "hmac-sha256" To iSuccess
    Get ComUpdateString Of hoJson "headers[0]" "(request-target)" To iSuccess
    Get ComUpdateString Of hoJson "headers[1]" "host" To iSuccess
    Get ComUpdateString Of hoJson "headers[2]" "date" To iSuccess

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // 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="..."
    Get ComEmit Of hoJson To sTemp1
    Set ComAuthSignature Of hoHttp To sTemp1

    Get ComPText Of hoHttp "PUT" "https://api-worldcheck.refinitiv.com/v2/cases/{{case-system-id}}/archive" "" "" "" False False To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    Showln "Response status code = " iTemp1
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1

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


End_Procedure