Visual FoxPro

Merge SP-API JSON Order Arrays

See more Amazon SP-API Examples

Demonstrates how to merge JSON arrays for the case of Amazon SP-API orders. Visual FoxPro

LOCAL lnSuccess
LOCAL lcA1
LOCAL lcA2
LOCAL loJson1
LOCAL loJson2
LOCAL loJarr1
LOCAL loJarr2
LOCAL i
LOCAL lnNumOrders
LOCAL loJOrder

lnSuccess = 0

* Batch 1 File
lcA1 = '{"payload": {"Orders": [{"AmazonOrderId": "1","OrderStatus": "Unshipped"},{"AmazonOrderId": "2","OrderStatus": "Unshipped"}]}'

* Batch 2 File
lcA2 = '{"payload": {"Orders": [{"AmazonOrderId": "3","OrderStatus": "Unshipped"},{"AmazonOrderId": "4","OrderStatus": "Unshipped"}]}'

* Required Merged File
* {"payload": {"Orders": [{"AmazonOrderId": "1","OrderStatus": "Unshipped"},{"AmazonOrderId": "2","OrderStatus": "Unshipped"},{"AmazonOrderId": "3","OrderStatus": "Unshipped"},{"AmazonOrderId": "4","OrderStatus": "Unshipped"}]}

lnSuccess = 1
loJson1 = CreateObject('Chilkat.JsonObject')
loJson1.Load(lcA1)

loJson2 = CreateObject('Chilkat.JsonObject')
loJson2.Load(lcA2)

* We're going to add the order records from json2 to json1.
loJarr1 = loJson1.ArrayOf("payload.Orders")
loJarr2 = loJson2.ArrayOf("payload.Orders")

i = 0
lnNumOrders = loJarr2.Size
DO WHILE (i < lnNumOrders)
    loJOrder = loJarr2.ObjectAt(i)
    * Assuming non-null return...
    loJarr1.AddObjectCopyAt(-1,loJOrder)
    i = i + 1
ENDDO

* Show the merged JSON.
loJson1.EmitCompact = 0
? loJson1.Emit()

* Result:

* {
*   "payload": {
*     "Orders": [
*       {
*         "AmazonOrderId": "1",
*         "OrderStatus": "Unshipped"
*       },
*       {
*         "AmazonOrderId": "2",
*         "OrderStatus": "Unshipped"
*       },
*       {
*         "AmazonOrderId": "3",
*         "OrderStatus": "Unshipped"
*       },
*       {
*         "AmazonOrderId": "4",
*         "OrderStatus": "Unshipped"
*       }
*     ]
*   }
* }

RELEASE loJson1
RELEASE loJson2