if ( exists $RSubtree{$curuser}{$$keyptr} ) 
   { $datapos = $RSubtree{$curuser}{$$keyptr}; }