/*
 * $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