(Xojo Plugin) Walmart v3 Get All Feed Statuses

Returns the feed statuses for all the specified Feed IDs.

For more information, see https://developer.walmart.com/#/apicenter/marketPlace/latest#getAllFeedStatuses

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http
Dim success As Boolean

// Implements the following CURL command:

// curl -X GET \
//   https://marketplace.walmartapis.com/v3/feeds?feedId={feedId}&limit={limit}&offset={offset} \
//   -H 'WM_SVC.NAME: Walmart Marketplace'
//   -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
//   -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
//   -H 'Content-Type: application/xml'
//   -H 'Accept: application/xml'

http.SetRequestHeader "WM_QOS.CORRELATION_ID","b3261d2d-028a-4ef7-8602-633c23200af6"
http.SetRequestHeader "Content-Type","application/xml"
http.SetRequestHeader "WM_SEC.ACCESS_TOKEN","eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM....."
http.SetRequestHeader "Accept","application/xml"
http.SetRequestHeader "WM_SVC.NAME","Walmart Marketplace"

Dim sbResponseBody As New Chilkat.StringBuilder
success = http.QuickGetSb("https://marketplace.walmartapis.com/v3/feeds?feedId={feedId}&limit={limit}&offset={offset}",sbResponseBody)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim xmlResponse As New Chilkat.Xml
success = xmlResponse.LoadSb(sbResponseBody,True)

// Sample XML response:
// (Sample code for parsing the XML response is shown below)

// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <ns2:list xmlns:ns2="http://walmart.com/">
//     <ns2:totalResults>2</ns2:totalResults>
//     <ns2:offset>0</ns2:offset>
//     <ns2:limit>50</ns2:limit>
//     <ns2:results>
//         <ns2:feed>
//             <ns2:feedId>12234EGGT564YTEGFA@AQMBAQA</ns2:feedId>
//             <ns2:feedSource>MARKETPLACE_PARTNER</ns2:feedSource>
//             <ns2:feedType>item</ns2:feedType>
//             <ns2:partnerId>1413254255</ns2:partnerId>
//             <ns2:itemsReceived>1</ns2:itemsReceived>
//             <ns2:itemsSucceeded>1</ns2:itemsSucceeded>
//             <ns2:itemsFailed>0</ns2:itemsFailed>
//             <ns2:itemsProcessing>0</ns2:itemsProcessing>
//             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
//             <ns2:feedDate>2018-07-20T21:56:12.605Z</ns2:feedDate>
//             <ns2:batchId>HP_REQUEST_BATCH</ns2:batchId>
//             <ns2:modifiedDtm>2018-07-20T21:56:17.948Z</ns2:modifiedDtm>
//             <ns2:fileName>ItemFeed99_ParadiseCounty_paperback.xml</ns2:fileName>
//             <ns2:itemDataErrorCount>0</ns2:itemDataErrorCount>
//             <ns2:itemSystemErrorCount>0</ns2:itemSystemErrorCount>
//             <ns2:itemTimeoutErrorCount>0</ns2:itemTimeoutErrorCount>
//             <ns2:channelType>WM_TEST</ns2:channelType>
//         </ns2:feed>
//         <ns2:feed>
//             <ns2:feedId>12234EGGT564YTEGFA@AQMBAQA</ns2:feedId>
//             <ns2:feedSource>MARKETPLACE_PARTNER</ns2:feedSource>
//             <ns2:feedType>item</ns2:feedType>
//             <ns2:partnerId>1413254255</ns2:partnerId>
//             <ns2:itemsReceived>1</ns2:itemsReceived>
//             <ns2:itemsSucceeded>1</ns2:itemsSucceeded>
//             <ns2:itemsFailed>0</ns2:itemsFailed>
//             <ns2:itemsProcessing>0</ns2:itemsProcessing>
//             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
//             <ns2:feedDate>2018-07-20T21:56:12.605Z</ns2:feedDate>
//             <ns2:batchId>HP_REQUEST_BATCH</ns2:batchId>
//             <ns2:modifiedDtm>2018-07-20T21:56:17.948Z</ns2:modifiedDtm>
//             <ns2:fileName>ItemFeed99_ParadiseCounty_paperback.xml</ns2:fileName>
//             <ns2:itemDataErrorCount>0</ns2:itemDataErrorCount>
//             <ns2:itemSystemErrorCount>0</ns2:itemSystemErrorCount>
//             <ns2:itemTimeoutErrorCount>0</ns2:itemTimeoutErrorCount>
//             <ns2:channelType>WM_TEST</ns2:channelType>
//         </ns2:feed>
//     </ns2:results>
// </ns2:list>

// Sample code for parsing the XML response...
// Use the following online tool to generate parsing code from sample XML:
// Generate Parsing Code from XML

Dim ns2_list_xmlns_ns2 As String
Dim ns2_totalResults As Int32
Dim ns2_offset As Int32
Dim ns2_limit As Int32
Dim i As Int32
Dim count_i As Int32
Dim ns2_feedId As String
Dim ns2_feedSource As String
Dim ns2_feedType As String
Dim ns2_partnerId As Int32
Dim ns2_itemsReceived As Int32
Dim ns2_itemsSucceeded As Int32
Dim ns2_itemsFailed As Int32
Dim ns2_itemsProcessing As Int32
Dim ns2_feedStatus As String
Dim ns2_feedDate As String
Dim ns2_batchId As String
Dim ns2_modifiedDtm As String
Dim ns2_fileName As String
Dim ns2_itemDataErrorCount As Int32
Dim ns2_itemSystemErrorCount As Int32
Dim ns2_itemTimeoutErrorCount As Int32
Dim ns2_channelType As String

ns2_list_xmlns_ns2 = xmlResponse.GetAttrValue("xmlns:ns2")
ns2_totalResults = xmlResponse.GetChildIntValue("ns2:totalResults")
ns2_offset = xmlResponse.GetChildIntValue("ns2:offset")
ns2_limit = xmlResponse.GetChildIntValue("ns2:limit")
i = 0
count_i = xmlResponse.NumChildrenHavingTag("ns2:results|ns2:feed")
While i < count_i
    xmlResponse.I = i
    ns2_feedId = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedId")
    ns2_feedSource = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedSource")
    ns2_feedType = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedType")
    ns2_partnerId = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:partnerId")
    ns2_itemsReceived = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemsReceived")
    ns2_itemsSucceeded = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemsSucceeded")
    ns2_itemsFailed = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemsFailed")
    ns2_itemsProcessing = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemsProcessing")
    ns2_feedStatus = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedStatus")
    ns2_feedDate = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedDate")
    ns2_batchId = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:batchId")
    ns2_modifiedDtm = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:modifiedDtm")
    ns2_fileName = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:fileName")
    ns2_itemDataErrorCount = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemDataErrorCount")
    ns2_itemSystemErrorCount = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemSystemErrorCount")
    ns2_itemTimeoutErrorCount = xmlResponse.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemTimeoutErrorCount")
    ns2_channelType = xmlResponse.GetChildContent("ns2:results|ns2:feed[i]|ns2:channelType")
    i = i + 1
Wend