2001-05-30 10:49 UTC-0800 Brian Hays <bhays@abacuslaw.com>

harbour/ChangeLog

@@ -1,3 +1,16 @@
+2001-05-30 10:49 UTC-0800 Brian Hays <bhays@abacuslaw.com>
+
+   * source/rdd/dbcmd.c
+      * Harrier's fix to NEXT clause in COPY TO command
+         Thanks, Harrier!
+
+   * contrib/rdd_ads/ads1.c
+      * corrected commit to only flush current workarea
+
+   * source/rtl/philes.c
+      * changed HB_FEOF() to HB_F_EOF to avoid collision with the
+         HB_FEOF() in libmisc/hb_f.c
+
 2001-05-30 14:15 UTC-0400 David G. Holm <dholm@jsd-llc.com>
 
   * contrib/odbc/odbc.c

harbour/contrib/rdd_ads/ads1.c

@@ -1545,7 +1545,7 @@ static ERRCODE adsOrderDestroy( ADSAREAP pArea, LPDBORDERINFO pOrderInfo )
           (UNSIGNED8*) hb_itemGetCPtr( pOrderInfo->itmOrder ), &phIndex );
       if ( ulRetVal != AE_SUCCESS )
          return FAILURE;
-      ulRetVal = AdsCloseIndex( phIndex );
+      ulRetVal = AdsDeleteIndex( phIndex );
       if ( ulRetVal != AE_SUCCESS )
          return FAILURE;
    }

harbour/source/rdd/dbcmd.c

@@ -3519,12 +3519,12 @@ static ERRCODE rddMoveRecords( char *cAreaFrom, char *cAreaTo, PHB_ITEM pFields,
      return EG_NOTABLE;
   }
 
-  if ( lRec > 0 )                  /*only one record*/
-    SELF_GOTO( pAreaFrom, lRec );  /*go there*/
+  if ( lRec > 0 )                      /* only one record */
+    SELF_GOTO( pAreaFrom, lRec );      /* go there */
   else
   {
-    if( !pWhile && !bRest )        /*this two stay current*/
-       SELF_GOTOP( pAreaFrom );    /*else start from the top*/
+    if( !pWhile && !bRest && !lNext )  /* these two stay current */
+       SELF_GOTOP( pAreaFrom );        /* else start from the top */
   }
 
   /*move those records assuming we are positioned on one.*/

harbour/source/rtl/philes.c

@@ -214,7 +214,7 @@ HB_FUNC( CURDIR )
 
 #ifdef HB_EXTENSION
 
-HB_FUNC( HB_FEOF )
+HB_FUNC( HB_F_EOF )
 {
    if( ISNUM( 1 ) )
    {