PowerBuilder

Amazon SP-API Sellers Get Marketplace Participations

See more Amazon SP-API Examples

Demonstrates Amazon SP-API Sellers API -- get marketplace participations. PowerBuilder

integer li_rc
long li_Success
oleobject loo_AuthAws
oleobject loo_Rest
long li_BTls
long li_Port
long li_BAutoReconnect
oleobject loo_JsonToken
string ls_Lwa_token
oleobject loo_SbResponse
string ls_Uri
long li_StatusCode
oleobject loo_Json
string ls_Id
string ls_CountryCode
string ls_Name
string ls_DefaultCurrencyCode
string ls_DefaultLanguageCode
string ls_DomainName
long li_IsParticipating
long li_HasSuspendedListings
long i
long li_Count_i

li_Success = 0

//  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.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.Rest")

li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
//  Make sure to use the correct domain.
//  In this example, we are using "sandbox.sellingpartnerapi-eu.amazon.com"
li_Success = loo_Rest.Connect("sandbox.sellingpartnerapi-eu.amazon.com",li_Port,li_BTls,li_BAutoReconnect)
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.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_Rest.ClearAllHeaders()
loo_Rest.AddHeader("x-amz-access-token",ls_Lwa_token)

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

ls_Uri = "/sellers/v1/marketplaceParticipations"
li_Success = loo_Rest.FullRequestNoBodySb("GET",ls_Uri,loo_SbResponse)
if li_Success = 0 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_AuthAws
    destroy loo_Rest
    destroy loo_JsonToken
    destroy loo_SbResponse
    return
end if

//  Examine the response status.
li_StatusCode = loo_Rest.ResponseStatusCode
if li_StatusCode <> 200 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_SbResponse
    return
end if

Write-Debug loo_SbResponse.GetAsString()

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

//  {
//    "payload": [
//      {
//        "marketplace": {
//          "id": "ATVPDKIKX0DER",
//          "countryCode": "US",
//          "name": "Amazon.com",
//          "defaultCurrencyCode": "USD",
//          "defaultLanguageCode": "en_US",
//          "domainName": "www.amazon.com"
//        },
//        "participation": {
//          "isParticipating": true,
//          "hasSuspendedListings": false
//        }
//      }
//    ]
//  }

//  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.JsonObject")

loo_Json.LoadSb(loo_SbResponse)

i = 0
li_Count_i = loo_Json.SizeOfArray("payload")
do while i < li_Count_i
    loo_Json.I = i
    ls_Id = loo_Json.StringOf("payload[i].marketplace.id")
    ls_CountryCode = loo_Json.StringOf("payload[i].marketplace.countryCode")
    ls_Name = loo_Json.StringOf("payload[i].marketplace.name")
    ls_DefaultCurrencyCode = loo_Json.StringOf("payload[i].marketplace.defaultCurrencyCode")
    ls_DefaultLanguageCode = loo_Json.StringOf("payload[i].marketplace.defaultLanguageCode")
    ls_DomainName = loo_Json.StringOf("payload[i].marketplace.domainName")
    li_IsParticipating = loo_Json.BoolOf("payload[i].participation.isParticipating")
    li_HasSuspendedListings = loo_Json.BoolOf("payload[i].participation.hasSuspendedListings")
    i = i + 1
loop

Write-Debug "Success!"


destroy loo_AuthAws
destroy loo_Rest
destroy loo_JsonToken
destroy loo_SbResponse
destroy loo_Json