(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# 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'

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

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://marketplace.walmartapis.com/v3/feeds/{feedId}" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set xmlResponse [new_CkXml]

CkXml_LoadSb $xmlResponse $sbResponseBody 1

# 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

set PartnerFeedResponse_xmlns_ns2 [CkXml_getAttrValue $xmlResponse "xmlns:ns2"]
set feedId [CkXml_getChildContent $xmlResponse "feedId"]
set feedStatus [CkXml_getChildContent $xmlResponse "feedStatus"]
set itemsReceived [CkXml_GetChildIntValue $xmlResponse "itemsReceived"]
set itemsSucceeded [CkXml_GetChildIntValue $xmlResponse "itemsSucceeded"]
set itemsFailed [CkXml_GetChildIntValue $xmlResponse "itemsFailed"]
set itemsProcessing [CkXml_GetChildIntValue $xmlResponse "itemsProcessing"]
set offset [CkXml_GetChildIntValue $xmlResponse "offset"]
set limit [CkXml_GetChildIntValue $xmlResponse "limit"]
set i 0
set count_i [CkXml_NumChildrenHavingTag $xmlResponse "itemDetails|itemIngestionStatus"]
while {$i < $count_i} {
    CkXml_put_I $xmlResponse $i
    set martId [CkXml_GetChildIntValue $xmlResponse "itemDetails|itemIngestionStatus[i]|martId"]
    set sku [CkXml_getChildContent $xmlResponse "itemDetails|itemIngestionStatus[i]|sku"]
    set index [CkXml_GetChildIntValue $xmlResponse "itemDetails|itemIngestionStatus[i]|index"]
    set ingestionStatus [CkXml_getChildContent $xmlResponse "itemDetails|itemIngestionStatus[i]|ingestionStatus"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkXml $xmlResponse