(PowerBuilder) Amazon SP-API Create Feed

See more Amazon SP-API Examples

Creates a feed. Amazon returns a feedDocumentId value, encryption details, and a URL for uploading the feed contents.

For more information, see https://developer-docs.amazon.com/sp-api/docs/feeds-api-v2020-09-04-use-case-guide

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

integer li_rc
oleobject loo_AuthAws
oleobject loo_Rest
integer li_Success
oleobject loo_JsonToken
string ls_Lwa_token
oleobject loo_JsonReq
oleobject loo_SbRequest
oleobject loo_SbResponse
string ls_Path
integer li_StatusCode
oleobject loo_Json
string ls_FeedDocumentId
string ls_Url

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

loo_AuthAws = create oleobject
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat_9_5_0.AuthAws")
if li_rc < 0 then
    destroy loo_AuthAws
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
loo_AuthAws.ServiceName = "execute-api"
// Use the region that is correct for your needs.
loo_AuthAws.Region = "eu-west-1"

loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat_9_5_0.Rest")

li_Success = loo_Rest.Connect("sellingpartnerapi-eu.amazon.com",443,1,1)
if li_Success = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_AuthAws
    destroy loo_Rest
    return
end if

li_Success = loo_Rest.SetAuthAws(loo_AuthAws)

// Load the previously obtained LWA access token.
// See Fetch SP-API LWA Access Token
loo_JsonToken = create oleobject
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

li_Success = loo_JsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
if li_Success = 0 then
    Write-Debug "Failed to load LWA access token."
    destroy loo_AuthAws
    destroy loo_Rest
    destroy loo_JsonToken
    return
end if

// Add the x-amz-access-token request header.
ls_Lwa_token = loo_JsonToken.StringOf("access_token")

loo_JsonReq = create oleobject
li_rc = loo_JsonReq.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

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

loo_SbRequest = create oleobject
li_rc = loo_SbRequest.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")

loo_JsonReq.EmitSb(loo_SbRequest)

loo_Rest.ClearAllQueryParams()
loo_Rest.ClearAllHeaders()
loo_Rest.AddHeader("x-amz-access-token",ls_Lwa_token)

loo_SbResponse = create oleobject
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")

ls_Path = "/feeds/2021-06-30/documents"
li_Success = loo_Rest.FullRequestSb("POST",ls_Path,loo_SbRequest,loo_SbResponse)
if li_Success = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_AuthAws
    destroy loo_Rest
    destroy loo_JsonToken
    destroy loo_JsonReq
    destroy loo_SbRequest
    destroy loo_SbResponse
    return
end if

// Examine the response status.
li_StatusCode = loo_Rest.ResponseStatusCode
Write-Debug "statusCode: " + string(li_StatusCode)

if li_StatusCode <> 201 then
    Write-Debug "Response status text: " + loo_Rest.ResponseStatusText
    Write-Debug "Response body: "
    Write-Debug loo_SbResponse.GetAsString()
    Write-Debug "Failed."
    destroy loo_AuthAws
    destroy loo_Rest
    destroy loo_JsonToken
    destroy loo_JsonReq
    destroy loo_SbRequest
    destroy loo_SbResponse
    return
end if

Write-Debug loo_SbResponse.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

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

loo_Json.LoadSb(loo_SbResponse)

ls_FeedDocumentId = loo_Json.StringOf("feedDocumentId")
ls_Url = loo_Json.StringOf("url")

// Save the JSON to a file for the example that constructs the XML feed and uploads..
li_Success = loo_Json.WriteFile("qa_data/json/sp_api_feed_upload_info.json")

Write-Debug "Success!"


destroy loo_AuthAws
destroy loo_Rest
destroy loo_JsonToken
destroy loo_JsonReq
destroy loo_SbRequest
destroy loo_SbResponse
destroy loo_Json