Dim table As String
table = "TCICShiftLogins"
Dim j1 As HttpJob
j1.Initialize("", Me)
j1.Download("https://prod-13.canadacentral.logic.azure.com**************************/invoke/" & table & "/?api-version=2016-10-01&sp=%2Ftriggers%2Fmanual%*********************")
Wait For (j1) JobDone(j1 As HttpJob)
If j1.Success Then
'The result is a json string. We parse it and log the fields.
Dim jp1 As JSONParser
jp1.Initialize(j1.GetString)
data = jp1.NextArray
End If
j1.Release