(Visual FoxPro) 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.

For more information, see https://developer-docs.amazon.com/sp-api/docs/tokens-api-v2021-03-01-reference#post-tokens2021-03-01restricteddatatoken

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

LOCAL loAuthAws
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL loJsonToken
LOCAL lcLwa_token
LOCAL loJson
LOCAL loSbRequest
LOCAL loSbResponse
LOCAL lcUri
LOCAL lnStatusCode
LOCAL loJsonResp
LOCAL lnExpiresIn
LOCAL lcRestrictedDataToken

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAws')
loAuthAws = CreateObject('Chilkat.AuthAws')
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"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
* The sandbox endpoint (sandbox.sellingpartnerapi-eu.amazon.com) fails.
* Use the production endpoint and see the note below.
lnSuccess = loRest.Connect("sellingpartnerapi-eu.amazon.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loAuthAws
    RELEASE loRest
    CANCEL
ENDIF

lnSuccess = loRest.SetAuthAws(loAuthAws)

* Load the previously obtained LWA access token.
* See Fetch SP-API LWA Access Token
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
IF (lnSuccess = 0) THEN
    ? "Failed to load LWA access token."
    RELEASE loAuthAws
    RELEASE loRest
    RELEASE loJsonToken
    CANCEL
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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
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")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbRequest = CreateObject('Chilkat.StringBuilder')
loJson.EmitSb(loSbRequest)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponse = CreateObject('Chilkat.StringBuilder')
lcUri = "/tokens/2021-03-01/restrictedDataToken"
lnSuccess = loRest.FullRequestSb("POST",lcUri,loSbRequest,loSbResponse)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loAuthAws
    RELEASE loRest
    RELEASE loJsonToken
    RELEASE loJson
    RELEASE loSbRequest
    RELEASE loSbResponse
    CANCEL
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
    CANCEL
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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResp = CreateObject('Chilkat.JsonObject')
loJsonResp.LoadSb(loSbResponse)

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

* Save the RDT for subsequent use..
lnSuccess = 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