BatchWrite PureBasic Example
IncludeFile "CkJsonObject.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkRest.pb"
IncludeFile "CkAuthAws.pb"
Procedure ChilkatExample()
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
rest.i = CkRest::ckCreate()
If rest.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
authAws.i = CkAuthAws::ckCreate()
If authAws.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkAuthAws::setCkAccessKey(authAws, "AWS_ACCESS_KEY")
CkAuthAws::setCkSecretKey(authAws, "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.)
CkAuthAws::setCkRegion(authAws, "us-west-2")
CkAuthAws::setCkServiceName(authAws, "clouddirectory")
; SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest::ckSetAuthAws(rest,authAws)
; URL: https://clouddirectory.us-west-2.amazonaws.com/
; Use the same region as specified above.
success = CkRest::ckConnect(rest,"clouddirectory.us-west-2.amazonaws.com",443,1,1)
If success <> 1
Debug "ConnectFailReason: " + Str(CkRest::ckConnectFailReason(rest))
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
ProcedureReturn
EndIf
; 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
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.Name","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Key.SchemaArn","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.ObjectAttributeList[0].Value.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.ObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.SchemaFacet.FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AddFacetToObject.SchemaFacet.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachObject.ChildReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachObject.LinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachObject.ParentReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachPolicy.ObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachPolicy.PolicyReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachToIndex.IndexReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachToIndex.TargetReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.Attributes[0].AttributeName","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].AttachTypedLink.Attributes[0].Value.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].AttachTypedLink.Attributes[0].Value.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].AttachTypedLink.Attributes[0].Value.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.Attributes[0].Value.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.Attributes[0].Value.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.SourceObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.TargetObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.TypedLinkFacet.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].AttachTypedLink.TypedLinkFacet.TypedLinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateIndex.BatchReferenceName","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].CreateIndex.IsUnique",123)
CkJsonObject::ckUpdateString(json,"Operations[0].CreateIndex.LinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateIndex.OrderedIndexedAttributeList[0].FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateIndex.OrderedIndexedAttributeList[0].Name","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateIndex.OrderedIndexedAttributeList[0].SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateIndex.ParentReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.BatchReferenceName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.LinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.ObjectAttributeList[0].Key.FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.ObjectAttributeList[0].Key.Name","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.ObjectAttributeList[0].Key.SchemaArn","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].CreateObject.ObjectAttributeList[0].Value.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].CreateObject.ObjectAttributeList[0].Value.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].CreateObject.ObjectAttributeList[0].Value.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.ObjectAttributeList[0].Value.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.ObjectAttributeList[0].Value.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.ParentReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.SchemaFacet[0].FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].CreateObject.SchemaFacet[0].SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DeleteObject.ObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachFromIndex.IndexReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachFromIndex.TargetReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachObject.BatchReferenceName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachObject.LinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachObject.ParentReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachPolicy.ObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachPolicy.PolicyReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.SourceObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.TargetObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.TypedLinkFacet.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].DetachTypedLink.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].RemoveFacetFromObject.ObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].RemoveFacetFromObject.SchemaFacet.FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].RemoveFacetFromObject.SchemaFacet.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeActionType","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeAction.AttributeUpdateValue.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.Name","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.AttributeUpdates[0].AttributeKey.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].AttributeName","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.IdentityAttributeValues[0].Value.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.SourceObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TargetObjectReference.Selector","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateLinkAttributes.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeActionType","string")
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.BinaryValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.BooleanValue",123)
CkJsonObject::ckUpdateInt(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.DatetimeValue",123)
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.NumberValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeAction.ObjectAttributeUpdateValue.StringValue","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.FacetName","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.Name","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.AttributeUpdates[0].ObjectAttributeKey.SchemaArn","string")
CkJsonObject::ckUpdateString(json,"Operations[0].UpdateObjectAttributes.ObjectReference.Selector","string")
; The JSON request body created by the above code:
; {
; "Operations": [
; {
; "AddFacetToObject": {
; "ObjectAttributeList": [
; {
; "Key": {
; "FacetName": "string",
; "Name": "string",
; "SchemaArn": "string"
; },
; "Value": {
; "BinaryValue": blob,
; "BooleanValue": boolean,
; "DatetimeValue": number,
; "NumberValue": "string",
; "StringValue": "string"
; }
; }
; ],
; "ObjectReference": {
; "Selector": "string"
; },
; "SchemaFacet": {
; "FacetName": "string",
; "SchemaArn": "string"
; }
; },
; "AttachObject": {
; "ChildReference": {
; "Selector": "string"
; },
; "LinkName": "string",
; "ParentReference": {
; "Selector": "string"
; }
; },
; "AttachPolicy": {
; "ObjectReference": {
; "Selector": "string"
; },
; "PolicyReference": {
; "Selector": "string"
; }
; },
; "AttachToIndex": {
; "IndexReference": {
; "Selector": "string"
; },
; "TargetReference": {
; "Selector": "string"
; }
; },
; "AttachTypedLink": {
; "Attributes": [
; {
; "AttributeName": "string",
; "Value": {
; "BinaryValue": blob,
; "BooleanValue": boolean,
; "DatetimeValue": number,
; "NumberValue": "string",
; "StringValue": "string"
; }
; }
; ],
; "SourceObjectReference": {
; "Selector": "string"
; },
; "TargetObjectReference": {
; "Selector": "string"
; },
; "TypedLinkFacet": {
; "SchemaArn": "string",
; "TypedLinkName": "string"
; }
; },
; "CreateIndex": {
; "BatchReferenceName": "string",
; "IsUnique": boolean,
; "LinkName": "string",
; "OrderedIndexedAttributeList": [
; {
; "FacetName": "string",
; "Name": "string",
; "SchemaArn": "string"
; }
; ],
; "ParentReference": {
; "Selector": "string"
; }
; },
; "CreateObject": {
; "BatchReferenceName": "string",
; "LinkName": "string",
; "ObjectAttributeList": [
; {
; "Key": {
; "FacetName": "string",
; "Name": "string",
; "SchemaArn": "string"
; },
; "Value": {
; "BinaryValue": blob,
; "BooleanValue": boolean,
; "DatetimeValue": number,
; "NumberValue": "string",
; "StringValue": "string"
; }
; }
; ],
; "ParentReference": {
; "Selector": "string"
; },
; "SchemaFacet": [
; {
; "FacetName": "string",
; "SchemaArn": "string"
; }
; ]
; },
; "DeleteObject": {
; "ObjectReference": {
; "Selector": "string"
; }
; },
; "DetachFromIndex": {
; "IndexReference": {
; "Selector": "string"
; },
; "TargetReference": {
; "Selector": "string"
; }
; },
; "DetachObject": {
; "BatchReferenceName": "string",
; "LinkName": "string",
; "ParentReference": {
; "Selector": "string"
; }
; },
; "DetachPolicy": {
; "ObjectReference": {
; "Selector": "string"
; },
; "PolicyReference": {
; "Selector": "string"
; }
; },
; "DetachTypedLink": {
; "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"
; }
; }
; },
; "RemoveFacetFromObject": {
; "ObjectReference": {
; "Selector": "string"
; },
; "SchemaFacet": {
; "FacetName": "string",
; "SchemaArn": "string"
; }
; },
; "UpdateLinkAttributes": {
; "AttributeUpdates": [
; {
; "AttributeAction": {
; "AttributeActionType": "string",
; "AttributeUpdateValue": {
; "BinaryValue": blob,
; "BooleanValue": boolean,
; "DatetimeValue": number,
; "NumberValue": "string",
; "StringValue": "string"
; }
; },
; "AttributeKey": {
; "FacetName": "string",
; "Name": "string",
; "SchemaArn": "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"
; }
; }
; },
; "UpdateObjectAttributes": {
; "AttributeUpdates": [
; {
; "ObjectAttributeAction": {
; "ObjectAttributeActionType": "string",
; "ObjectAttributeUpdateValue": {
; "BinaryValue": blob,
; "BooleanValue": boolean,
; "DatetimeValue": number,
; "NumberValue": "string",
; "StringValue": "string"
; }
; },
; "ObjectAttributeKey": {
; "FacetName": "string",
; "Name": "string",
; "SchemaArn": "string"
; }
; }
; ],
; "ObjectReference": {
; "Selector": "string"
; }
; }
; }
; ]
; }
CkRest::ckAddHeader(rest,"Content-Type","application/x-amz-json-1.1")
CkRest::ckAddHeader(rest,"X-Amz-Target","BatchWrite")
sbRequestBody.i = CkStringBuilder::ckCreate()
If sbRequestBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckEmitSb(json,sbRequestBody)
sbResponseBody.i = CkStringBuilder::ckCreate()
If sbResponseBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkRest::ckFullRequestSb(rest,"PUT","/amazonclouddirectory/2017-01-11/batchwrite",sbRequestBody,sbResponseBody)
If success <> 1
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkJsonObject::ckDispose(json)
CkStringBuilder::ckDispose(sbRequestBody)
CkStringBuilder::ckDispose(sbResponseBody)
ProcedureReturn
EndIf
respStatusCode.i = CkRest::ckResponseStatusCode(rest)
Debug "response status code = " + Str(respStatusCode)
If respStatusCode <> 200
Debug "Response Header:"
Debug CkRest::ckResponseHeader(rest)
Debug "Response Body:"
Debug CkStringBuilder::ckGetAsString(sbResponseBody)
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkJsonObject::ckDispose(json)
CkStringBuilder::ckDispose(sbRequestBody)
CkStringBuilder::ckDispose(sbResponseBody)
ProcedureReturn
EndIf
jResp.i = CkJsonObject::ckCreate()
If jResp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoadSb(jResp,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
AttachedObjectIdentifier.s
AttachToIndexAttachedObjectIdentifier.s
Selector.s
TargetObjectReferenceSelector.s
SchemaArn.s
TypedLinkName.s
ObjectIdentifier.s
CreateObjectObjectIdentifier.s
DetachedObjectIdentifier.s
DetachObjectDetachedObjectIdentifier.s
UpdateObjectAttributesObjectIdentifier.s
j.i
count_j.i
AttributeName.s
BinaryValue.i
BooleanValue.i
DatetimeValue.i
NumberValue.s
StringValue.s
i.i = 0
count_i.i = CkJsonObject::ckSizeOfArray(jResp,"Responses")
While i < count_i
CkJsonObject::setCkI(jResp, i)
AttachedObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachObject.attachedObjectIdentifier")
AttachToIndexAttachedObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachToIndex.AttachedObjectIdentifier")
Selector = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.SourceObjectReference.Selector")
TargetObjectReferenceSelector = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.TargetObjectReference.Selector")
SchemaArn = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.TypedLinkFacet.SchemaArn")
TypedLinkName = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.TypedLinkFacet.TypedLinkName")
ObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].CreateIndex.ObjectIdentifier")
CreateObjectObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].CreateObject.ObjectIdentifier")
DetachedObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].DetachFromIndex.DetachedObjectIdentifier")
DetachObjectDetachedObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].DetachObject.detachedObjectIdentifier")
UpdateObjectAttributesObjectIdentifier = CkJsonObject::ckStringOf(jResp,"Responses[i].UpdateObjectAttributes.ObjectIdentifier")
j = 0
count_j = CkJsonObject::ckSizeOfArray(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues")
While j < count_j
CkJsonObject::setCkJ(jResp, j)
AttributeName = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].AttributeName")
BinaryValue = CkJsonObject::ckIntOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.BinaryValue")
BooleanValue = CkJsonObject::ckIntOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.BooleanValue")
DatetimeValue = CkJsonObject::ckIntOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.DatetimeValue")
NumberValue = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.NumberValue")
StringValue = CkJsonObject::ckStringOf(jResp,"Responses[i].AttachTypedLink.TypedLinkSpecifier.IdentityAttributeValues[j].Value.StringValue")
j = j + 1
Wend
i = i + 1
Wend
; A sample JSON response body parsed by the above code:
; {
; "Responses": [
; {
; "AddFacetToObject": {},
; "AttachObject": {
; "attachedObjectIdentifier": "string"
; },
; "AttachPolicy": {},
; "AttachToIndex": {
; "AttachedObjectIdentifier": "string"
; },
; "AttachTypedLink": {
; "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"
; }
; }
; },
; "CreateIndex": {
; "ObjectIdentifier": "string"
; },
; "CreateObject": {
; "ObjectIdentifier": "string"
; },
; "DeleteObject": {},
; "DetachFromIndex": {
; "DetachedObjectIdentifier": "string"
; },
; "DetachObject": {
; "detachedObjectIdentifier": "string"
; },
; "DetachPolicy": {},
; "DetachTypedLink": {},
; "RemoveFacetFromObject": {},
; "UpdateLinkAttributes": {},
; "UpdateObjectAttributes": {
; "ObjectIdentifier": "string"
; }
; }
; ]
; }
CkRest::ckDispose(rest)
CkAuthAws::ckDispose(authAws)
CkJsonObject::ckDispose(json)
CkStringBuilder::ckDispose(sbRequestBody)
CkStringBuilder::ckDispose(sbResponseBody)
CkJsonObject::ckDispose(jResp)
ProcedureReturn
EndProcedure
