Xbase++

MWS List Orders by Next Token (Amazon Marketplace Web Service)

See more Amazon MWS Examples

Returns the next page of orders using the NextToken parameter. Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL cResponseXml

nSuccess := 0

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

//  See MWS List Orders By Next Token for additional details 

//  We need to send a GET request like this:

//  https://mws.amazonservices.jp/Orders/2013-09-01
//    ?AWSAccessKeyId=0PB842EXAMPLE7N4ZTR2
//    &Action=ListOrdersByNextToken
//    &MWSAuthToken=amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE
//    &SellerId=A2986ZQ066CH2F
//    &Signature=ZQLpf8vEXAMPLE0iC265pf18n0%3D
//    &SignatureVersion=2
//    &SignatureMethod=HmacSHA256
//    &NextToken=2YgYW55IGNhcm5hbCBwbGVhc3VyZS4%3D
//    &Timestamp=2017-02-05T18%3A12%3A21.687Z
//    &Version=2013-09-01

oRest := CreateObject("Chilkat.Rest")

//  Connect to the Amazon MWS REST server.
//  
//  Make sure to connect to the correct Amazon MWS Endpoint, otherwise
//  you'll get an HTTP 401 response code.
//  
//  The possible servers are:
//  
//  North America (NA) 	https://mws.amazonservices.com
//  Europe (EU) 	https://mws-eu.amazonservices.com
//  India (IN) 	https://mws.amazonservices.in
//  China (CN) 	https://mws.amazonservices.com.cn
//  Japan (JP) 	https://mws.amazonservices.jp 
//  
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("mws.amazonservices.com", nPort, nBTls, nBAutoReconnect)

oRest:Host := "mws.amazonservices.com"

//  Add query params
oRest:AddQueryParam("NextToken", "THE_NEXT_TOKEN_FROM_THE_PREVIOUS_REPLY")
oRest:AddQueryParam("Action", "ListOrdersByNextToken")
oRest:AddQueryParam("MarketplaceId.Id.1", "MWS_MARKETPLACE_ID")
oRest:AddQueryParam("SellerId", "MWS_SELLER_ID")
oRest:AddQueryParam("AWSAccessKeyId", "MWS_ACCESS_KEY_ID")
oRest:AddQueryParam("SignatureVersion", "2")
oRest:AddQueryParam("SignatureMethod", "HmacSHA256")
oRest:AddQueryParam("Version", "2013-09-01")

//  Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
oRest:AddMwsSignature("POST", "/Orders/2013-09-01", "mws.amazonservices.com", "MWS_SECRET_ACCESS_KEY_ID")

cResponseXml := oRest:FullRequestFormUrlEncoded("POST", "/Orders/2013-09-01")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

IF (oRest:ResponseStatusCode != 200)
    //  Examine the request/response to see what happened.
    ? "response status code = " + Str(oRest:ResponseStatusCode)
    ? "response status text = " + oRest:ResponseStatusText
    ? "response header: " + oRest:ResponseHeader
    ? "response body: " + cResponseXml
    ? "---"
    ? "LastRequestStartLine: " + oRest:LastRequestStartLine
    ? "LastRequestHeader: " + oRest:LastRequestHeader
ENDIF

//  Examine the XML returned in the response body.
? cResponseXml
? "----"
? "Success."

oRest:destroy()