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

Returns the next page of orders using the NextToken parameter.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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

set rest [new_CkRest]

# 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 
# 
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "mws.amazonservices.com" $port $bTls $bAutoReconnect]

CkRest_put_Host $rest "mws.amazonservices.com"

# Add query params
CkRest_AddQueryParam $rest "NextToken" "THE_NEXT_TOKEN_FROM_THE_PREVIOUS_REPLY"
CkRest_AddQueryParam $rest "Action" "ListOrdersByNextToken"
CkRest_AddQueryParam $rest "MarketplaceId.Id.1" "MWS_MARKETPLACE_ID"
CkRest_AddQueryParam $rest "SellerId" "MWS_SELLER_ID"
CkRest_AddQueryParam $rest "AWSAccessKeyId" "MWS_ACCESS_KEY_ID"
CkRest_AddQueryParam $rest "SignatureVersion" "2"
CkRest_AddQueryParam $rest "SignatureMethod" "HmacSHA256"
CkRest_AddQueryParam $rest "Version" "2013-09-01"

# Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
CkRest_AddMwsSignature $rest "POST" "/Orders/2013-09-01" "mws.amazonservices.com" "MWS_SECRET_ACCESS_KEY_ID"

set responseXml [CkRest_fullRequestFormUrlEncoded $rest "POST" "/Orders/2013-09-01"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    # Examine the request/response to see what happened.
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body: $responseXml"
    puts "---"
    puts "LastRequestStartLine: [CkRest_lastRequestStartLine $rest]"
    puts "LastRequestHeader: [CkRest_lastRequestHeader $rest]"
}

# Examine the XML returned in the response body.
puts "$responseXml"
puts "----"
puts "Success."

delete_CkRest $rest