144 lines
3.0 KiB
Plaintext
144 lines
3.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
creating new index files, seek and found tests
|
|
closing files and reusing existing index file
|
|
DESCENDING INDEX ....
|
|
DELETING ... RECALLING ... BROWSIMG ...... :)
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cFile := "sixtest.dbf"
|
|
LOCAL aStruct := { ;
|
|
{ "MYCHAR" , "C", 10, 0 }, ;
|
|
{ "MYDATE" , "D", 8, 0 }, ;
|
|
{ "MYNUM" , "N", 8, 0 }, ;
|
|
{ "MYMEMO" , "M", 10, 0 }, ;
|
|
{ "MYLOGIC", "L", 1, 0 } }
|
|
LOCAL j, n := seconds(), nArea, cPad
|
|
LOCAL nIndex, cOldColor
|
|
|
|
SET CENTURY ON
|
|
SET DATE ANSI
|
|
|
|
// This is the usual behaviour of NSX file
|
|
// Erase the Old NSX if we are to create new one
|
|
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
|
|
cPad := PADL( j, 5, "0" )
|
|
FieldPut( MYCHAR, "NAME_" + cPad )
|
|
FieldPut( MYDATE, date() + j )
|
|
FieldPut( MYNUM, j )
|
|
FieldPut( MYMEMO, "This is Record Number " + cPad )
|
|
FieldPut( MYLOGIC, j % 2 == 0 )
|
|
NEXT
|
|
|
|
COMMIT
|
|
|
|
?
|
|
? 'INDEX ON UPPER(MYCHAR) TO SIXTEST DESCENDING'
|
|
?
|
|
INDEX ON UPPER( MYCHAR ) TO SIXTEST DESCENDING
|
|
? "End : ", seconds()
|
|
? "Time : ", seconds() - n, "Quick enough ?"
|
|
?
|
|
? "Now CLOSE ALL and ReOpen DBF ... Press any key ..."
|
|
|
|
PAUSE
|
|
|
|
CLOSE ALL
|
|
|
|
// ReOpen Database
|
|
USE cFile ALIAS MYALIAS RDD SDENSX VAR nArea SHARED
|
|
// Automatically Open index file if it has same name with DBF
|
|
// Must explisitely set order 1 because we opened one index file
|
|
?
|
|
? 'sx_Alias = ', sx_Alias()
|
|
? 'sx_SetOrder( 1 ) = ', sx_SetOrder( 1 ), ' was previous order'
|
|
? 'sx_IndexName( 1 ) = ', sx_IndexName( 1 )
|
|
?
|
|
? 'Will GO TOP and Delete even RecNo until EOF ... Press any key ...'
|
|
PAUSE
|
|
?
|
|
? "Working ..."
|
|
n := seconds()
|
|
GO TOP
|
|
WHILE !sx_Eof()
|
|
IF FieldGet( MYNUM ) % 2 == 0
|
|
DELETE
|
|
ENDIF
|
|
sx_Skip()
|
|
ENDDO
|
|
|
|
?
|
|
? 'Deleting even MYNUM completed in', ltrim( str( seconds() - n ) ) + " seconds"
|
|
?
|
|
? "Now will browse DBF ... Press any key ..."
|
|
?
|
|
|
|
PAUSE
|
|
cls
|
|
cOldColor = SetColor( "W+/B" )
|
|
BROWSE
|
|
|
|
SetColor( cOldColor )
|
|
cls
|
|
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
?
|
|
? 'Now will GO TOP and RECALL deleted records ... Press any key ...'
|
|
PAUSE
|
|
|
|
?
|
|
? "Working ...."
|
|
n := seconds()
|
|
GO TOP
|
|
WHILE !sx_Eof()
|
|
IF sx_Deleted()
|
|
RECALL
|
|
ENDIF
|
|
sx_Skip()
|
|
ENDDO
|
|
|
|
?
|
|
? 'Recalling deleted records completed in', ltrim( str( seconds() - n ) ) + " seconds"
|
|
?
|
|
? "Now will browse DBF ... Press any key ..."
|
|
?
|
|
PAUSE
|
|
cls
|
|
cOldColor = SetColor( "W+/B" )
|
|
BROWSE
|
|
|
|
CLOSE ALL
|
|
setcolor( cOldColor )
|