(VB.NET UWP/WinRT) Walmart v3 Get a Feed Status

This API returns the feed status for a specified Feed ID.

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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} \
'   -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 = Await http.QuickGetSbAsync("https://marketplace.walmartapis.com/v3/feeds/{feedId}",sbResponseBody)
If (success = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


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

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

' <?xml version="1.0" encoding="UTF-8"?>
' <PartnerFeedResponse xmlns:ns2="http://walmart.com/">
'     <feedId>1c349f8f-aec0-411f-8454-ead47d12946f</feedId>
'     <feedStatus>PROCESSED</feedStatus>
'     <ingestionErrors/>
'     <itemsReceived>11</itemsReceived>
'     <itemsSucceeded>11</itemsSucceeded>
'     <itemsFailed>0</itemsFailed>
'     <itemsProcessing>0</itemsProcessing>
'     <offset>0</offset>
'     <limit>0</limit>
'     <itemDetails>
'         <itemIngestionStatus>
'             <martId>0</martId>
'             <sku>sku1</sku>
'             <index>8</index>
'             <ingestionStatus>SUCCESS</ingestionStatus>
'             <ingestionErrors/>
'         </itemIngestionStatus>
'         <itemIngestionStatus>
'             <martId>0</martId>
'             <sku>sku2</sku>
'             <index>6</index>
'             <ingestionStatus>SUCCESS</ingestionStatus>
'             <ingestionErrors/>
'         </itemIngestionStatus>
'         <itemIngestionStatus>
'             <martId>0</martId>
'             <sku>sku3</sku>
'             <index>9</index>
'             <ingestionStatus>SUCCESS</ingestionStatus>
'             <ingestionErrors/>
'         </itemIngestionStatus>
'     </itemDetails>
' </PartnerFeedResponse>

' 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 PartnerFeedResponse_xmlns_ns2 As String
Dim feedId As String
Dim feedStatus As String
Dim itemsReceived As Integer
Dim itemsSucceeded As Integer
Dim itemsFailed As Integer
Dim itemsProcessing As Integer
Dim offset As Integer
Dim limit As Integer
Dim i As Integer
Dim count_i As Integer
Dim martId As Integer
Dim sku As String
Dim index As Integer
Dim ingestionStatus As String

PartnerFeedResponse_xmlns_ns2 = xmlResponse.GetAttrValue("xmlns:ns2")
feedId = xmlResponse.GetChildContent("feedId")
feedStatus = xmlResponse.GetChildContent("feedStatus")
itemsReceived = xmlResponse.GetChildIntValue("itemsReceived")
itemsSucceeded = xmlResponse.GetChildIntValue("itemsSucceeded")
itemsFailed = xmlResponse.GetChildIntValue("itemsFailed")
itemsProcessing = xmlResponse.GetChildIntValue("itemsProcessing")
offset = xmlResponse.GetChildIntValue("offset")
limit = xmlResponse.GetChildIntValue("limit")
i = 0
count_i = xmlResponse.NumChildrenHavingTag("itemDetails|itemIngestionStatus")
While i < count_i
    xmlResponse.I = i
    martId = xmlResponse.GetChildIntValue("itemDetails|itemIngestionStatus[i]|martId")
    sku = xmlResponse.GetChildContent("itemDetails|itemIngestionStatus[i]|sku")
    index = xmlResponse.GetChildIntValue("itemDetails|itemIngestionStatus[i]|index")
    ingestionStatus = xmlResponse.GetChildContent("itemDetails|itemIngestionStatus[i]|ingestionStatus")
    i = i + 1
End While