Article ID: 139048
Article Last Modified on 2/21/2005
SELECT * FROM <table> WHERE RAND() > .5In this example the article's CAUSE section applies:
SELECT * FROM <table> WHERE myudf() > .5 PROCEDURE myudf() RETURN RAND()
*-- Code Begins Here
CREATE TABLE testfile.dbf ;
(mach_id i, mach_name c(10), db_key i, updcount i)
INDEX ON db_key TAG db_key
SET ORDER TO
SET STATUS BAR ON
FOR ii = 1 TO 1000
INSERT INTO testfile.dbf VALUES (0, "", ii, 0)
ENDFOR
USE IN testfile
USE testfile.dbf IN 0 SHARED
SELECT testfile
failcount = 0
passcount = 0
FOR ii = 1 to 1000
*updval = INT(RAND() * 1000 + 1)
UPDATE testfile ;
SET mach_id = 1, ;
mach_name = 'JOHNDOE', ;
updcount = updcount+1 ;
WHERE db_key = INT(RAND() * 1000 + 1)
IF _TALLY = 0
Failcount=Failcount + 1
ELSE
passcount=passcount + 1
ENDIF
SET MESSAGE TO ALLTRIM(STR(FAILCOUNT))+' Failed, ';
+ALLTRIM(STR(PASSCOUNT))+' Passed'
ENDFOR
*-- Code Ends Here
WHERE db_key = updval
Additional query words: inconsistent kbvfp300 kbvfp500 kbvfp600
Keywords: kbbug kbprogramming KB139048