Xbase++

MWS RequestReport (Amazon Marketplace Web Service)

See more Amazon MWS Examples

Creates a report request and submits the request to Amazon MWS.

See Amazon MWS RequestReport for more information.

Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL cResponseXml
LOCAL oXml
LOCAL cRequestReportResponse_xmlns
LOCAL cReportRequestId
LOCAL cReportType
LOCAL cStartDate
LOCAL cEndDate
LOCAL cScheduled
LOCAL cSubmittedDate
LOCAL cReportProcessingStatus
LOCAL cRequestId

nSuccess := 0

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

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)
IF (nSuccess != 1)
    ? "ConnectFailReason: " + Str(oRest:ConnectFailReason)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

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

oRest:AddQueryParam("AWSAccessKeyId", "0PB842EXAMPLE7N4ZTR2")
oRest:AddQueryParam("Action", "RequestReport")
oRest:AddQueryParam("EndDate", "2008-06-26T18:12:21")
oRest:AddQueryParam("MWSAuthToken", "amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE")
oRest:AddQueryParam("Marketplace", "ATVPDKIKX0DER")
oRest:AddQueryParam("ReportType", "_GET_MERCHANT_LISTINGS_DATA_")
oRest:AddQueryParam("SellerId", "A1XEXAMPLE5E6")
oRest:AddQueryParam("SignatureMethod", "HmacSHA256")
oRest:AddQueryParam("SignatureVersion", "2")
oRest:AddQueryParam("StartDate", "2009-01-03T18:12:21")
oRest:AddQueryParam("Version", "2009-01-01")

//  Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
//  The AddMwsSignature method adds the Timestamp and Signature query params.
oRest:AddMwsSignature("POST", "/Reports/2009-01-01", "mws.amazonservices.com", "MWS_SECRET_KEY")

cResponseXml := oRest:FullRequestFormUrlEncoded("POST", "/Reports/2009-01-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."

//  Sample Response

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

//  <?xml version="1.0"?>
//  <RequestReportResponse
//      xmlns="http://mws.amazonaws.com/doc/2009-01-01/">
//      <RequestReportResult>
//          <ReportRequestInfo>
//              <ReportRequestId>2291326454</ReportRequestId>
//              <ReportType>_GET_MERCHANT_LISTINGS_DATA_</ReportType>
//              <StartDate>2009-01-21T02:10:39+00:00</StartDate>
//              <EndDate>2009-02-13T02:10:39+00:00</EndDate>
//              <Scheduled>false</Scheduled>
//              <SubmittedDate>2009-02-20T02:10:39+00:00</SubmittedDate>
//              <ReportProcessingStatus>_SUBMITTED_</ReportProcessingStatus>
//          </ReportRequestInfo>
//      </RequestReportResult>
//      <ResponseMetadata>
//          <RequestId>88faca76-b600-46d2-b53c-0c8c4533e43a</RequestId>
//      </ResponseMetadata>
//  </RequestReportResponse>

oXml := CreateObject("Chilkat.Xml")
oXml:LoadXml(cResponseXml)

cRequestReportResponse_xmlns := oXml:GetAttrValue("xmlns")
cReportRequestId := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|ReportRequestId")
cReportType := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|ReportType")
cStartDate := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|StartDate")
cEndDate := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|EndDate")
cScheduled := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|Scheduled")
cSubmittedDate := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|SubmittedDate")
cReportProcessingStatus := oXml:GetChildContent("RequestReportResult|ReportRequestInfo|ReportProcessingStatus")
cRequestId := oXml:GetChildContent("ResponseMetadata|RequestId")

oRest:destroy()
oXml:destroy()