Chilkat Online Tools

UpdateDestination VB6 Example

Amazon Kinesis Data Firehose

' 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 = "firehose"
' SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
success = rest.SetAuthAws(authAws)

' URL: https://firehose.us-west-2.amazonaws.com/
' Use the same region as specified above.
success = rest.Connect("firehose.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.UpdateInt("AmazonopensearchserviceDestinationUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.ClusterEndpoint","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.DomainARN","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.IndexName","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.IndexRotationPeriod","string")
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.ProcessingConfiguration.Enabled",123)
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.ProcessingConfiguration.Processors[0].Type","string")
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.RetryOptions.DurationInSeconds",123)
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.RoleARN","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.BucketARN","string")
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.S3Update.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.S3Update.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("AmazonopensearchserviceDestinationUpdate.S3Update.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.CompressionFormat","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.ErrorOutputPrefix","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.Prefix","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.S3Update.RoleARN","string")
success = json.UpdateString("AmazonopensearchserviceDestinationUpdate.TypeName","string")
success = json.UpdateString("CurrentDeliveryStreamVersionId","string")
success = json.UpdateString("DeliveryStreamName","string")
success = json.UpdateString("DestinationId","string")
success = json.UpdateInt("ElasticsearchDestinationUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("ElasticsearchDestinationUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("ElasticsearchDestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("ElasticsearchDestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.ClusterEndpoint","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.DomainARN","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.IndexName","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.IndexRotationPeriod","string")
success = json.UpdateInt("ElasticsearchDestinationUpdate.ProcessingConfiguration.Enabled",123)
success = json.UpdateString("ElasticsearchDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.ProcessingConfiguration.Processors[0].Type","string")
success = json.UpdateInt("ElasticsearchDestinationUpdate.RetryOptions.DurationInSeconds",123)
success = json.UpdateString("ElasticsearchDestinationUpdate.RoleARN","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.BucketARN","string")
success = json.UpdateInt("ElasticsearchDestinationUpdate.S3Update.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("ElasticsearchDestinationUpdate.S3Update.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("ElasticsearchDestinationUpdate.S3Update.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.CompressionFormat","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.ErrorOutputPrefix","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.Prefix","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.S3Update.RoleARN","string")
success = json.UpdateString("ElasticsearchDestinationUpdate.TypeName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.BucketARN","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.CompressionFormat","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.Enabled",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.HiveJsonSerDe.TimestampFormats[0]","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.OpenXJsonSerDe.CaseInsensitive",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.OpenXJsonSerDe.ColumnToJsonKeyMappings.string","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.OpenXJsonSerDe.ConvertDotsInJsonKeysToUnderscores",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.BlockSizeBytes",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.BloomFilterColumns[0]","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.BloomFilterFalsePositiveProbability",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.Compression","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.DictionaryKeyThreshold",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.EnablePadding",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.FormatVersion","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.PaddingTolerance",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.RowIndexStride",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.StripeSizeBytes",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.BlockSizeBytes",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.Compression","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.EnableDictionaryCompression",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.MaxPaddingBytes",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.PageSizeBytes",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.WriterVersion","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.SchemaConfiguration.CatalogId","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.SchemaConfiguration.DatabaseName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.SchemaConfiguration.Region","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.SchemaConfiguration.RoleARN","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.SchemaConfiguration.TableName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.DataFormatConversionConfiguration.SchemaConfiguration.VersionId","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.DynamicPartitioningConfiguration.Enabled",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.DynamicPartitioningConfiguration.RetryOptions.DurationInSeconds",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.ErrorOutputPrefix","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.Prefix","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.ProcessingConfiguration.Enabled",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.ProcessingConfiguration.Processors[0].Type","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.RoleARN","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupMode","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.BucketARN","string")
success = json.UpdateInt("ExtendedS3DestinationUpdate.S3BackupUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.S3BackupUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("ExtendedS3DestinationUpdate.S3BackupUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.CompressionFormat","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.ErrorOutputPrefix","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.Prefix","string")
success = json.UpdateString("ExtendedS3DestinationUpdate.S3BackupUpdate.RoleARN","string")
success = json.UpdateInt("HttpEndpointDestinationUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("HttpEndpointDestinationUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("HttpEndpointDestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("HttpEndpointDestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.EndpointConfiguration.AccessKey","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.EndpointConfiguration.Name","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.EndpointConfiguration.Url","string")
success = json.UpdateInt("HttpEndpointDestinationUpdate.ProcessingConfiguration.Enabled",123)
success = json.UpdateString("HttpEndpointDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.ProcessingConfiguration.Processors[0].Type","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.RequestConfiguration.CommonAttributes[0].AttributeName","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.RequestConfiguration.CommonAttributes[0].AttributeValue","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.RequestConfiguration.ContentEncoding","string")
success = json.UpdateInt("HttpEndpointDestinationUpdate.RetryOptions.DurationInSeconds",123)
success = json.UpdateString("HttpEndpointDestinationUpdate.RoleARN","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3BackupMode","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.BucketARN","string")
success = json.UpdateInt("HttpEndpointDestinationUpdate.S3Update.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("HttpEndpointDestinationUpdate.S3Update.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("HttpEndpointDestinationUpdate.S3Update.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.CompressionFormat","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.ErrorOutputPrefix","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.Prefix","string")
success = json.UpdateString("HttpEndpointDestinationUpdate.S3Update.RoleARN","string")
success = json.UpdateInt("RedshiftDestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("RedshiftDestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("RedshiftDestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("RedshiftDestinationUpdate.ClusterJDBCURL","string")
success = json.UpdateString("RedshiftDestinationUpdate.CopyCommand.CopyOptions","string")
success = json.UpdateString("RedshiftDestinationUpdate.CopyCommand.DataTableColumns","string")
success = json.UpdateString("RedshiftDestinationUpdate.CopyCommand.DataTableName","string")
success = json.UpdateString("RedshiftDestinationUpdate.Password","string")
success = json.UpdateInt("RedshiftDestinationUpdate.ProcessingConfiguration.Enabled",123)
success = json.UpdateString("RedshiftDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
success = json.UpdateString("RedshiftDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
success = json.UpdateString("RedshiftDestinationUpdate.ProcessingConfiguration.Processors[0].Type","string")
success = json.UpdateInt("RedshiftDestinationUpdate.RetryOptions.DurationInSeconds",123)
success = json.UpdateString("RedshiftDestinationUpdate.RoleARN","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupMode","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.BucketARN","string")
success = json.UpdateInt("RedshiftDestinationUpdate.S3BackupUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("RedshiftDestinationUpdate.S3BackupUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("RedshiftDestinationUpdate.S3BackupUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.CompressionFormat","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.ErrorOutputPrefix","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.Prefix","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3BackupUpdate.RoleARN","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.BucketARN","string")
success = json.UpdateInt("RedshiftDestinationUpdate.S3Update.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("RedshiftDestinationUpdate.S3Update.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("RedshiftDestinationUpdate.S3Update.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.CompressionFormat","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.ErrorOutputPrefix","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.Prefix","string")
success = json.UpdateString("RedshiftDestinationUpdate.S3Update.RoleARN","string")
success = json.UpdateString("RedshiftDestinationUpdate.Username","string")
success = json.UpdateString("S3DestinationUpdate.BucketARN","string")
success = json.UpdateInt("S3DestinationUpdate.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("S3DestinationUpdate.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("S3DestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("S3DestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("S3DestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("S3DestinationUpdate.CompressionFormat","string")
success = json.UpdateString("S3DestinationUpdate.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("S3DestinationUpdate.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("S3DestinationUpdate.ErrorOutputPrefix","string")
success = json.UpdateString("S3DestinationUpdate.Prefix","string")
success = json.UpdateString("S3DestinationUpdate.RoleARN","string")
success = json.UpdateInt("SplunkDestinationUpdate.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("SplunkDestinationUpdate.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("SplunkDestinationUpdate.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateInt("SplunkDestinationUpdate.HECAcknowledgmentTimeoutInSeconds",123)
success = json.UpdateString("SplunkDestinationUpdate.HECEndpoint","string")
success = json.UpdateString("SplunkDestinationUpdate.HECEndpointType","string")
success = json.UpdateString("SplunkDestinationUpdate.HECToken","string")
success = json.UpdateInt("SplunkDestinationUpdate.ProcessingConfiguration.Enabled",123)
success = json.UpdateString("SplunkDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
success = json.UpdateString("SplunkDestinationUpdate.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
success = json.UpdateString("SplunkDestinationUpdate.ProcessingConfiguration.Processors[0].Type","string")
success = json.UpdateInt("SplunkDestinationUpdate.RetryOptions.DurationInSeconds",123)
success = json.UpdateString("SplunkDestinationUpdate.S3BackupMode","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.BucketARN","string")
success = json.UpdateInt("SplunkDestinationUpdate.S3Update.BufferingHints.IntervalInSeconds",123)
success = json.UpdateInt("SplunkDestinationUpdate.S3Update.BufferingHints.SizeInMBs",123)
success = json.UpdateInt("SplunkDestinationUpdate.S3Update.CloudWatchLoggingOptions.Enabled",123)
success = json.UpdateString("SplunkDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogGroupName","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.CloudWatchLoggingOptions.LogStreamName","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.CompressionFormat","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.EncryptionConfiguration.NoEncryptionConfig","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.ErrorOutputPrefix","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.Prefix","string")
success = json.UpdateString("SplunkDestinationUpdate.S3Update.RoleARN","string")

' The JSON request body created by the above code:

' {
'   "AmazonopensearchserviceDestinationUpdate": {
'     "BufferingHints": {
'       "IntervalInSeconds": number,
'       "SizeInMBs": number
'     },
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "ClusterEndpoint": "string",
'     "DomainARN": "string",
'     "IndexName": "string",
'     "IndexRotationPeriod": "string",
'     "ProcessingConfiguration": {
'       "Enabled": boolean,
'       "Processors": [
'         {
'           "Parameters": [
'             {
'               "ParameterName": "string",
'               "ParameterValue": "string"
'             }
'           ],
'           "Type": "string"
'         }
'       ]
'     },
'     "RetryOptions": {
'       "DurationInSeconds": number
'     },
'     "RoleARN": "string",
'     "S3Update": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     },
'     "TypeName": "string"
'   },
'   "CurrentDeliveryStreamVersionId": "string",
'   "DeliveryStreamName": "string",
'   "DestinationId": "string",
'   "ElasticsearchDestinationUpdate": {
'     "BufferingHints": {
'       "IntervalInSeconds": number,
'       "SizeInMBs": number
'     },
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "ClusterEndpoint": "string",
'     "DomainARN": "string",
'     "IndexName": "string",
'     "IndexRotationPeriod": "string",
'     "ProcessingConfiguration": {
'       "Enabled": boolean,
'       "Processors": [
'         {
'           "Parameters": [
'             {
'               "ParameterName": "string",
'               "ParameterValue": "string"
'             }
'           ],
'           "Type": "string"
'         }
'       ]
'     },
'     "RetryOptions": {
'       "DurationInSeconds": number
'     },
'     "RoleARN": "string",
'     "S3Update": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     },
'     "TypeName": "string"
'   },
'   "ExtendedS3DestinationUpdate": {
'     "BucketARN": "string",
'     "BufferingHints": {
'       "IntervalInSeconds": number,
'       "SizeInMBs": number
'     },
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "CompressionFormat": "string",
'     "DataFormatConversionConfiguration": {
'       "Enabled": boolean,
'       "InputFormatConfiguration": {
'         "Deserializer": {
'           "HiveJsonSerDe": {
'             "TimestampFormats": [
'               "string"
'             ]
'           },
'           "OpenXJsonSerDe": {
'             "CaseInsensitive": boolean,
'             "ColumnToJsonKeyMappings": {
'               "string": "string"
'             },
'             "ConvertDotsInJsonKeysToUnderscores": boolean
'           }
'         }
'       },
'       "OutputFormatConfiguration": {
'         "Serializer": {
'           "OrcSerDe": {
'             "BlockSizeBytes": number,
'             "BloomFilterColumns": [
'               "string"
'             ],
'             "BloomFilterFalsePositiveProbability": number,
'             "Compression": "string",
'             "DictionaryKeyThreshold": number,
'             "EnablePadding": boolean,
'             "FormatVersion": "string",
'             "PaddingTolerance": number,
'             "RowIndexStride": number,
'             "StripeSizeBytes": number
'           },
'           "ParquetSerDe": {
'             "BlockSizeBytes": number,
'             "Compression": "string",
'             "EnableDictionaryCompression": boolean,
'             "MaxPaddingBytes": number,
'             "PageSizeBytes": number,
'             "WriterVersion": "string"
'           }
'         }
'       },
'       "SchemaConfiguration": {
'         "CatalogId": "string",
'         "DatabaseName": "string",
'         "Region": "string",
'         "RoleARN": "string",
'         "TableName": "string",
'         "VersionId": "string"
'       }
'     },
'     "DynamicPartitioningConfiguration": {
'       "Enabled": boolean,
'       "RetryOptions": {
'         "DurationInSeconds": number
'       }
'     },
'     "EncryptionConfiguration": {
'       "KMSEncryptionConfig": {
'         "AWSKMSKeyARN": "string"
'       },
'       "NoEncryptionConfig": "string"
'     },
'     "ErrorOutputPrefix": "string",
'     "Prefix": "string",
'     "ProcessingConfiguration": {
'       "Enabled": boolean,
'       "Processors": [
'         {
'           "Parameters": [
'             {
'               "ParameterName": "string",
'               "ParameterValue": "string"
'             }
'           ],
'           "Type": "string"
'         }
'       ]
'     },
'     "RoleARN": "string",
'     "S3BackupMode": "string",
'     "S3BackupUpdate": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     }
'   },
'   "HttpEndpointDestinationUpdate": {
'     "BufferingHints": {
'       "IntervalInSeconds": number,
'       "SizeInMBs": number
'     },
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "EndpointConfiguration": {
'       "AccessKey": "string",
'       "Name": "string",
'       "Url": "string"
'     },
'     "ProcessingConfiguration": {
'       "Enabled": boolean,
'       "Processors": [
'         {
'           "Parameters": [
'             {
'               "ParameterName": "string",
'               "ParameterValue": "string"
'             }
'           ],
'           "Type": "string"
'         }
'       ]
'     },
'     "RequestConfiguration": {
'       "CommonAttributes": [
'         {
'           "AttributeName": "string",
'           "AttributeValue": "string"
'         }
'       ],
'       "ContentEncoding": "string"
'     },
'     "RetryOptions": {
'       "DurationInSeconds": number
'     },
'     "RoleARN": "string",
'     "S3BackupMode": "string",
'     "S3Update": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     }
'   },
'   "RedshiftDestinationUpdate": {
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "ClusterJDBCURL": "string",
'     "CopyCommand": {
'       "CopyOptions": "string",
'       "DataTableColumns": "string",
'       "DataTableName": "string"
'     },
'     "Password": "string",
'     "ProcessingConfiguration": {
'       "Enabled": boolean,
'       "Processors": [
'         {
'           "Parameters": [
'             {
'               "ParameterName": "string",
'               "ParameterValue": "string"
'             }
'           ],
'           "Type": "string"
'         }
'       ]
'     },
'     "RetryOptions": {
'       "DurationInSeconds": number
'     },
'     "RoleARN": "string",
'     "S3BackupMode": "string",
'     "S3BackupUpdate": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     },
'     "S3Update": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     },
'     "Username": "string"
'   },
'   "S3DestinationUpdate": {
'     "BucketARN": "string",
'     "BufferingHints": {
'       "IntervalInSeconds": number,
'       "SizeInMBs": number
'     },
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "CompressionFormat": "string",
'     "EncryptionConfiguration": {
'       "KMSEncryptionConfig": {
'         "AWSKMSKeyARN": "string"
'       },
'       "NoEncryptionConfig": "string"
'     },
'     "ErrorOutputPrefix": "string",
'     "Prefix": "string",
'     "RoleARN": "string"
'   },
'   "SplunkDestinationUpdate": {
'     "CloudWatchLoggingOptions": {
'       "Enabled": boolean,
'       "LogGroupName": "string",
'       "LogStreamName": "string"
'     },
'     "HECAcknowledgmentTimeoutInSeconds": number,
'     "HECEndpoint": "string",
'     "HECEndpointType": "string",
'     "HECToken": "string",
'     "ProcessingConfiguration": {
'       "Enabled": boolean,
'       "Processors": [
'         {
'           "Parameters": [
'             {
'               "ParameterName": "string",
'               "ParameterValue": "string"
'             }
'           ],
'           "Type": "string"
'         }
'       ]
'     },
'     "RetryOptions": {
'       "DurationInSeconds": number
'     },
'     "S3BackupMode": "string",
'     "S3Update": {
'       "BucketARN": "string",
'       "BufferingHints": {
'         "IntervalInSeconds": number,
'         "SizeInMBs": number
'       },
'       "CloudWatchLoggingOptions": {
'         "Enabled": boolean,
'         "LogGroupName": "string",
'         "LogStreamName": "string"
'       },
'       "CompressionFormat": "string",
'       "EncryptionConfiguration": {
'         "KMSEncryptionConfig": {
'           "AWSKMSKeyARN": "string"
'         },
'         "NoEncryptionConfig": "string"
'       },
'       "ErrorOutputPrefix": "string",
'       "Prefix": "string",
'       "RoleARN": "string"
'     }
'   }
' }

success = rest.AddHeader("Content-Type","application/x-amz-json-1.1")
success = rest.AddHeader("X-Amz-Target","Firehose_20150804.UpdateDestination")

Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)
Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestSb("POST","/",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

' If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body.