See ChangeLog entry 2001-05-08 21:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>

harbour/ChangeLog

@@ -1,3 +1,11 @@
+2001-05-08 21:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
+
+  * source/rtl/dbdelim.c
+  * source/rtl/dbsdf.c
+    % Corrected the initial database record positioning when using only
+      the ALL scope by itself or a FOR condition by itself to position
+      to the top of the database instead of record number 1.
+
 2001-05-09 00:02 UTC+1 JFL (mafact) <jfl@mafact.com>
    * source/vm/classes.c            
     * modified hb_msgclssel() to accept one logical param

harbour/source/rtl/dbdelim.prg

@@ -164,7 +164,7 @@ FUNCTION __dbDelim( lExport, cFile, cDelimArg, aFields, bFor, bWhile, nNext, nRe
       nCount := -1
    ELSE
       // Followed by the FOR clause or the ALL clause.
-      nStart := 1
+      nStart := 0
       nCount := -1
    END IF
    IF EMPTY( bFor )
@@ -191,7 +191,11 @@ FUNCTION __dbDelim( lExport, cFile, cDelimArg, aFields, bFor, bWhile, nNext, nRe
       ELSE
          IF nStart > -1
             // Only reposition if a starting record was specified or implied.
-            GO (nStart)
+            IF nStart == 0
+               GO TOP
+            ELSE
+               GO (nStart)
+            END IF
          END IF
          IF EMPTY( bWhile )
             // This simplifies the looping logic.

harbour/source/rtl/dbsdf.prg

@@ -149,7 +149,7 @@ FUNCTION __dbSDF( lExport, cFile, aFields, bFor, bWhile, nNext, nRecord, lRest )
       nCount := -1
    ELSE
       // Followed by the FOR clause or the ALL clause.
-      nStart := 1
+      nStart := 0
       nCount := -1
    END IF
    IF EMPTY( bFor )
@@ -176,7 +176,11 @@ FUNCTION __dbSDF( lExport, cFile, aFields, bFor, bWhile, nNext, nRecord, lRest )
       ELSE
          IF nStart > -1
             // Only reposition if a starting record was specified or implied.
-            GO (nStart)
+            IF nStart == 0
+               GO TOP
+            ELSE
+               GO (nStart)
+            END IF
          END IF
          IF EMPTY( bWhile )
             // This simplifies the looping logic.