58 lines
1.3 KiB
Plaintext
58 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
creating new index files, seek and found tests
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cFile := "sixtest.dbf"
|
|
LOCAL aStruct := { { "TEST","C",10,0 }, { "MYDATE","C",8,0 }, { "MYNUM","N",8,0 }, { "MYLOGIC","L",1,0 } }
|
|
LOCAL j, n := seconds(), nArea
|
|
|
|
IF FILE( "sixtest.nsx" )
|
|
FERASE( "sixtest.nsx" )
|
|
ENDIF
|
|
|
|
CREATE DBF cFile STRUCT aStruct RDD SDENSX
|
|
|
|
USE cFile ALIAS MYALIAS RDD SDENSX VAR nArea EXCLUSIVE
|
|
|
|
? "------------------------------------------------------"
|
|
? "Test Appending 10,000 Blank Records and Creating Index"
|
|
? "------------------------------------------------------"
|
|
? "Area : ", nArea
|
|
? "RDD : " + sx_rddDriver( nArea )
|
|
? "Start : ", n
|
|
|
|
FOR j := 1 TO 10000
|
|
APPEND BLANK
|
|
FieldPut( TEST, "NAME_" + PADL( j, 5, "0" ) )
|
|
NEXT
|
|
|
|
COMMIT
|
|
|
|
?
|
|
? 'INDEX ON UPPER(TEST) TO SIXTEST'
|
|
?
|
|
INDEX ON UPPER( TEST ) TO SIXTEST
|
|
|
|
? "End : ", seconds()
|
|
? "Time : ", seconds() - n
|
|
?
|
|
? 'Seek( "NAME_07567" ) =', Seek( "NAME_07567" )
|
|
? 'Found() =', Found()
|
|
? 'Eof() =', Eof()
|
|
? 'RecNo() =', RecNo()
|
|
?
|
|
? 'Seek( "NOTEXIST" ) =', Seek( "NOTEXIST" )
|
|
? 'Found() =', Found()
|
|
? 'Eof() =', Eof()
|
|
? 'RecNo() =', RecNo()
|
|
|
|
CLOSE ALL
|