$$db{CurrentKey} = $SavSubtree[$curuser][$$db{RSubtreeno}];
    $$keyptr = $$db{CurrentKey};
    my $datapos;
*   if ( defined $RSubtree{$curuser}{$$keyptr} ) { $datapos = $RSubtree{$curuser}{$$keyptr}; }
    if ( ( defined $$keyptr )&&( defined $datapos ) )
    {  $ret = &GetDataRecord( $db, $keyptr, $dataptr, $datapos );
       if ( $ret == TRUE ) { flock( $$db{btree}, LOCK_UN ); return(""); }
    }