MySQL LOCATE and CONTINUE sample

harbour/contrib/adordd/mysql3.prg

@@ -0,0 +1,21 @@
+// Testing LOCATE
+
+#include "adordd.ch"
+
+REQUEST ADORDD
+
+function Main()
+
+   USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
+      FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"
+
+   LOCATE FOR "City LIKE 'Chi*'"
+
+   while ! Eof()
+      ? test00->First, test00->City
+      CONTINUE
+   end   
+
+   USE
+
+return nil