($rc,$outputHash)= $::device2->SEOS->Subscriber->Active(INPUT => \%INPUTS,
                SUB_REC_APP => \%SUB_ATTRS_APP_DUAL,
                SUB_REC_EXP => \%SUB_ATTRS_EXP_DUAL,
                SUB_REC_EXT => \@SUB_ATTRS_EXT);
        $::test->checkPoint($rc, "CHECKPOINT for verifying subscriber attributes.");
 
 
 
        $circuitHash{$sub} = $outputHash->{"Circuit"};
        $internalCircuitHash{$sub} = $outputHash->{"Internal Circuit"};
        my %ipHostEntryArrayReferenceHash;
        $ipHostEntryArrayReferenceHash{$sub} = $outputHash->{"IP host entries installed by DHCP"};
        $ipAddressHash{$sub} = (split /\s+/, $ipHostEntryArrayReferenceHash{$sub}->[0])[0];
        $outputHash->{"Framed-IPV6-Prefix"} =~ /^(.*)\s+\(applied/;
        $framedIpv6PrefixHash{$sub} = $1;
        $pdPrefixArrayReferenceHash{$sub} = $outputHash->{"ipv6host entries installed by PD"};
       $pdPrefixHash{$sub} = $pdPrefixArrayReferenceHash{$sub}->[0];
 
        $::test->log_info("Circuit: $circuitHash{$sub}.");
        $::test->log_info("Internal Circuit: $internalCircuitHash{$sub}.");
        $::test->log_info("IP address: $ipAddressHash{$sub}");
        $::test->log_info("Framed-IPV6-Prefix: $framedIpv6PrefixHash{$sub}.");
        $::test->log_info("ipv6PrefixHash: $pdPrefixHash{$sub}.");
       
	   #}
 
        if ($subscriberMetaData{protocolstack}->{$sub} eq "IPV4") {
        $::test->log_info("\n#---------------------------------------------------------------------------");
        $::test->log_info("Extracting & verifying attributes for subscriber $sub for v4.");
        $::test->log_info("#---------------------------------------------------------------------------");
        my %INPUTS=(CONTEXT => $::CONTEXT,
                USERNAME => $sub);
				}