Lianja

Amazon SP-API Create Feed Doc

See more Amazon SP-API Examples

Creates a feed document. Amazon returns a feedDocumentId value, encryption details, and a URL for uploading the feed contents. 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")
llSuccess = loRest.Connect("sellingpartnerapi-eu.amazon.com",443,.T.,.T.)
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")

loJsonReq = createobject("CkJsonObject")
loJsonReq.UpdateString("contentType","text/tab-separated-values; charset=UTF-8")

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

loRest.ClearAllQueryParams()
loRest.ClearAllHeaders()
loRest.AddHeader("x-amz-access-token",lcLwa_token)

loSbResponse = createobject("CkStringBuilder")
lcPath = "/feeds/2021-06-30/documents"
llSuccess = loRest.FullRequestSb("POST",lcPath,loSbRequest,loSbResponse)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loAuthAws
    release loRest
    release loJsonToken
    release loJsonReq
    release loSbRequest
    release loSbResponse
    return
endif

// Examine the response status.
lnStatusCode = loRest.ResponseStatusCode
? "statusCode: " + str(lnStatusCode)

if (lnStatusCode <> 201) then
    ? "Response status text: " + loRest.ResponseStatusText
    ? "Response body: "
    ? loSbResponse.GetAsString()
    ? "Failed."
    release loAuthAws
    release loRest
    release loJsonToken
    release loJsonReq
    release loSbRequest
    release loSbResponse
    return
endif

? loSbResponse.GetAsString()

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

// {
//   "feedDocumentId": "3d4e42b5-1d6e-44e8-a89c-2abfca0625bb",
//   "url": "https://d34o8swod1owfl.cloudfront.net/Feed_101__POST_PRODUCT_DATA_.xml"
// }

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

loJson = createobject("CkJsonObject")

loJson.LoadSb(loSbResponse)

lcFeedDocumentId = loJson.StringOf("feedDocumentId")
lcUrl = loJson.StringOf("url")

// Save the JSON to a file for the example that uploads the feed..
llSuccess = loJson.WriteFile("qa_data/json/sp_api_feed_upload_info.json")

? "Success!"


release loAuthAws
release loRest
release loJsonToken
release loJsonReq
release loSbRequest
release loSbResponse
release loJson