sub AddUpdateDataSet($;$;$;$) {
	
	if(defined $Host_Records{$_[0]}){
		print $_[0]." already exists.\n";
	} else {
		$Host_Records{ $_[0] } = 1; 
		if(defined $Host_Records{$_[0]}->{TP}->{$_[1]}) {
			print "TP does exist\n";
			} else {
				print "TP update\n";
				$Host_Records{$_[0]}->{TP}->{$_[1]} = 1;  
				
			}#else
			if(defined $Host_Records{$_[0]}->{USERHOST}->{$_[2]}) {
				print "USERHOST does exist\n";
			} else {
				print "USERHOST update\n";
				$Host_Records{$_[0]}->{USERHOST}->{$_[2]} = 1; 
			}#else
			
			if(defined $Host_Records->{USER}->{$_[3]}) {
				print "USER does exist\n";
			} else {
				print "USER update\n";
				$Host_Records{$_[0]}->{USER}->{$_[3]} = 1;  	
			}#else
		}#else
}#CheckHost