Lianja

Create Restricted Data Token (RDT)

See more Amazon SP-API Examples

Returns a Restricted Data Token (RDT) for one or more restricted resources that you specify. Lianja

llSuccess = .F.

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

loAuthAws = createobject("CkAuthAws")
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "execute-api"
// Use the region that is correct for your needs.
loAuthAws.Region = "eu-west-1"

loRest = createobject("CkRest")
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
// The sandbox endpoint (sandbox.sellingpartnerapi-eu.amazon.com) fails.
// Use the production endpoint and see the note below.
llSuccess = loRest.Connect("sellingpartnerapi-eu.amazon.com",lnPort,llBTls,llBAutoReconnect)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loAuthAws
    release loRest
    return
endif

llSuccess = loRest.SetAuthAws(loAuthAws)

// Load the previously obtained LWA access token.
// See Fetch SP-API LWA Access Token
loJsonToken = createobject("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
if (llSuccess = .F.) then
    ? "Failed to load LWA access token."
    release loAuthAws
    release loRest
    release loJsonToken
    return
endif

// Add the x-amz-access-token request header.
lcLwa_token = loJsonToken.StringOf("access_token")
loRest.ClearAllHeaders()
loRest.AddHeader("x-amz-access-token",lcLwa_token)

// We're going to send a POST with the following JSON body:

// {
//   "restrictedResources": [
//     {
//       "method": "GET",
//       "path": "/orders/v0/orders",
//       "dataElements": ["buyerInfo", "shippingAddress"]
//     }
//   ]
// }

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

loJson = createobject("CkJsonObject")
loJson.UpdateString("restrictedResources[0].method","GET")
loJson.UpdateString("restrictedResources[0].path","/orders/v0/orders")
loJson.UpdateString("restrictedResources[0].dataElements[0]","buyerInfo")
loJson.UpdateString("restrictedResources[0].dataElements[1]","shippingAddress")

loSbRequest = createobject("CkStringBuilder")
loJson.EmitSb(loSbRequest)

loSbResponse = createobject("CkStringBuilder")
lcUri = "/tokens/2021-03-01/restrictedDataToken"
llSuccess = loRest.FullRequestSb("POST",lcUri,loSbRequest,loSbResponse)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loAuthAws
    release loRest
    release loJsonToken
    release loJson
    release loSbRequest
    release loSbResponse
    return
endif

// ------------------------------------------------------------------------------------
// Note: Using the sandbox endpoint, such as sandbox.sellingpartnerapi-eu.amazon.com
// results in a response status code of 400 with the following error:
// [{"code":"InvalidInput","message":"Could not match input arguments"}]
// Getting a restricted data token seems to only work with the production endpoint.
// ------------------------------------------------------------------------------------

// Examine the response status.
lnStatusCode = loRest.ResponseStatusCode
if (lnStatusCode <> 200) then
    ? "Response status code: " + str(lnStatusCode)
    ? "Response status text: " + loRest.ResponseStatusText
    ? "Response body: "
    ? loSbResponse.GetAsString()
    ? "Failed."
    release loAuthAws
    release loRest
    release loJsonToken
    release loJson
    release loSbRequest
    release loSbResponse
    return
endif

? loSbResponse.GetAsString()

// If successful, gets a JSON response such as the following:

// {
//   "expiresIn": 3600,
//   "restrictedDataToken": "Atz.sprdt|AYAB.....TQ="
// }

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

loJsonResp = createobject("CkJsonObject")
loJsonResp.LoadSb(loSbResponse)

lnExpiresIn = loJsonResp.IntOf("expiresIn")
lcRestrictedDataToken = loJsonResp.StringOf("restrictedDataToken")

// Save the RDT for subsequent use..
llSuccess = loJsonResp.WriteFile("qa_data/tokens/sp_api_rdt_token.json")

? "Success!"


release loAuthAws
release loRest
release loJsonToken
release loJson
release loSbRequest
release loSbResponse
release loJsonResp