63 lines
1.4 KiB
Plaintext
63 lines
1.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_KeyAdd(), sx_KeyDrop(), sx_KeyData()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#define IDX_NONE 0 // Standard index (Not UNIQUE or EMPTY (RYO))
|
|
#define IDX_UNIQUE 1 // UNIQUE, allows unique keys only
|
|
#define IDX_EMPTY 2 // Roll-Your-Own (RYO) empty index header
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cState
|
|
|
|
SET RDD SDEFOX
|
|
USE "TEST/TEST" EXCLUSIVE
|
|
? 'Creating index ...'
|
|
FErase( "TEST/TEST.CDX" )
|
|
sx_IndexTag ( "TEST/TEST", "STATE", "STATE", IDX_EMPTY )
|
|
sx_IndexTag ( "TEST/TEST", "FIRST", "FIRST" )
|
|
sx_Gotop()
|
|
? 'Adding Key ...'
|
|
WHILE !sx_Eof()
|
|
cState := SX_GETVALUE( "STATE" )
|
|
IF cState == "LA"
|
|
? 'SX_KEYADD( "STATE" ) =', SX_KEYADD( "STATE" )
|
|
ENDIF
|
|
sx_skip( 1 )
|
|
ENDDO
|
|
? 'Now examining with sx_KeyData() .. Press any key ...'
|
|
PAUSE
|
|
sx_SetOrder( "STATE" )
|
|
sx_Gotop()
|
|
WHILE !sx_Eof()
|
|
? "sx_RecNo() =", ltrim( str( sx_recNo() ) ), ' sx_KeyData()=', sx_KeyData()
|
|
sx_skip()
|
|
ENDDO
|
|
|
|
? 'BROWSE .. Press any key ...'
|
|
PAUSE
|
|
sx_SetOrder( "STATE" )
|
|
BROWSE
|
|
CLS
|
|
? 'Now Deleting Key ....'
|
|
sx_SetOrder( "FIRST" )
|
|
sx_GoTop()
|
|
WHILE !sx_Eof()
|
|
cState := SX_GETVALUE( "STATE" )
|
|
IF cState == "LA"
|
|
? 'SX_KEYDROP( "STATE" ) =', SX_KEYDROP( "STATE" )
|
|
ENDIF
|
|
sx_skip()
|
|
ENDDO
|
|
|
|
? 'BROWSE .. Press any key ...'
|
|
PAUSE
|
|
sx_SetOrder( "STATE" )
|
|
BROWSE
|