57 lines
977 B
Plaintext
57 lines
977 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
#include "sixapi.ch"
|
|
/*
|
|
__dx_dbSort( ...... )
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL n := seconds()
|
|
|
|
? 'Demo on SORT TO ... command .. Press any key ...'
|
|
PAUSE
|
|
? 'USE "TEST\TEST" ALIAS TEST EXCLUSIVE'
|
|
? 'Working ...'
|
|
USE "TEST\TEST" ALIAS TEST EXCLUSIVE
|
|
? 'SORT TO NEWFILE ON LAST DESCENDING'
|
|
SORT TO NEWFILE ON LAST DESCENDING
|
|
?
|
|
? 'Done!'
|
|
?
|
|
? "Start : ", n
|
|
? "End : ", seconds()
|
|
? "Time : ", seconds() - n
|
|
?
|
|
? 'BROWSE .. Press any key ...'
|
|
PAUSE
|
|
USE "NEWFILE"
|
|
BROWSE
|
|
CLS
|
|
CLOSE DATABASE
|
|
SELECT TEST
|
|
CLOSE INDEXES
|
|
|
|
?
|
|
? 'SORT with DATE Field ... Press any key ...'
|
|
PAUSE
|
|
n := seconds()
|
|
? 'SORT TO NEWFILE ON HIREDATE DESCENDING'
|
|
SORT TO NEWFILE ON HIREDATE DESCENDING
|
|
?
|
|
? 'Done!'
|
|
?
|
|
? "Start : ", n
|
|
? "End : ", seconds()
|
|
? "Time : ", seconds() - n
|
|
?
|
|
? 'BROWSE .. Press any key ...'
|
|
PAUSE
|
|
USE "NEWFILE"
|
|
BROWSE
|
|
|
|
CLOSE ALL
|