Chilkat Online Tools

DescribeFileSystems delphiAx Example

Amazon FSx

var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
CreationTime: Integer;
DNSName: WideString;
Message: WideString;
FileSystemId: WideString;
FileSystemType: WideString;
FileSystemTypeVersion: WideString;
KmsKeyId: WideString;
Lifecycle: WideString;
AutomaticBackupRetentionDays: Integer;
CopyTagsToBackups: Integer;
DailyAutomaticBackupStartTime: WideString;
DataCompressionType: WideString;
AutoImportPolicy: WideString;
ExportPath: WideString;
FailureDetailsMessage: WideString;
ImportedFileChunkSize: Integer;
ImportPath: WideString;
DataRepositoryConfigurationLifecycle: WideString;
DeploymentType: WideString;
DriveCacheType: WideString;
Destination: WideString;
Level: WideString;
MountName: WideString;
PerUnitStorageThroughput: Integer;
WeeklyMaintenanceStartTime: WideString;
OntapConfigurationAutomaticBackupRetentionDays: Integer;
OntapConfigurationDailyAutomaticBackupStartTime: WideString;
OntapConfigurationDeploymentType: WideString;
Iops: Integer;
Mode: WideString;
EndpointIpAddressRange: WideString;
InterclusterDNSName: WideString;
ManagementDNSName: WideString;
PreferredSubnetId: WideString;
ThroughputCapacity: Integer;
OntapConfigurationWeeklyMaintenanceStartTime: WideString;
OpenZFSConfigurationAutomaticBackupRetentionDays: Integer;
OpenZFSConfigurationCopyTagsToBackups: Integer;
CopyTagsToVolumes: Integer;
OpenZFSConfigurationDailyAutomaticBackupStartTime: WideString;
OpenZFSConfigurationDeploymentType: WideString;
DiskIopsConfigurationIops: Integer;
DiskIopsConfigurationMode: WideString;
RootVolumeId: WideString;
OpenZFSConfigurationThroughputCapacity: Integer;
OpenZFSConfigurationWeeklyMaintenanceStartTime: WideString;
OwnerId: WideString;
ResourceARN: WideString;
StorageCapacity: Integer;
StorageType: WideString;
VpcId: WideString;
ActiveDirectoryId: WideString;
AuditLogDestination: WideString;
FileAccessAuditLogLevel: WideString;
FileShareAccessAuditLogLevel: WideString;
WindowsConfigurationAutomaticBackupRetentionDays: Integer;
WindowsConfigurationCopyTagsToBackups: Integer;
WindowsConfigurationDailyAutomaticBackupStartTime: WideString;
WindowsConfigurationDeploymentType: WideString;
PreferredFileServerIp: WideString;
WindowsConfigurationPreferredSubnetId: WideString;
RemoteAdministrationEndpoint: WideString;
DomainName: WideString;
FileSystemAdministratorsGroup: WideString;
OrganizationalUnitDistinguishedName: WideString;
UserName: WideString;
WindowsConfigurationThroughputCapacity: Integer;
WindowsConfigurationWeeklyMaintenanceStartTime: WideString;
j: Integer;
count_j: Integer;
AdministrativeActionType: WideString;
ProgressPercent: Integer;
RequestTime: Integer;
Status: WideString;
TargetFileSystemValues: WideString;
TargetSnapshotValuesCreationTime: Integer;
TargetSnapshotValuesLifecycle: WideString;
LifecycleTransitionReasonMessage: WideString;
Name: WideString;
TargetSnapshotValuesResourceARN: WideString;
SnapshotId: WideString;
VolumeId: WideString;
TargetVolumeValuesCreationTime: Integer;
TargetVolumeValuesFileSystemId: WideString;
TargetVolumeValuesLifecycle: WideString;
TargetVolumeValuesName: WideString;
FlexCacheEndpointType: WideString;
JunctionPath: WideString;
OntapVolumeType: WideString;
SecurityStyle: WideString;
SizeInMegabytes: Integer;
StorageEfficiencyEnabled: Integer;
StorageVirtualMachineId: WideString;
StorageVirtualMachineRoot: Integer;
CoolingPeriod: Integer;
TieringPolicyName: WideString;
UUID: WideString;
CopyTagsToSnapshots: Integer;
OpenZFSConfigurationDataCompressionType: WideString;
CopyStrategy: WideString;
SnapshotARN: WideString;
ParentVolumeId: WideString;
ReadOnly: Integer;
RecordSizeKiB: Integer;
StorageCapacityQuotaGiB: Integer;
StorageCapacityReservationGiB: Integer;
VolumePath: WideString;
TargetVolumeValuesResourceARN: WideString;
TargetVolumeValuesVolumeId: WideString;
VolumeType: WideString;
k: Integer;
count_k: Integer;
strVal: WideString;
Key: WideString;
Value: WideString;
json1: IChilkatJsonObject;
i1: Integer;
count_i1: Integer;
Clients: WideString;
j1: Integer;
count_j1: Integer;
Id: Integer;
v_Type: WideString;
NextToken: WideString;
i: Integer;
count_i: Integer;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

rest := TChilkatRest.Create(Self);

authAws := TChilkatAuthAws.Create(Self);
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 := 'fsx';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);

// URL: https://fsx.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('fsx.us-west-2.amazonaws.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(rest.ConnectFailReason));
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  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

json := TChilkatJsonObject.Create(Self);
json.UpdateString('FileSystemIds[0]','string');
json.UpdateInt('MaxResults',123);
json.UpdateString('NextToken','string');

// The JSON request body created by the above code:

// {
//   "FileSystemIds": [
//     "string"
//   ],
//   "MaxResults": number,
//   "NextToken": "string"
// }

rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','AWSSimbaAPIService_v20180301.DescribeFileSystems');

sbRequestBody := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbRequestBody.ControlInterface);
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestSb('POST','/',sbRequestBody.ControlInterface,sbResponseBody.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;
respStatusCode := rest.ResponseStatusCode;
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));
if (respStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(rest.ResponseHeader);
    Memo1.Lines.Add('Response Body:');
    Memo1.Lines.Add(sbResponseBody.GetAsString());
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);

// 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

NextToken := jResp.StringOf('NextToken');
i := 0;
count_i := jResp.SizeOfArray('FileSystems');
while i < count_i do
  begin
    jResp.I := i;
    CreationTime := jResp.IntOf('FileSystems[i].CreationTime');
    DNSName := jResp.StringOf('FileSystems[i].DNSName');
    Message := jResp.StringOf('FileSystems[i].FailureDetails.Message');
    FileSystemId := jResp.StringOf('FileSystems[i].FileSystemId');
    FileSystemType := jResp.StringOf('FileSystems[i].FileSystemType');
    FileSystemTypeVersion := jResp.StringOf('FileSystems[i].FileSystemTypeVersion');
    KmsKeyId := jResp.StringOf('FileSystems[i].KmsKeyId');
    Lifecycle := jResp.StringOf('FileSystems[i].Lifecycle');
    AutomaticBackupRetentionDays := jResp.IntOf('FileSystems[i].LustreConfiguration.AutomaticBackupRetentionDays');
    CopyTagsToBackups := jResp.IntOf('FileSystems[i].LustreConfiguration.CopyTagsToBackups');
    DailyAutomaticBackupStartTime := jResp.StringOf('FileSystems[i].LustreConfiguration.DailyAutomaticBackupStartTime');
    DataCompressionType := jResp.StringOf('FileSystems[i].LustreConfiguration.DataCompressionType');
    AutoImportPolicy := jResp.StringOf('FileSystems[i].LustreConfiguration.DataRepositoryConfiguration.AutoImportPolicy');
    ExportPath := jResp.StringOf('FileSystems[i].LustreConfiguration.DataRepositoryConfiguration.ExportPath');
    FailureDetailsMessage := jResp.StringOf('FileSystems[i].LustreConfiguration.DataRepositoryConfiguration.FailureDetails.Message');
    ImportedFileChunkSize := jResp.IntOf('FileSystems[i].LustreConfiguration.DataRepositoryConfiguration.ImportedFileChunkSize');
    ImportPath := jResp.StringOf('FileSystems[i].LustreConfiguration.DataRepositoryConfiguration.ImportPath');
    DataRepositoryConfigurationLifecycle := jResp.StringOf('FileSystems[i].LustreConfiguration.DataRepositoryConfiguration.Lifecycle');
    DeploymentType := jResp.StringOf('FileSystems[i].LustreConfiguration.DeploymentType');
    DriveCacheType := jResp.StringOf('FileSystems[i].LustreConfiguration.DriveCacheType');
    Destination := jResp.StringOf('FileSystems[i].LustreConfiguration.LogConfiguration.Destination');
    Level := jResp.StringOf('FileSystems[i].LustreConfiguration.LogConfiguration.Level');
    MountName := jResp.StringOf('FileSystems[i].LustreConfiguration.MountName');
    PerUnitStorageThroughput := jResp.IntOf('FileSystems[i].LustreConfiguration.PerUnitStorageThroughput');
    WeeklyMaintenanceStartTime := jResp.StringOf('FileSystems[i].LustreConfiguration.WeeklyMaintenanceStartTime');
    OntapConfigurationAutomaticBackupRetentionDays := jResp.IntOf('FileSystems[i].OntapConfiguration.AutomaticBackupRetentionDays');
    OntapConfigurationDailyAutomaticBackupStartTime := jResp.StringOf('FileSystems[i].OntapConfiguration.DailyAutomaticBackupStartTime');
    OntapConfigurationDeploymentType := jResp.StringOf('FileSystems[i].OntapConfiguration.DeploymentType');
    Iops := jResp.IntOf('FileSystems[i].OntapConfiguration.DiskIopsConfiguration.Iops');
    Mode := jResp.StringOf('FileSystems[i].OntapConfiguration.DiskIopsConfiguration.Mode');
    EndpointIpAddressRange := jResp.StringOf('FileSystems[i].OntapConfiguration.EndpointIpAddressRange');
    InterclusterDNSName := jResp.StringOf('FileSystems[i].OntapConfiguration.Endpoints.Intercluster.DNSName');
    ManagementDNSName := jResp.StringOf('FileSystems[i].OntapConfiguration.Endpoints.Management.DNSName');
    PreferredSubnetId := jResp.StringOf('FileSystems[i].OntapConfiguration.PreferredSubnetId');
    ThroughputCapacity := jResp.IntOf('FileSystems[i].OntapConfiguration.ThroughputCapacity');
    OntapConfigurationWeeklyMaintenanceStartTime := jResp.StringOf('FileSystems[i].OntapConfiguration.WeeklyMaintenanceStartTime');
    OpenZFSConfigurationAutomaticBackupRetentionDays := jResp.IntOf('FileSystems[i].OpenZFSConfiguration.AutomaticBackupRetentionDays');
    OpenZFSConfigurationCopyTagsToBackups := jResp.IntOf('FileSystems[i].OpenZFSConfiguration.CopyTagsToBackups');
    CopyTagsToVolumes := jResp.IntOf('FileSystems[i].OpenZFSConfiguration.CopyTagsToVolumes');
    OpenZFSConfigurationDailyAutomaticBackupStartTime := jResp.StringOf('FileSystems[i].OpenZFSConfiguration.DailyAutomaticBackupStartTime');
    OpenZFSConfigurationDeploymentType := jResp.StringOf('FileSystems[i].OpenZFSConfiguration.DeploymentType');
    DiskIopsConfigurationIops := jResp.IntOf('FileSystems[i].OpenZFSConfiguration.DiskIopsConfiguration.Iops');
    DiskIopsConfigurationMode := jResp.StringOf('FileSystems[i].OpenZFSConfiguration.DiskIopsConfiguration.Mode');
    RootVolumeId := jResp.StringOf('FileSystems[i].OpenZFSConfiguration.RootVolumeId');
    OpenZFSConfigurationThroughputCapacity := jResp.IntOf('FileSystems[i].OpenZFSConfiguration.ThroughputCapacity');
    OpenZFSConfigurationWeeklyMaintenanceStartTime := jResp.StringOf('FileSystems[i].OpenZFSConfiguration.WeeklyMaintenanceStartTime');
    OwnerId := jResp.StringOf('FileSystems[i].OwnerId');
    ResourceARN := jResp.StringOf('FileSystems[i].ResourceARN');
    StorageCapacity := jResp.IntOf('FileSystems[i].StorageCapacity');
    StorageType := jResp.StringOf('FileSystems[i].StorageType');
    VpcId := jResp.StringOf('FileSystems[i].VpcId');
    ActiveDirectoryId := jResp.StringOf('FileSystems[i].WindowsConfiguration.ActiveDirectoryId');
    AuditLogDestination := jResp.StringOf('FileSystems[i].WindowsConfiguration.AuditLogConfiguration.AuditLogDestination');
    FileAccessAuditLogLevel := jResp.StringOf('FileSystems[i].WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel');
    FileShareAccessAuditLogLevel := jResp.StringOf('FileSystems[i].WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel');
    WindowsConfigurationAutomaticBackupRetentionDays := jResp.IntOf('FileSystems[i].WindowsConfiguration.AutomaticBackupRetentionDays');
    WindowsConfigurationCopyTagsToBackups := jResp.IntOf('FileSystems[i].WindowsConfiguration.CopyTagsToBackups');
    WindowsConfigurationDailyAutomaticBackupStartTime := jResp.StringOf('FileSystems[i].WindowsConfiguration.DailyAutomaticBackupStartTime');
    WindowsConfigurationDeploymentType := jResp.StringOf('FileSystems[i].WindowsConfiguration.DeploymentType');
    PreferredFileServerIp := jResp.StringOf('FileSystems[i].WindowsConfiguration.PreferredFileServerIp');
    WindowsConfigurationPreferredSubnetId := jResp.StringOf('FileSystems[i].WindowsConfiguration.PreferredSubnetId');
    RemoteAdministrationEndpoint := jResp.StringOf('FileSystems[i].WindowsConfiguration.RemoteAdministrationEndpoint');
    DomainName := jResp.StringOf('FileSystems[i].WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName');
    FileSystemAdministratorsGroup := jResp.StringOf('FileSystems[i].WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup');
    OrganizationalUnitDistinguishedName := jResp.StringOf('FileSystems[i].WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName');
    UserName := jResp.StringOf('FileSystems[i].WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName');
    WindowsConfigurationThroughputCapacity := jResp.IntOf('FileSystems[i].WindowsConfiguration.ThroughputCapacity');
    WindowsConfigurationWeeklyMaintenanceStartTime := jResp.StringOf('FileSystems[i].WindowsConfiguration.WeeklyMaintenanceStartTime');
    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].AdministrativeActions');
    while j < count_j do
      begin
        jResp.J := j;
        AdministrativeActionType := jResp.StringOf('FileSystems[i].AdministrativeActions[j].AdministrativeActionType');
        FailureDetailsMessage := jResp.StringOf('FileSystems[i].AdministrativeActions[j].FailureDetails.Message');
        ProgressPercent := jResp.IntOf('FileSystems[i].AdministrativeActions[j].ProgressPercent');
        RequestTime := jResp.IntOf('FileSystems[i].AdministrativeActions[j].RequestTime');
        Status := jResp.StringOf('FileSystems[i].AdministrativeActions[j].Status');
        TargetFileSystemValues := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetFileSystemValues');
        TargetSnapshotValuesCreationTime := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.CreationTime');
        TargetSnapshotValuesLifecycle := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.Lifecycle');
        LifecycleTransitionReasonMessage := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.LifecycleTransitionReason.Message');
        Name := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.Name');
        TargetSnapshotValuesResourceARN := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.ResourceARN');
        SnapshotId := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.SnapshotId');
        VolumeId := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.VolumeId');
        TargetVolumeValuesCreationTime := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.CreationTime');
        TargetVolumeValuesFileSystemId := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.FileSystemId');
        TargetVolumeValuesLifecycle := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.Lifecycle');
        LifecycleTransitionReasonMessage := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.LifecycleTransitionReason.Message');
        TargetVolumeValuesName := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.Name');
        FlexCacheEndpointType := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.FlexCacheEndpointType');
        JunctionPath := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.JunctionPath');
        OntapVolumeType := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.OntapVolumeType');
        SecurityStyle := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.SecurityStyle');
        SizeInMegabytes := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.SizeInMegabytes');
        StorageEfficiencyEnabled := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageEfficiencyEnabled');
        StorageVirtualMachineId := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineId');
        StorageVirtualMachineRoot := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineRoot');
        CoolingPeriod := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.TieringPolicy.CoolingPeriod');
        TieringPolicyName := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.TieringPolicy.Name');
        UUID := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.UUID');
        CopyTagsToSnapshots := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.CopyTagsToSnapshots');
        OpenZFSConfigurationDataCompressionType := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.DataCompressionType');
        CopyStrategy := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.CopyStrategy');
        SnapshotARN := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.SnapshotARN');
        ParentVolumeId := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.ParentVolumeId');
        ReadOnly := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.ReadOnly');
        RecordSizeKiB := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.RecordSizeKiB');
        StorageCapacityQuotaGiB := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityQuotaGiB');
        StorageCapacityReservationGiB := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityReservationGiB');
        VolumePath := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.VolumePath');
        TargetVolumeValuesResourceARN := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.ResourceARN');
        TargetVolumeValuesVolumeId := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.VolumeId');
        VolumeType := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.VolumeType');
        k := 0;
        count_k := jResp.SizeOfArray('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.AdministrativeActions');
        while k < count_k do
          begin
            jResp.K := k;
            strVal := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.AdministrativeActions[k]');
            k := k + 1;
          end;

        k := 0;
        count_k := jResp.SizeOfArray('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.Tags');
        while k < count_k do
          begin
            jResp.K := k;
            Key := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.Tags[k].Key');
            Value := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetSnapshotValues.Tags[k].Value');
            k := k + 1;
          end;

        k := 0;
        count_k := jResp.SizeOfArray('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.AdministrativeActions');
        while k < count_k do
          begin
            jResp.K := k;
            strVal := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.AdministrativeActions[k]');
            k := k + 1;
          end;

        k := 0;
        count_k := jResp.SizeOfArray('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.NfsExports');
        while k < count_k do
          begin
            jResp.K := k;

            json1 := jResp.ObjectOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.NfsExports[k]');
            i1 := 0;
            count_i1 := json1.SizeOfArray('ClientConfigurations');
            while i1 < count_i1 do
              begin
                json1.I := i1;
                Clients := json1.StringOf('ClientConfigurations[i].Clients');
                j1 := 0;
                count_j1 := json1.SizeOfArray('ClientConfigurations[i].Options');
                while j1 < count_j1 do
                  begin
                    json1.J := j1;
                    strVal := json1.StringOf('ClientConfigurations[i].Options[j]');
                    j1 := j1 + 1;
                  end;

                i1 := i1 + 1;
              end;

            k := k + 1;
          end;

        k := 0;
        count_k := jResp.SizeOfArray('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas');
        while k < count_k do
          begin
            jResp.K := k;
            Id := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].Id');
            StorageCapacityQuotaGiB := jResp.IntOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].StorageCapacityQuotaGiB');
            v_Type := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].Type');
            k := k + 1;
          end;

        k := 0;
        count_k := jResp.SizeOfArray('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.Tags');
        while k < count_k do
          begin
            jResp.K := k;
            Key := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.Tags[k].Key');
            Value := jResp.StringOf('FileSystems[i].AdministrativeActions[j].TargetVolumeValues.Tags[k].Value');
            k := k + 1;
          end;

        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].NetworkInterfaceIds');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].NetworkInterfaceIds[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].OntapConfiguration.Endpoints.Intercluster.IpAddresses');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].OntapConfiguration.Endpoints.Intercluster.IpAddresses[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].OntapConfiguration.Endpoints.Management.IpAddresses');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].OntapConfiguration.Endpoints.Management.IpAddresses[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].OntapConfiguration.RouteTableIds');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].OntapConfiguration.RouteTableIds[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].SubnetIds');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].SubnetIds[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].Tags');
    while j < count_j do
      begin
        jResp.J := j;
        Key := jResp.StringOf('FileSystems[i].Tags[j].Key');
        Value := jResp.StringOf('FileSystems[i].Tags[j].Value');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].WindowsConfiguration.Aliases');
    while j < count_j do
      begin
        jResp.J := j;
        Lifecycle := jResp.StringOf('FileSystems[i].WindowsConfiguration.Aliases[j].Lifecycle');
        Name := jResp.StringOf('FileSystems[i].WindowsConfiguration.Aliases[j].Name');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].WindowsConfiguration.MaintenanceOperationsInProgress');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].WindowsConfiguration.MaintenanceOperationsInProgress[j]');
        j := j + 1;
      end;

    j := 0;
    count_j := jResp.SizeOfArray('FileSystems[i].WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps');
    while j < count_j do
      begin
        jResp.J := j;
        strVal := jResp.StringOf('FileSystems[i].WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[j]');
        j := j + 1;
      end;

    i := i + 1;
  end;

// A sample JSON response body parsed by the above code:

// {
//   "FileSystems": [
//     {
//       "AdministrativeActions": [
//         {
//           "AdministrativeActionType": "string",
//           "FailureDetails": {
//             "Message": "string"
//           },
//           "ProgressPercent": number,
//           "RequestTime": number,
//           "Status": "string",
//           "TargetFileSystemValues": "FileSystem",
//           "TargetSnapshotValues": {
//             "AdministrativeActions": [
//               "AdministrativeAction"
//             ],
//             "CreationTime": number,
//             "Lifecycle": "string",
//             "LifecycleTransitionReason": {
//               "Message": "string"
//             },
//             "Name": "string",
//             "ResourceARN": "string",
//             "SnapshotId": "string",
//             "Tags": [
//               {
//                 "Key": "string",
//                 "Value": "string"
//               }
//             ],
//             "VolumeId": "string"
//           },
//           "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,
//       "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"
//       }
//     }
//   ],
//   "NextToken": "string"
// }