BatchRead VB6 Example
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim rest As New ChilkatRest
Dim success As Long
Dim authAws As New ChilkatAuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
' Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
authAws.Region = "us-west-2"
authAws.ServiceName = "clouddirectory"
' SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
success = rest.SetAuthAws(authAws)
' URL: https://clouddirectory.us-west-2.amazonaws.com/
' Use the same region as specified above.
success = rest.Connect("clouddirectory.us-west-2.amazonaws.com",443,1,1)
If (success <> 1) Then
Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
Debug.Print rest.LastErrorText
Exit Sub
End If
' The following code creates the JSON request body.
' The JSON created by this code is shown below.
' Use this online tool to generate code from sample JSON:
' Generate Code to Create JSON
Dim json As New ChilkatJsonObject
success = json.UpdateString("Operations[0].GetLinkAttributes.AttributeNames[0]","string")
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName","string")
success = json.UpdateInt("Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue",123)
success = json.UpdateInt("Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue",123)
success = json.UpdateInt("Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue",123)
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue","string")
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue","string")
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.SourceObjectReference.Selector","string")
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.TargetObjectReference.Selector","string")
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.SchemaArn","string")
success = json.UpdateString("Operations[0].GetLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName","string")
success = json.UpdateString("Operations[0].GetObjectAttributes.AttributeNames[0]","string")
success = json.UpdateString("Operations[0].GetObjectAttributes.ObjectReference.Selector","string")
success = json.UpdateString("Operations[0].GetObjectAttributes.SchemaFacet.FacetName","string")
success = json.UpdateString("Operations[0].GetObjectAttributes.SchemaFacet.SchemaArn","string")
success = json.UpdateString("Operations[0].GetObjectInformation.ObjectReference.Selector","string")
success = json.UpdateInt("Operations[0].ListAttachedIndices.MaxResults",123)
success = json.UpdateString("Operations[0].ListAttachedIndices.NextToken","string")
success = json.UpdateString("Operations[0].ListAttachedIndices.TargetReference.Selector","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].AttributeName","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndMode","string")
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BinaryValue",123)
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BooleanValue",123)
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.DatetimeValue",123)
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.NumberValue","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.EndValue.StringValue","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartMode","string")
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BinaryValue",123)
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BooleanValue",123)
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.DatetimeValue",123)
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.NumberValue","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterAttributeRanges[0].Range.StartValue.StringValue","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterTypedLink.SchemaArn","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.FilterTypedLink.TypedLinkName","string")
success = json.UpdateInt("Operations[0].ListIncomingTypedLinks.MaxResults",123)
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.NextToken","string")
success = json.UpdateString("Operations[0].ListIncomingTypedLinks.ObjectReference.Selector","string")
success = json.UpdateString("Operations[0].ListIndex.IndexReference.Selector","string")
success = json.UpdateInt("Operations[0].ListIndex.MaxResults",123)
success = json.UpdateString("Operations[0].ListIndex.NextToken","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].AttributeKey.FacetName","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].AttributeKey.Name","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].AttributeKey.SchemaArn","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndMode","string")
success = json.UpdateInt("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.BinaryValue",123)
success = json.UpdateInt("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.BooleanValue",123)
success = json.UpdateInt("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.DatetimeValue",123)
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.NumberValue","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.EndValue.StringValue","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartMode","string")
success = json.UpdateInt("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.BinaryValue",123)
success = json.UpdateInt("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.BooleanValue",123)
success = json.UpdateInt("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.DatetimeValue",123)
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.NumberValue","string")
success = json.UpdateString("Operations[0].ListIndex.RangesOnIndexedValues[0].Range.StartValue.StringValue","string")
success = json.UpdateString("Operations[0].ListObjectAttributes.FacetFilter.FacetName","string")
success = json.UpdateString("Operations[0].ListObjectAttributes.FacetFilter.SchemaArn","string")
success = json.UpdateInt("Operations[0].ListObjectAttributes.MaxResults",123)
success = json.UpdateString("Operations[0].ListObjectAttributes.NextToken","string")
success = json.UpdateString("Operations[0].ListObjectAttributes.ObjectReference.Selector","string")
success = json.UpdateInt("Operations[0].ListObjectChildren.MaxResults",123)
success = json.UpdateString("Operations[0].ListObjectChildren.NextToken","string")
success = json.UpdateString("Operations[0].ListObjectChildren.ObjectReference.Selector","string")
success = json.UpdateInt("Operations[0].ListObjectParentPaths.MaxResults",123)
success = json.UpdateString("Operations[0].ListObjectParentPaths.NextToken","string")
success = json.UpdateString("Operations[0].ListObjectParentPaths.ObjectReference.Selector","string")
success = json.UpdateInt("Operations[0].ListObjectParents.MaxResults",123)
success = json.UpdateString("Operations[0].ListObjectParents.NextToken","string")
success = json.UpdateString("Operations[0].ListObjectParents.ObjectReference.Selector","string")
success = json.UpdateInt("Operations[0].ListObjectPolicies.MaxResults",123)
success = json.UpdateString("Operations[0].ListObjectPolicies.NextToken","string")
success = json.UpdateString("Operations[0].ListObjectPolicies.ObjectReference.Selector","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].AttributeName","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndMode","string")
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BinaryValue",123)
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.BooleanValue",123)
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.DatetimeValue",123)
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.NumberValue","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.EndValue.StringValue","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartMode","string")
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BinaryValue",123)
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.BooleanValue",123)
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.DatetimeValue",123)
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.NumberValue","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterAttributeRanges[0].Range.StartValue.StringValue","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterTypedLink.SchemaArn","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.FilterTypedLink.TypedLinkName","string")
success = json.UpdateInt("Operations[0].ListOutgoingTypedLinks.MaxResults",123)
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.NextToken","string")
success = json.UpdateString("Operations[0].ListOutgoingTypedLinks.ObjectReference.Selector","string")
success = json.UpdateInt("Operations[0].ListPolicyAttachments.MaxResults",123)
success = json.UpdateString("Operations[0].ListPolicyAttachments.NextToken","string")
success = json.UpdateString("Operations[0].ListPolicyAttachments.PolicyReference.Selector","string")
success = json.UpdateInt("Operations[0].LookupPolicy.MaxResults",123)
success = json.UpdateString("Operations[0].LookupPolicy.NextToken","string")
success = json.UpdateString("Operations[0].LookupPolicy.ObjectReference.Selector","string")
' The JSON request body created by the above code:
' {
' "Operations": [
' {
' "GetLinkAttributes": {
' "AttributeNames": [
' "string"
' ],
' "TypedLinkSpecifier": {
' "IdentityAttributeValues": [
' {
' "AttributeName": "string",
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ],
' "SourceObjectReference": {
' "Selector": "string"
' },
' "TargetObjectReference": {
' "Selector": "string"
' },
' "TypedLinkFacet": {
' "SchemaArn": "string",
' "TypedLinkName": "string"
' }
' }
' },
' "GetObjectAttributes": {
' "AttributeNames": [
' "string"
' ],
' "ObjectReference": {
' "Selector": "string"
' },
' "SchemaFacet": {
' "FacetName": "string",
' "SchemaArn": "string"
' }
' },
' "GetObjectInformation": {
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListAttachedIndices": {
' "MaxResults": number,
' "NextToken": "string",
' "TargetReference": {
' "Selector": "string"
' }
' },
' "ListIncomingTypedLinks": {
' "FilterAttributeRanges": [
' {
' "AttributeName": "string",
' "Range": {
' "EndMode": "string",
' "EndValue": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' },
' "StartMode": "string",
' "StartValue": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' }
' ],
' "FilterTypedLink": {
' "SchemaArn": "string",
' "TypedLinkName": "string"
' },
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListIndex": {
' "IndexReference": {
' "Selector": "string"
' },
' "MaxResults": number,
' "NextToken": "string",
' "RangesOnIndexedValues": [
' {
' "AttributeKey": {
' "FacetName": "string",
' "Name": "string",
' "SchemaArn": "string"
' },
' "Range": {
' "EndMode": "string",
' "EndValue": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' },
' "StartMode": "string",
' "StartValue": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' }
' ]
' },
' "ListObjectAttributes": {
' "FacetFilter": {
' "FacetName": "string",
' "SchemaArn": "string"
' },
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListObjectChildren": {
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListObjectParentPaths": {
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListObjectParents": {
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListObjectPolicies": {
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListOutgoingTypedLinks": {
' "FilterAttributeRanges": [
' {
' "AttributeName": "string",
' "Range": {
' "EndMode": "string",
' "EndValue": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' },
' "StartMode": "string",
' "StartValue": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' }
' ],
' "FilterTypedLink": {
' "SchemaArn": "string",
' "TypedLinkName": "string"
' },
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' },
' "ListPolicyAttachments": {
' "MaxResults": number,
' "NextToken": "string",
' "PolicyReference": {
' "Selector": "string"
' }
' },
' "LookupPolicy": {
' "MaxResults": number,
' "NextToken": "string",
' "ObjectReference": {
' "Selector": "string"
' }
' }
' }
' ]
' }
success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","BatchRead")
Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)
Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestSb("POST","/amazonclouddirectory/2017-01-11/batchread",sbRequestBody,sbResponseBody)
If (success <> 1) Then
Debug.Print rest.LastErrorText
Exit Sub
End If
Dim respStatusCode As Long
respStatusCode = rest.ResponseStatusCode
Debug.Print "response status code = " & respStatusCode
If (respStatusCode <> 200) Then
Debug.Print "Response Header:"
Debug.Print rest.ResponseHeader
Debug.Print "Response Body:"
Debug.Print sbResponseBody.GetAsString()
Exit Sub
End If
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.
' Use this online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON
Dim Message As String
Dim v_Type As String
Dim ObjectIdentifier As String
Dim NextToken As String
Dim ListIncomingTypedLinksNextToken As String
Dim ListIndexNextToken As String
Dim ListObjectAttributesNextToken As String
Dim v_String As String
Dim ListObjectChildrenNextToken As String
Dim ListObjectParentPathsNextToken As String
Dim ListObjectParentsNextToken As String
Dim ListObjectPoliciesNextToken As String
Dim ListOutgoingTypedLinksNextToken As String
Dim ListPolicyAttachmentsNextToken As String
Dim LookupPolicyNextToken As String
Dim j As Long
Dim count_j As Long
Dim FacetName As String
Dim Name As String
Dim SchemaArn As String
Dim BinaryValue As Long
Dim BooleanValue As Long
Dim DatetimeValue As Long
Dim NumberValue As String
Dim StringValue As String
Dim KeyFacetName As String
Dim KeyName As String
Dim KeySchemaArn As String
Dim ValueBinaryValue As Long
Dim ValueBooleanValue As Long
Dim ValueDatetimeValue As Long
Dim ValueNumberValue As String
Dim ValueStringValue As String
Dim k As Long
Dim count_k As Long
Dim Selector As String
Dim TargetObjectReferenceSelector As String
Dim TypedLinkFacetSchemaArn As String
Dim TypedLinkName As String
Dim AttributeName As String
Dim Path As String
Dim strVal As String
Dim LinkName As String
Dim SourceObjectReferenceSelector As String
Dim TypedLinkFacetTypedLinkName As String
Dim PolicyId As String
Dim PolicyType As String
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("Responses")
Do While i < count_i
jResp.I = i
Message = jResp.StringOf("Responses[i].ExceptionResponse.Message")
v_Type = jResp.StringOf("Responses[i].ExceptionResponse.Type")
ObjectIdentifier = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectInformation.ObjectIdentifier")
NextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.NextToken")
ListIncomingTypedLinksNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.NextToken")
ListIndexNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.NextToken")
ListObjectAttributesNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectAttributes.NextToken")
v_String = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectChildren.Children.string")
ListObjectChildrenNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectChildren.NextToken")
ListObjectParentPathsNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectParentPaths.NextToken")
ListObjectParentsNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectParents.NextToken")
ListObjectPoliciesNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectPolicies.NextToken")
ListOutgoingTypedLinksNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.NextToken")
ListPolicyAttachmentsNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.ListPolicyAttachments.NextToken")
LookupPolicyNextToken = jResp.StringOf("Responses[i].SuccessfulResponse.LookupPolicy.NextToken")
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes")
Do While j < count_j
jResp.J = j
FacetName = jResp.StringOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Key.FacetName")
Name = jResp.StringOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Key.Name")
SchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Key.SchemaArn")
BinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.BinaryValue")
BooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.BooleanValue")
DatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.DatetimeValue")
NumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.NumberValue")
StringValue = jResp.StringOf("Responses[i].SuccessfulResponse.GetLinkAttributes.Attributes[j].Value.StringValue")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes")
Do While j < count_j
jResp.J = j
KeyFacetName = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Key.FacetName")
KeyName = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Key.Name")
KeySchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Key.SchemaArn")
ValueBinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.BinaryValue")
ValueBooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.BooleanValue")
ValueDatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.DatetimeValue")
ValueNumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.NumberValue")
ValueStringValue = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectAttributes.Attributes[j].Value.StringValue")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.GetObjectInformation.SchemaFacets")
Do While j < count_j
jResp.J = j
FacetName = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectInformation.SchemaFacets[j].FacetName")
SchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.GetObjectInformation.SchemaFacets[j].SchemaArn")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments")
Do While j < count_j
jResp.J = j
ObjectIdentifier = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].ObjectIdentifier")
k = 0
count_k = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes")
Do While k < count_k
jResp.K = k
KeyFacetName = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Key.FacetName")
KeyName = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Key.Name")
KeySchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Key.SchemaArn")
ValueBinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.BinaryValue")
ValueBooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.BooleanValue")
ValueDatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.DatetimeValue")
ValueNumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.NumberValue")
ValueStringValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListAttachedIndices.IndexAttachments[j].IndexedAttributes[k].Value.StringValue")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers")
Do While j < count_j
jResp.J = j
Selector = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].SourceObjectReference.Selector")
TargetObjectReferenceSelector = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].TargetObjectReference.Selector")
TypedLinkFacetSchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].TypedLinkFacet.SchemaArn")
TypedLinkName = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].TypedLinkFacet.TypedLinkName")
k = 0
count_k = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues")
Do While k < count_k
jResp.K = k
AttributeName = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].AttributeName")
ValueBinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.BinaryValue")
ValueBooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.BooleanValue")
ValueDatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.DatetimeValue")
ValueNumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.NumberValue")
ValueStringValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListIncomingTypedLinks.LinkSpecifiers[j].IdentityAttributeValues[k].Value.StringValue")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments")
Do While j < count_j
jResp.J = j
ObjectIdentifier = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].ObjectIdentifier")
k = 0
count_k = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes")
Do While k < count_k
jResp.K = k
KeyFacetName = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Key.FacetName")
KeyName = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Key.Name")
KeySchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Key.SchemaArn")
ValueBinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.BinaryValue")
ValueBooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.BooleanValue")
ValueDatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.DatetimeValue")
ValueNumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.NumberValue")
ValueStringValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListIndex.IndexAttachments[j].IndexedAttributes[k].Value.StringValue")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes")
Do While j < count_j
jResp.J = j
KeyFacetName = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Key.FacetName")
KeyName = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Key.Name")
KeySchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Key.SchemaArn")
ValueBinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.BinaryValue")
ValueBooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.BooleanValue")
ValueDatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.DatetimeValue")
ValueNumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.NumberValue")
ValueStringValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectAttributes.Attributes[j].Value.StringValue")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList")
Do While j < count_j
jResp.J = j
Path = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList[j].Path")
k = 0
count_k = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList[j].ObjectIdentifiers")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectParentPaths.PathToObjectIdentifiersList[j].ObjectIdentifiers[k]")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListObjectParents.ParentLinks")
Do While j < count_j
jResp.J = j
LinkName = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectParents.ParentLinks[j].LinkName")
ObjectIdentifier = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectParents.ParentLinks[j].ObjectIdentifier")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListObjectPolicies.AttachedPolicyIds")
Do While j < count_j
jResp.J = j
strVal = jResp.StringOf("Responses[i].SuccessfulResponse.ListObjectPolicies.AttachedPolicyIds[j]")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers")
Do While j < count_j
jResp.J = j
SourceObjectReferenceSelector = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].SourceObjectReference.Selector")
TargetObjectReferenceSelector = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].TargetObjectReference.Selector")
TypedLinkFacetSchemaArn = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].TypedLinkFacet.SchemaArn")
TypedLinkFacetTypedLinkName = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].TypedLinkFacet.TypedLinkName")
k = 0
count_k = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues")
Do While k < count_k
jResp.K = k
AttributeName = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].AttributeName")
ValueBinaryValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.BinaryValue")
ValueBooleanValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.BooleanValue")
ValueDatetimeValue = jResp.IntOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.DatetimeValue")
ValueNumberValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.NumberValue")
ValueStringValue = jResp.StringOf("Responses[i].SuccessfulResponse.ListOutgoingTypedLinks.TypedLinkSpecifiers[j].IdentityAttributeValues[k].Value.StringValue")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.ListPolicyAttachments.ObjectIdentifiers")
Do While j < count_j
jResp.J = j
strVal = jResp.StringOf("Responses[i].SuccessfulResponse.ListPolicyAttachments.ObjectIdentifiers[j]")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList")
Do While j < count_j
jResp.J = j
Path = jResp.StringOf("Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Path")
k = 0
count_k = jResp.SizeOfArray("Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies")
Do While k < count_k
jResp.K = k
ObjectIdentifier = jResp.StringOf("Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies[k].ObjectIdentifier")
PolicyId = jResp.StringOf("Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies[k].PolicyId")
PolicyType = jResp.StringOf("Responses[i].SuccessfulResponse.LookupPolicy.PolicyToPathList[j].Policies[k].PolicyType")
k = k + 1
Loop
j = j + 1
Loop
i = i + 1
Loop
' A sample JSON response body parsed by the above code:
' {
' "Responses": [
' {
' "ExceptionResponse": {
' "Message": "string",
' "Type": "string"
' },
' "SuccessfulResponse": {
' "GetLinkAttributes": {
' "Attributes": [
' {
' "Key": {
' "FacetName": "string",
' "Name": "string",
' "SchemaArn": "string"
' },
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ]
' },
' "GetObjectAttributes": {
' "Attributes": [
' {
' "Key": {
' "FacetName": "string",
' "Name": "string",
' "SchemaArn": "string"
' },
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ]
' },
' "GetObjectInformation": {
' "ObjectIdentifier": "string",
' "SchemaFacets": [
' {
' "FacetName": "string",
' "SchemaArn": "string"
' }
' ]
' },
' "ListAttachedIndices": {
' "IndexAttachments": [
' {
' "IndexedAttributes": [
' {
' "Key": {
' "FacetName": "string",
' "Name": "string",
' "SchemaArn": "string"
' },
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ],
' "ObjectIdentifier": "string"
' }
' ],
' "NextToken": "string"
' },
' "ListIncomingTypedLinks": {
' "LinkSpecifiers": [
' {
' "IdentityAttributeValues": [
' {
' "AttributeName": "string",
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ],
' "SourceObjectReference": {
' "Selector": "string"
' },
' "TargetObjectReference": {
' "Selector": "string"
' },
' "TypedLinkFacet": {
' "SchemaArn": "string",
' "TypedLinkName": "string"
' }
' }
' ],
' "NextToken": "string"
' },
' "ListIndex": {
' "IndexAttachments": [
' {
' "IndexedAttributes": [
' {
' "Key": {
' "FacetName": "string",
' "Name": "string",
' "SchemaArn": "string"
' },
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ],
' "ObjectIdentifier": "string"
' }
' ],
' "NextToken": "string"
' },
' "ListObjectAttributes": {
' "Attributes": [
' {
' "Key": {
' "FacetName": "string",
' "Name": "string",
' "SchemaArn": "string"
' },
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ],
' "NextToken": "string"
' },
' "ListObjectChildren": {
' "Children": {
' "string": "string"
' },
' "NextToken": "string"
' },
' "ListObjectParentPaths": {
' "NextToken": "string",
' "PathToObjectIdentifiersList": [
' {
' "ObjectIdentifiers": [
' "string"
' ],
' "Path": "string"
' }
' ]
' },
' "ListObjectParents": {
' "NextToken": "string",
' "ParentLinks": [
' {
' "LinkName": "string",
' "ObjectIdentifier": "string"
' }
' ]
' },
' "ListObjectPolicies": {
' "AttachedPolicyIds": [
' "string"
' ],
' "NextToken": "string"
' },
' "ListOutgoingTypedLinks": {
' "NextToken": "string",
' "TypedLinkSpecifiers": [
' {
' "IdentityAttributeValues": [
' {
' "AttributeName": "string",
' "Value": {
' "BinaryValue": blob,
' "BooleanValue": boolean,
' "DatetimeValue": number,
' "NumberValue": "string",
' "StringValue": "string"
' }
' }
' ],
' "SourceObjectReference": {
' "Selector": "string"
' },
' "TargetObjectReference": {
' "Selector": "string"
' },
' "TypedLinkFacet": {
' "SchemaArn": "string",
' "TypedLinkName": "string"
' }
' }
' ]
' },
' "ListPolicyAttachments": {
' "NextToken": "string",
' "ObjectIdentifiers": [
' "string"
' ]
' },
' "LookupPolicy": {
' "NextToken": "string",
' "PolicyToPathList": [
' {
' "Path": "string",
' "Policies": [
' {
' "ObjectIdentifier": "string",
' "PolicyId": "string",
' "PolicyType": "string"
' }
' ]
' }
' ]
' }
' }
' }
' ]
' }
