;Example of bdbfs plugin file.
;Sort the current base on current field

#include clipper.ch
#include bdbfs.ch

#LOCAL TempFile, _nRec

cCodePage:='cp866'
_nRec:=RECNO()

//Variable TempFile have to defined for TEMPINDEX command
TempFile:=StrTran(GetEnv("TEMP")+"\", "\\", "\") + "bdb_temp"

//_C_F - predefined current field's name
TEMPINDEX ON &_C_F

GOTO _nRec
Tone(440, 3)
SHOW "Done !"
