From 0b10936ad2b18350b02499159406ad55a5e3ea1d Mon Sep 17 00:00:00 2001
From: Bruno Cantero <bruno@issnet.net>
Date: Mon, 18 Oct 1999 07:07:13 +0000
Subject: [PATCH] ChangeLogTag:19991018-08:55 GMT+1 Bruno Cantero
 <bruno@issnet.net>

---
 harbour/ChangeLog            |  7 +++++++
 harbour/source/rdd/dbcmd.c   | 33 +++++++++++++++++++++++++++++++++
 harbour/source/rtl/dummy.prg |  2 --
 3 files changed, 40 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d7f7fd6267..e5a5bff830 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,10 @@
+19991018-08:55 GMT+1 Bruno Cantero <bruno@issnet.net>
+  * source/rtl/dummy.prg
+    - __dbSetLocate() and __dbSetFound() functions removed.
+
+  * source/rdd/dbcmd.c
+    + Added support for __dbSetLocate() and __dbSetFound() functions.
+
 19991018-07:36 GMT+1 Victor Szel <info@szelvesz.hu>
    + source/rtl/afields.prg
      source/rtl/Makefile
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 4494cd2718..a1522eaa30 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -98,6 +98,8 @@ HARBOUR HB_DBRUNLOCK( void );
 HARBOUR HB_DBSELECTAREA( void );
 HARBOUR HB_DBSETDRIVER( void );
 HARBOUR HB_DBSETFILTER( void );
+HARBOUR HB___DBSETFOUND( void );
+HARBOUR HB___DBSETLOCATE( void );
 HARBOUR HB_DBSKIP( void );
 HARBOUR HB_DBSTRUCT( void );
 HARBOUR HB_DBTABLEEXT( void );
@@ -1825,6 +1827,25 @@ HARBOUR HB___DBLOCATE()
    }
 }
 
+HARBOUR HB___DBSETLOCATE( void )
+{
+   PHB_ITEM pLocate, pFor;
+   DBSCOPEINFO pScopeInfo;
+
+   if( pCurrArea )
+   {
+      pLocate = hb_param( 1, IT_BLOCK );
+      if( pLocate )
+      {
+         pFor = hb_itemNew( NULL );
+         hb_itemCopy( pFor, pLocate );
+         memset( &pScopeInfo, 0, sizeof( DBSCOPEINFO ) );
+         pScopeInfo.itmCobFor = pFor;
+         SELF_SETLOCATE( ( AREAP ) pCurrArea->pArea, &pScopeInfo );
+      }
+   }
+}
+
 HARBOUR HB_DBRECALL( void )
 {
    if( pCurrArea )
@@ -1931,6 +1952,18 @@ HARBOUR HB_DBSETDRIVER( void )
    }
 }
 
+HARBOUR HB___DBSETFOUND( void )
+{
+   PHB_ITEM pFound;
+
+   if( pCurrArea )
+   {
+      pFound = hb_param( 1, IT_LOGICAL );
+      if( pFound )
+         ( ( AREAP ) pCurrArea->pArea )->fFound = hb_itemGetL( pFound );
+   }
+}
+
 HARBOUR HB_DBSKIP( void )
 {
    LONG lToSkip = 1;
diff --git a/harbour/source/rtl/dummy.prg b/harbour/source/rtl/dummy.prg
index b492c6e3b0..f00cec923a 100644
--- a/harbour/source/rtl/dummy.prg
+++ b/harbour/source/rtl/dummy.prg
@@ -85,8 +85,6 @@ FUNCTION __dbZap()         ; RETURN NIL
 FUNCTION __dbArrange()     ; RETURN NIL
 FUNCTION __dbFList()       ; RETURN {}
 FUNCTION __dbOpenSDF()     ; RETURN NIL
-FUNCTION __dbSetFound()    ; RETURN NIL
-FUNCTION __dbSetLocate()   ; RETURN NIL
 FUNCTION __dbTrans()       ; RETURN NIL
 FUNCTION __dbTransRec()    ; RETURN NIL
 FUNCTION __FLEdit          ; RETURN {}