$$keyptr = $$db{CurrentKey} = $SavSubtree[$curuser][$$db{RSubtreeno}];

if ( defined($$keyptr) ) {
   my $datapos = $RSubtree{$curuser}{$$keyptr};
   if ( defined($datapos) ) {
      $ret = GetDataRecord( $db, $keyptr, $dataptr, $datapos );
      if ( $ret == TRUE ) {
         flock( $$db{btree}, LOCK_UN );
         return "";
      }
   }
}