CreateSnapshot DataFlex Example
Use ChilkatAx-9.5.0-win32.pkg
Procedure Test
Handle hoRest
Boolean iSuccess
Variant vAuthAws
Handle hoAuthAws
Handle hoJson
Variant vSbRequestBody
Handle hoSbRequestBody
Variant vSbResponseBody
Handle hoSbResponseBody
Integer iRespStatusCode
Handle hoJResp
String sAdministrativeActionType
String sFailureDetailsMessage
Integer iProgressPercent
Integer iRequestTime
String sStatus
Integer iTargetFileSystemValuesCreationTime
String sDNSName
String sFileSystemId
String sFileSystemType
String sFileSystemTypeVersion
String sKmsKeyId
String sTargetFileSystemValuesLifecycle
Integer iAutomaticBackupRetentionDays
Integer iCopyTagsToBackups
String sDailyAutomaticBackupStartTime
String sDataCompressionType
String sAutoImportPolicy
String sExportPath
Integer iImportedFileChunkSize
String sImportPath
String sDataRepositoryConfigurationLifecycle
String sDeploymentType
String sDriveCacheType
String sDestination
String sLevel
String sMountName
Integer iPerUnitStorageThroughput
String sWeeklyMaintenanceStartTime
Integer iOntapConfigurationAutomaticBackupRetentionDays
String sOntapConfigurationDailyAutomaticBackupStartTime
String sOntapConfigurationDeploymentType
Integer iIops
String sMode
String sEndpointIpAddressRange
String sInterclusterDNSName
String sManagementDNSName
String sPreferredSubnetId
Integer iThroughputCapacity
String sOntapConfigurationWeeklyMaintenanceStartTime
Integer iOpenZFSConfigurationAutomaticBackupRetentionDays
Integer iOpenZFSConfigurationCopyTagsToBackups
Integer iCopyTagsToVolumes
String sOpenZFSConfigurationDailyAutomaticBackupStartTime
String sOpenZFSConfigurationDeploymentType
Integer iDiskIopsConfigurationIops
String sDiskIopsConfigurationMode
String sRootVolumeId
Integer iOpenZFSConfigurationThroughputCapacity
String sOpenZFSConfigurationWeeklyMaintenanceStartTime
String sOwnerId
String sTargetFileSystemValuesResourceARN
Integer iStorageCapacity
String sStorageType
String sVpcId
String sActiveDirectoryId
String sAuditLogDestination
String sFileAccessAuditLogLevel
String sFileShareAccessAuditLogLevel
Integer iWindowsConfigurationAutomaticBackupRetentionDays
Integer iWindowsConfigurationCopyTagsToBackups
String sWindowsConfigurationDailyAutomaticBackupStartTime
String sWindowsConfigurationDeploymentType
String sPreferredFileServerIp
String sWindowsConfigurationPreferredSubnetId
String sRemoteAdministrationEndpoint
String sDomainName
String sFileSystemAdministratorsGroup
String sOrganizationalUnitDistinguishedName
String sUserName
Integer iWindowsConfigurationThroughputCapacity
String sWindowsConfigurationWeeklyMaintenanceStartTime
String sTargetSnapshotValues
Integer iTargetVolumeValuesCreationTime
String sTargetVolumeValuesFileSystemId
String sTargetVolumeValuesLifecycle
String sLifecycleTransitionReasonMessage
String sTargetVolumeValuesName
String sFlexCacheEndpointType
String sJunctionPath
String sOntapVolumeType
String sSecurityStyle
Integer iSizeInMegabytes
Integer iStorageEfficiencyEnabled
String sStorageVirtualMachineId
Integer iStorageVirtualMachineRoot
Integer iCoolingPeriod
String sTieringPolicyName
String sUUID
Integer iCopyTagsToSnapshots
String sOpenZFSConfigurationDataCompressionType
String sCopyStrategy
String sSnapshotARN
String sParentVolumeId
Integer iReadOnly
Integer iRecordSizeKiB
Integer iStorageCapacityQuotaGiB
Integer iStorageCapacityReservationGiB
String sVolumePath
String sTargetVolumeValuesResourceARN
String sTargetVolumeValuesVolumeId
String sVolumeType
Integer j
Integer iCount_j
String sStrVal
String sKey
String sValue
Integer k
Integer iCount_k
String sClients
Variant vJson1
Handle hoJson1
Integer iI1
Integer iCount_i1
Integer iId
String sV_Type
Integer iCreationTime
String sLifecycle
String sMessage
String sName
String sResourceARN
String sSnapshotId
String sVolumeId
Integer i
Integer iCount_i
String sTemp1
Integer iTemp1
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
Get Create (RefClass(cComChilkatAuthAws)) To hoAuthAws
If (Not(IsComObjectCreated(hoAuthAws))) Begin
Send CreateComObject of hoAuthAws
End
Set ComAccessKey Of hoAuthAws To "AWS_ACCESS_KEY"
Set ComSecretKey Of hoAuthAws To "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.)
Set ComRegion Of hoAuthAws To "us-west-2"
Set ComServiceName Of hoAuthAws To "fsx"
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
Get pvComObject of hoAuthAws to vAuthAws
Get ComSetAuthAws Of hoRest vAuthAws To iSuccess
// URL: https://fsx.us-west-2.amazonaws.com/
// Use the same region as specified above.
Get ComConnect Of hoRest "fsx.us-west-2.amazonaws.com" 443 True True To iSuccess
If (iSuccess <> True) Begin
Get ComConnectFailReason Of hoRest To iTemp1
Showln "ConnectFailReason: " iTemp1
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// 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
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "ClientRequestToken" "string" To iSuccess
Get ComUpdateString Of hoJson "Name" "string" To iSuccess
Get ComUpdateString Of hoJson "Tags[0].Key" "string" To iSuccess
Get ComUpdateString Of hoJson "Tags[0].Value" "string" To iSuccess
Get ComUpdateString Of hoJson "VolumeId" "string" To iSuccess
// The JSON request body created by the above code:
// {
// "ClientRequestToken": "string",
// "Name": "string",
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VolumeId": "string"
// }
Get ComAddHeader Of hoRest "Content-Type" "application/x-amz-json-1.1" To iSuccess
Get ComAddHeader Of hoRest "X-Amz-Target" "AWSSimbaAPIService_v20180301.CreateSnapshot" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbRequestBody
If (Not(IsComObjectCreated(hoSbRequestBody))) Begin
Send CreateComObject of hoSbRequestBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get ComEmitSb Of hoJson vSbRequestBody To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComFullRequestSb Of hoRest "POST" "/" vSbRequestBody vSbResponseBody To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComResponseStatusCode Of hoRest To iRespStatusCode
Showln "response status code = " iRespStatusCode
If (iRespStatusCode <> 200) Begin
Showln "Response Header:"
Get ComResponseHeader Of hoRest To sTemp1
Showln sTemp1
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJResp
If (Not(IsComObjectCreated(hoJResp))) Begin
Send CreateComObject of hoJResp
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess
// 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
Get ComIntOf Of hoJResp "Snapshot.CreationTime" To iCreationTime
Get ComStringOf Of hoJResp "Snapshot.Lifecycle" To sLifecycle
Get ComStringOf Of hoJResp "Snapshot.LifecycleTransitionReason.Message" To sMessage
Get ComStringOf Of hoJResp "Snapshot.Name" To sName
Get ComStringOf Of hoJResp "Snapshot.ResourceARN" To sResourceARN
Get ComStringOf Of hoJResp "Snapshot.SnapshotId" To sSnapshotId
Get ComStringOf Of hoJResp "Snapshot.VolumeId" To sVolumeId
Move 0 To i
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions" To iCount_i
While (i < iCount_i)
Set ComI Of hoJResp To i
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].AdministrativeActionType" To sAdministrativeActionType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].FailureDetails.Message" To sFailureDetailsMessage
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].ProgressPercent" To iProgressPercent
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].RequestTime" To iRequestTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].Status" To sStatus
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.CreationTime" To iTargetFileSystemValuesCreationTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.DNSName" To sDNSName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.FailureDetails.Message" To sFailureDetailsMessage
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.FileSystemId" To sFileSystemId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.FileSystemType" To sFileSystemType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.FileSystemTypeVersion" To sFileSystemTypeVersion
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.KmsKeyId" To sKmsKeyId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.Lifecycle" To sTargetFileSystemValuesLifecycle
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.AutomaticBackupRetentionDays" To iAutomaticBackupRetentionDays
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.CopyTagsToBackups" To iCopyTagsToBackups
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DailyAutomaticBackupStartTime" To sDailyAutomaticBackupStartTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataCompressionType" To sDataCompressionType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.AutoImportPolicy" To sAutoImportPolicy
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ExportPath" To sExportPath
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.FailureDetails.Message" To sFailureDetailsMessage
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportedFileChunkSize" To iImportedFileChunkSize
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportPath" To sImportPath
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.Lifecycle" To sDataRepositoryConfigurationLifecycle
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DeploymentType" To sDeploymentType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.DriveCacheType" To sDriveCacheType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Destination" To sDestination
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Level" To sLevel
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.MountName" To sMountName
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.PerUnitStorageThroughput" To iPerUnitStorageThroughput
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.LustreConfiguration.WeeklyMaintenanceStartTime" To sWeeklyMaintenanceStartTime
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.AutomaticBackupRetentionDays" To iOntapConfigurationAutomaticBackupRetentionDays
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DailyAutomaticBackupStartTime" To sOntapConfigurationDailyAutomaticBackupStartTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DeploymentType" To sOntapConfigurationDeploymentType
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Iops" To iIops
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Mode" To sMode
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.EndpointIpAddressRange" To sEndpointIpAddressRange
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.DNSName" To sInterclusterDNSName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.DNSName" To sManagementDNSName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.PreferredSubnetId" To sPreferredSubnetId
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.ThroughputCapacity" To iThroughputCapacity
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.WeeklyMaintenanceStartTime" To sOntapConfigurationWeeklyMaintenanceStartTime
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.AutomaticBackupRetentionDays" To iOpenZFSConfigurationAutomaticBackupRetentionDays
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToBackups" To iOpenZFSConfigurationCopyTagsToBackups
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToVolumes" To iCopyTagsToVolumes
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DailyAutomaticBackupStartTime" To sOpenZFSConfigurationDailyAutomaticBackupStartTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DeploymentType" To sOpenZFSConfigurationDeploymentType
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Iops" To iDiskIopsConfigurationIops
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Mode" To sDiskIopsConfigurationMode
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.RootVolumeId" To sRootVolumeId
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.ThroughputCapacity" To iOpenZFSConfigurationThroughputCapacity
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OpenZFSConfiguration.WeeklyMaintenanceStartTime" To sOpenZFSConfigurationWeeklyMaintenanceStartTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OwnerId" To sOwnerId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.ResourceARN" To sTargetFileSystemValuesResourceARN
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.StorageCapacity" To iStorageCapacity
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.StorageType" To sStorageType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.VpcId" To sVpcId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.ActiveDirectoryId" To sActiveDirectoryId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.AuditLogDestination" To sAuditLogDestination
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel" To sFileAccessAuditLogLevel
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel" To sFileShareAccessAuditLogLevel
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.AutomaticBackupRetentionDays" To iWindowsConfigurationAutomaticBackupRetentionDays
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.CopyTagsToBackups" To iWindowsConfigurationCopyTagsToBackups
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.DailyAutomaticBackupStartTime" To sWindowsConfigurationDailyAutomaticBackupStartTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.DeploymentType" To sWindowsConfigurationDeploymentType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.PreferredFileServerIp" To sPreferredFileServerIp
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.PreferredSubnetId" To sWindowsConfigurationPreferredSubnetId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.RemoteAdministrationEndpoint" To sRemoteAdministrationEndpoint
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName" To sDomainName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup" To sFileSystemAdministratorsGroup
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName" To sOrganizationalUnitDistinguishedName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName" To sUserName
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.ThroughputCapacity" To iWindowsConfigurationThroughputCapacity
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.WeeklyMaintenanceStartTime" To sWindowsConfigurationWeeklyMaintenanceStartTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetSnapshotValues" To sTargetSnapshotValues
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.CreationTime" To iTargetVolumeValuesCreationTime
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.FileSystemId" To sTargetVolumeValuesFileSystemId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.Lifecycle" To sTargetVolumeValuesLifecycle
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.LifecycleTransitionReason.Message" To sLifecycleTransitionReasonMessage
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.Name" To sTargetVolumeValuesName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.FlexCacheEndpointType" To sFlexCacheEndpointType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.JunctionPath" To sJunctionPath
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.OntapVolumeType" To sOntapVolumeType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.SecurityStyle" To sSecurityStyle
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.SizeInMegabytes" To iSizeInMegabytes
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.StorageEfficiencyEnabled" To iStorageEfficiencyEnabled
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineId" To sStorageVirtualMachineId
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineRoot" To iStorageVirtualMachineRoot
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.TieringPolicy.CoolingPeriod" To iCoolingPeriod
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.TieringPolicy.Name" To sTieringPolicyName
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OntapConfiguration.UUID" To sUUID
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.CopyTagsToSnapshots" To iCopyTagsToSnapshots
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.DataCompressionType" To sOpenZFSConfigurationDataCompressionType
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.CopyStrategy" To sCopyStrategy
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.SnapshotARN" To sSnapshotARN
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.ParentVolumeId" To sParentVolumeId
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.ReadOnly" To iReadOnly
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.RecordSizeKiB" To iRecordSizeKiB
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityQuotaGiB" To iStorageCapacityQuotaGiB
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityReservationGiB" To iStorageCapacityReservationGiB
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.VolumePath" To sVolumePath
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.ResourceARN" To sTargetVolumeValuesResourceARN
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.VolumeId" To sTargetVolumeValuesVolumeId
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.VolumeType" To sVolumeType
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.AdministrativeActions" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.AdministrativeActions[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.NetworkInterfaceIds" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.NetworkInterfaceIds[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.RouteTableIds" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.OntapConfiguration.RouteTableIds[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.SubnetIds" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.SubnetIds[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.Tags" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.Tags[j].Key" To sKey
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.Tags[j].Value" To sValue
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.Aliases" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.Aliases[j].Lifecycle" To sLifecycle
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.Aliases[j].Name" To sName
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.AdministrativeActions" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.AdministrativeActions[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Move 0 To k
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations" To iCount_k
While (k < iCount_k)
Set ComK Of hoJResp To k
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations[k].Clients" To sClients
Get ComObjectOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.NfsExports[j].ClientConfigurations[k]" To vJson1
If (IsComObject(vJson1)) Begin
Get Create (RefClass(cComChilkatJsonObject)) To hoJson1
Set pvComObject Of hoJson1 To vJson1
End
Move 0 To iI1
Get ComSizeOfArray Of hoJson1 "Options" To iCount_i1
While (iI1 < iCount_i1)
Set ComI Of hoJson1 To iI1
Get ComStringOf Of hoJson1 "Options[i]" To sStrVal
Move (iI1 + 1) To iI1
Loop
Send Destroy of hoJson1
Move (k + 1) To k
Loop
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].Id" To iId
Get ComIntOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].StorageCapacityQuotaGiB" To iStorageCapacityQuotaGiB
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[j].Type" To sV_Type
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.Tags" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.Tags[j].Key" To sKey
Get ComStringOf Of hoJResp "Snapshot.AdministrativeActions[i].TargetVolumeValues.Tags[j].Value" To sValue
Move (j + 1) To j
Loop
Move (i + 1) To i
Loop
Move 0 To i
Get ComSizeOfArray Of hoJResp "Snapshot.Tags" To iCount_i
While (i < iCount_i)
Set ComI Of hoJResp To i
Get ComStringOf Of hoJResp "Snapshot.Tags[i].Key" To sKey
Get ComStringOf Of hoJResp "Snapshot.Tags[i].Value" To sValue
Move (i + 1) To i
Loop
// A sample JSON response body parsed by the above code:
// {
// "Snapshot": {
// "AdministrativeActions": [
// {
// "AdministrativeActionType": "string",
// "FailureDetails": {
// "Message": "string"
// },
// "ProgressPercent": number,
// "RequestTime": number,
// "Status": "string",
// "TargetFileSystemValues": {
// "AdministrativeActions": [
// "AdministrativeAction"
// ],
// "CreationTime": number,
// "DNSName": "string",
// "FailureDetails": {
// "Message": "string"
// },
// "FileSystemId": "string",
// "FileSystemType": "string",
// "FileSystemTypeVersion": "string",
// "KmsKeyId": "string",
// "Lifecycle": "string",
// "LustreConfiguration": {
// "AutomaticBackupRetentionDays": number,
// "CopyTagsToBackups": boolean,
// "DailyAutomaticBackupStartTime": "string",
// "DataCompressionType": "string",
// "DataRepositoryConfiguration": {
// "AutoImportPolicy": "string",
// "ExportPath": "string",
// "FailureDetails": {
// "Message": "string"
// },
// "ImportedFileChunkSize": number,
// "ImportPath": "string",
// "Lifecycle": "string"
// },
// "DeploymentType": "string",
// "DriveCacheType": "string",
// "LogConfiguration": {
// "Destination": "string",
// "Level": "string"
// },
// "MountName": "string",
// "PerUnitStorageThroughput": number,
// "WeeklyMaintenanceStartTime": "string"
// },
// "NetworkInterfaceIds": [
// "string"
// ],
// "OntapConfiguration": {
// "AutomaticBackupRetentionDays": number,
// "DailyAutomaticBackupStartTime": "string",
// "DeploymentType": "string",
// "DiskIopsConfiguration": {
// "Iops": number,
// "Mode": "string"
// },
// "EndpointIpAddressRange": "string",
// "Endpoints": {
// "Intercluster": {
// "DNSName": "string",
// "IpAddresses": [
// "string"
// ]
// },
// "Management": {
// "DNSName": "string",
// "IpAddresses": [
// "string"
// ]
// }
// },
// "PreferredSubnetId": "string",
// "RouteTableIds": [
// "string"
// ],
// "ThroughputCapacity": number,
// "WeeklyMaintenanceStartTime": "string"
// },
// "OpenZFSConfiguration": {
// "AutomaticBackupRetentionDays": number,
// "CopyTagsToBackups": boolean,
// "CopyTagsToVolumes": boolean,
// "DailyAutomaticBackupStartTime": "string",
// "DeploymentType": "string",
// "DiskIopsConfiguration": {
// "Iops": number,
// "Mode": "string"
// },
// "RootVolumeId": "string",
// "ThroughputCapacity": number,
// "WeeklyMaintenanceStartTime": "string"
// },
// "OwnerId": "string",
// "ResourceARN": "string",
// "StorageCapacity": number,
// "StorageType": "string",
// "SubnetIds": [
// "string"
// ],
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VpcId": "string",
// "WindowsConfiguration": {
// "ActiveDirectoryId": "string",
// "Aliases": [
// {
// "Lifecycle": "string",
// "Name": "string"
// }
// ],
// "AuditLogConfiguration": {
// "AuditLogDestination": "string",
// "FileAccessAuditLogLevel": "string",
// "FileShareAccessAuditLogLevel": "string"
// },
// "AutomaticBackupRetentionDays": number,
// "CopyTagsToBackups": boolean,
// "DailyAutomaticBackupStartTime": "string",
// "DeploymentType": "string",
// "MaintenanceOperationsInProgress": [
// "string"
// ],
// "PreferredFileServerIp": "string",
// "PreferredSubnetId": "string",
// "RemoteAdministrationEndpoint": "string",
// "SelfManagedActiveDirectoryConfiguration": {
// "DnsIps": [
// "string"
// ],
// "DomainName": "string",
// "FileSystemAdministratorsGroup": "string",
// "OrganizationalUnitDistinguishedName": "string",
// "UserName": "string"
// },
// "ThroughputCapacity": number,
// "WeeklyMaintenanceStartTime": "string"
// }
// },
// "TargetSnapshotValues": "Snapshot",
// "TargetVolumeValues": {
// "AdministrativeActions": [
// "AdministrativeAction"
// ],
// "CreationTime": number,
// "FileSystemId": "string",
// "Lifecycle": "string",
// "LifecycleTransitionReason": {
// "Message": "string"
// },
// "Name": "string",
// "OntapConfiguration": {
// "FlexCacheEndpointType": "string",
// "JunctionPath": "string",
// "OntapVolumeType": "string",
// "SecurityStyle": "string",
// "SizeInMegabytes": number,
// "StorageEfficiencyEnabled": boolean,
// "StorageVirtualMachineId": "string",
// "StorageVirtualMachineRoot": boolean,
// "TieringPolicy": {
// "CoolingPeriod": number,
// "Name": "string"
// },
// "UUID": "string"
// },
// "OpenZFSConfiguration": {
// "CopyTagsToSnapshots": boolean,
// "DataCompressionType": "string",
// "NfsExports": [
// {
// "ClientConfigurations": [
// {
// "Clients": "string",
// "Options": [
// "string"
// ]
// }
// ]
// }
// ],
// "OriginSnapshot": {
// "CopyStrategy": "string",
// "SnapshotARN": "string"
// },
// "ParentVolumeId": "string",
// "ReadOnly": boolean,
// "RecordSizeKiB": number,
// "StorageCapacityQuotaGiB": number,
// "StorageCapacityReservationGiB": number,
// "UserAndGroupQuotas": [
// {
// "Id": number,
// "StorageCapacityQuotaGiB": number,
// "Type": "string"
// }
// ],
// "VolumePath": "string"
// },
// "ResourceARN": "string",
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VolumeId": "string",
// "VolumeType": "string"
// }
// }
// ],
// "CreationTime": number,
// "Lifecycle": "string",
// "LifecycleTransitionReason": {
// "Message": "string"
// },
// "Name": "string",
// "ResourceARN": "string",
// "SnapshotId": "string",
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VolumeId": "string"
// }
// }
End_Procedure
