Xbase++

Amazon SP-API Get Feeds

See more Amazon SP-API Examples

Returns feed details for the feeds that match the filters that you specify. Xbase++

LOCAL nSuccess
LOCAL oAuthAws
LOCAL oRest
LOCAL oJsonToken
LOCAL cLwa_token
LOCAL oSbResponse
LOCAL cPath
LOCAL nStatusCode
LOCAL oJson
LOCAL cFeedId
LOCAL cFeedType
LOCAL cCreatedTime
LOCAL cProcessingStatus
LOCAL cProcessingStartTime
LOCAL cProcessingEndTime
LOCAL cNextToken
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oAuthAws := CreateObject("Chilkat.AuthAws")
oAuthAws:AccessKey := "AWS_ACCESS_KEY"
oAuthAws:SecretKey := "AWS_SECRET_KEY"
oAuthAws:ServiceName := "execute-api"
//  Use the region that is correct for your needs.
oAuthAws:Region := "eu-west-1"

oRest := CreateObject("Chilkat.Rest")
nSuccess := oRest:Connect("sandbox.sellingpartnerapi-eu.amazon.com", 443, 1, 1)
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oAuthAws:destroy()
    oRest:destroy()
    RETURN
ENDIF

nSuccess := oRest:SetAuthAws(oAuthAws)

//  Load the previously obtained LWA access token.
//  See Fetch SP-API LWA Access Token
oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/sp_api_lwa_token.json")
IF (nSuccess == 0)
    ? "Failed to load LWA access token."
    oAuthAws:destroy()
    oRest:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

//  Add the x-amz-access-token request header.
cLwa_token := oJsonToken:StringOf("access_token")

oRest:ClearAllHeaders()
oRest:AddHeader("x-amz-access-token", cLwa_token)

oRest:ClearAllQueryParams()
oRest:AddQueryParam("feedTypes", "POST_PRODUCT_DATA")
oRest:AddQueryParam("pageSize", "10")
oRest:AddQueryParam("processingStatuses", "CANCELLED,DONE")

oSbResponse := CreateObject("Chilkat.StringBuilder")
cPath := "/feeds/2021-06-30/feeds"
nSuccess := oRest:FullRequestNoBodySb("GET", cPath, oSbResponse)
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oAuthAws:destroy()
    oRest:destroy()
    oJsonToken:destroy()
    oSbResponse:destroy()
    RETURN
ENDIF

//  Examine the response status.
nStatusCode := oRest:ResponseStatusCode
IF (nStatusCode != 200)
    ? "Response status text: " + oRest:ResponseStatusText
    ? "Response body: "
    ? oSbResponse:GetAsString()
    ? "Failed."
    oAuthAws:destroy()
    oRest:destroy()
    oJsonToken:destroy()
    oSbResponse:destroy()
    RETURN
ENDIF

? oSbResponse:GetAsString()

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

//  {
//    "feeds": [
//      {
//        "feedId": "FeedId1",
//        "feedType": "POST_PRODUCT_DATA",
//        "createdTime": "2019-12-11T13:16:24.630Z",
//        "processingStatus": "CANCELLED",
//        "processingStartTime": "2019-12-11T13:16:24.630Z",
//        "processingEndTime": "2019-12-11T13:16:24.630Z"
//      }
//    ],
//    "nextToken": "VGhpcyB0b2tlbiBpcyBvcGFxdWUgYW5kIGludGVudGlvbmFsbHkgb2JmdXNjYXRlZA=="
//  }

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

oJson := CreateObject("Chilkat.JsonObject")

oJson:LoadSb(oSbResponse)

cNextToken := oJson:StringOf("nextToken")
i := 0
nCount_i := oJson:SizeOfArray("feeds")
DO WHILE i < nCount_i
    oJson:I := i
    cFeedId := oJson:StringOf("feeds[i].feedId")
    cFeedType := oJson:StringOf("feeds[i].feedType")
    cCreatedTime := oJson:StringOf("feeds[i].createdTime")
    cProcessingStatus := oJson:StringOf("feeds[i].processingStatus")
    cProcessingStartTime := oJson:StringOf("feeds[i].processingStartTime")
    cProcessingEndTime := oJson:StringOf("feeds[i].processingEndTime")
    i := i + 1
ENDDO

? "Success!"

oAuthAws:destroy()
oRest:destroy()
oJsonToken:destroy()
oSbResponse:destroy()
oJson:destroy()