112 lines
2.2 KiB
Plaintext
112 lines
2.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
Testing sx_ReplaceEx( aArray ) .. sx_dbEval()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN( nLevel )
|
|
|
|
IF nLevel == NIL
|
|
nLevel := 2
|
|
ELSE
|
|
nLevel := val( nLevel )
|
|
IF nLevel < 0 .OR. nLevel > 2
|
|
? 'Usage : TEST51 <nLevel>, where nLevel: 0, 1 or 2'
|
|
RETURN
|
|
ENDIF
|
|
ENDIF
|
|
|
|
?
|
|
? 'Set Commit Level To ' + ltrim( str( nLevel ) ), sx_CommitLevel( nLevel )
|
|
?
|
|
? 'Appending 10,000 Records Using Commit Level ' + ltrim( str( nLevel ) )
|
|
? 'Working sx_dbEval() ...'
|
|
?
|
|
Test_1()
|
|
?
|
|
? 'BROWSE ... Press any key ...'
|
|
PAUSE
|
|
BROWSE
|
|
CLOSE ALL
|
|
CLS
|
|
|
|
PROC Test_2( nCommit )
|
|
|
|
LOCAL n
|
|
|
|
sx_Gotop()
|
|
|
|
? 'Now On RecNo =>', ltrim( str( sx_RecNo() ) ), "Press any key ..."
|
|
PAUSE
|
|
|
|
n := seconds()
|
|
WHILE !sx_Eof()
|
|
sx_Skip()
|
|
ENDDO
|
|
|
|
?
|
|
? "Skipping ..."
|
|
?
|
|
? "Start : ", n
|
|
? "End : ", seconds()
|
|
? "Time : ", seconds() - n
|
|
?
|
|
? 'Now On RecNo =>', ltrim( str( sx_RecNo() ) )
|
|
?
|
|
|
|
FUNCTION Test_1( nCommit )
|
|
|
|
LOCAL cFile := "sixtest.dbf"
|
|
LOCAL aStruct := { ;
|
|
{ "MYCHAR" , "C", 10, 0 }, ;
|
|
{ "MYDATE" , "D", 8, 0 }, ;
|
|
{ "MYNUMBER1" , "N", 8, 0 }, ;
|
|
{ "MYNUMBER2" , "N", 8, 2 } }
|
|
LOCAL j, n := seconds(), nArea, cPad
|
|
LOCAL cApplication
|
|
|
|
SET CENTURY ON
|
|
SET DATE ANSI
|
|
|
|
CREATE DBF cFile STRUCT aStruct RDD SDENTX
|
|
USE cFile ALIAS MYALIAS RDD SDENTX VAR nArea EXCLUSIVE
|
|
|
|
? "----------------------------------"
|
|
? "Polupating DBF with 10,000 Records"
|
|
? "----------------------------------"
|
|
? "Area : ", nArea
|
|
? "RDD : " + sx_rddDriver( nArea )
|
|
? "Start : ", n
|
|
|
|
APPEND BLANK 10000
|
|
j := 0
|
|
sx_DbEval( ;
|
|
{|| cPad := PADL( ++j, 5, "0" ) , ;
|
|
sx_ReplaceEx( { ;
|
|
{ "MYCHAR", "NAME_" + cPad } , ;
|
|
{ "MYDATE", date() + j } , ;
|
|
{ "MYNUMBER1", j * 10 } , ;
|
|
{ "MYNUMBER2", j * 10 / 20 } } );
|
|
} )
|
|
|
|
/*
|
|
while !sx_Eof()
|
|
cPad := PADL( ++j, 5, "0")
|
|
sx_ReplaceEx({;
|
|
{"MYCHAR", "NAME_" + cPad },;
|
|
{"MYDATE", date() + j },;
|
|
{"MYNUMBER1", j * 10 },;
|
|
{"MYNUMBER2", j * 10 / 20 }} )
|
|
sx_skip(1)
|
|
enddo
|
|
*/
|
|
|
|
? "End : ", seconds()
|
|
? "Time : ", seconds() - n
|
|
|
|
RETURN NIL
|