Xbase++

Refinitiv World-Check One - Get Top Level Groups

See more Refinitiv Examples

Sends a signed GET request to get the top level groups.

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

Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL oHttp
LOCAL cResponseJson
LOCAL oJarr
LOCAL oJsonObj
LOCAL cId
LOCAL cName
LOCAL cParentId
LOCAL nHasChildren
LOCAL cStatus
LOCAL j
LOCAL nCount_j
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oJson := CreateObject("Chilkat.JsonObject")

//  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"
oJson:UpdateString("keyId", "api-key")
oJson:UpdateString("hmacKey", "api-secret")
oJson:UpdateString("algorithm", "hmac-sha256")
//  Indicate the names of the headers to be included in the signature.
//  "(request-target)" is not actually a header name, but is a special name for HTTP signatures.
//  Copy the following three lines of code exactly as-is.  
//  Do not replace "host", "date", or "(request-target)" with values.
oJson:UpdateString("headers[0]", "(request-target)")
oJson:UpdateString("headers[1]", "host")
oJson:UpdateString("headers[2]", "date")

oHttp := CreateObject("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="..."
oHttp:AuthSignature := oJson:Emit()

oHttp:SetRequestHeader("Cache-Control", "no-cache")

//  Chilkat will auto-add the Date header because it's needed by the HTTP Signature.

cResponseJson := oHttp:QuickGetStr("https://api-worldcheck.refinitiv.com/v2/groups")
IF (oHttp:LastMethodSuccess == 0)
    ? oHttp:LastErrorText
    oJson:destroy()
    oHttp:destroy()
    RETURN
ENDIF

? cResponseJson
? "----"
//  A 200 status code indicates success.
? "Status code = " + Str(oHttp:LastStatus)

//  Successful JSON looks like this:
//  [ 
//    {
//    "id": "...",
//    "name": "Company Name",
//    "parentId": null,
//    "hasChildren": false,
//    "status": "ACTIVE",
//    "children": []
//    }
//  ]

//  Use this online tool to generate parsing code from sample JSON: 
//  Generate Parsing Code from JSON

oJarr := CreateObject("Chilkat.JsonArray")

nSuccess := oJarr:Load(cResponseJson)

i := 0
nCount_i := oJarr:Size
DO WHILE i < nCount_i
    oJsonObj := oJarr:ObjectAt(i)
    cId := oJsonObj:StringOf("id")
    cName := oJsonObj:StringOf("name")
    cParentId := oJsonObj:StringOf("parentId")
    nHasChildren := oJsonObj:BoolOf("hasChildren")
    cStatus := oJsonObj:StringOf("status")
    j := 0
    nCount_j := oJsonObj:SizeOfArray("children")
    DO WHILE j < nCount_j
        oJsonObj:J := j
        j := j + 1
    ENDDO
    oJsonObj:destroy()
    i := i + 1
ENDDO

oJson:destroy()
oHttp:destroy()
oJarr:destroy()