2f285ca6c2
* contrib/hbamf/tests/tstendin.prg
* contrib/hbblat/blatcls.prg
* contrib/hbct/tests/ctwtest.prg
* contrib/hbct/tests/token2.prg
* contrib/hbhttpd/readme.txt
* contrib/hbhttpd/widgets.prg
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/hbedit.prg
* contrib/hbmysql/diff-en.txt
* contrib/hbmysql/diff-es.txt
* contrib/hbmysql/tests/dbf2mysq.prg
* contrib/hbmysql/tmysql.prg
* contrib/hbmysql/tsqlbrw.prg
* contrib/hbnetio/tests/netiot03.prg
* contrib/hbnetio/tests/netiotst.prg
* contrib/hbnf/doc/en/fttext.txt
* contrib/hbodbc/browodbc.prg
* contrib/hbodbc/tests/odbcdemo.prg
* contrib/hbodbc/todbc.prg
* contrib/hbtip/ftpcli.prg
* contrib/hbwin/tests/olesrv1.prg
* contrib/rddads/ads.ch
* contrib/rddsql/readme.txt
* contrib/sddodbc/tests/test2.prg
* contrib/xhb/dbf2txt.c
* contrib/xhb/hbcompat.ch
* contrib/xhb/hblog.prg
* contrib/xhb/html.ch
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/ttable.prg
* ChangeLog
* doc/en/dbdelim.txt
* doc/en/dbsdf.txt
* doc/en/rdddb.txt
* doc/en/terminal.txt
* extras/gtwvw/tests/wvt2wvw.ch
* extras/httpsrv/cookie.prg
* extras/httpsrv/modules/tableservletdb.prg
* extras/rddado/adordd.ch
* extras/rddado/adordd.prg
* include/assert.ch
* include/hbsix.ch
* src/debug/dbgbrwsr.prg
* src/debug/dbgtinp.prg
* src/rdd/*.prg
* src/rtl/*.prg
* tests/*.prg
* tests/rddtest/rddtst.prg
* tests/usrrdd/exarr.prg
* tests/usrrdd/exfcm.prg
* utils/hbtest/hbtest.prg
* more minor
75 lines
998 B
Plaintext
75 lines
998 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL i := 0
|
|
FIELD Last, First
|
|
|
|
USE test
|
|
INDEX ON Left( Last, 8 ) + Left( First, 8 ) TO test1
|
|
INDEX ON Left( Last, 8 ) TO test2
|
|
INDEX ON Last TO test3
|
|
SET INDEX TO test1, test2, test3
|
|
|
|
SET ORDER TO 1
|
|
? IndexKey()
|
|
Inkey( 0 )
|
|
GO TOP
|
|
DO WHILE ! Eof()
|
|
? ++i, Last, First
|
|
SKIP
|
|
ENDDO
|
|
|
|
? "------------"
|
|
Inkey( 0 )
|
|
SKIP -1
|
|
|
|
DO WHILE ! Bof()
|
|
? i-- , Last, First
|
|
SKIP -1
|
|
ENDDO
|
|
|
|
i := 0
|
|
SET ORDER TO 2
|
|
? IndexKey()
|
|
Inkey( 0 )
|
|
GO TOP
|
|
DO WHILE ! Eof()
|
|
? ++i, Last, First
|
|
SKIP
|
|
ENDDO
|
|
|
|
? "------------"
|
|
Inkey( 0 )
|
|
SKIP -1
|
|
|
|
DO WHILE ! Bof()
|
|
? i-- , Last, First
|
|
SKIP -1
|
|
ENDDO
|
|
|
|
i := 0
|
|
SET ORDER TO 3
|
|
? IndexKey()
|
|
Inkey( 0 )
|
|
GO TOP
|
|
DO WHILE ! Eof()
|
|
? ++i, Last, First
|
|
SKIP
|
|
ENDDO
|
|
|
|
? "------------"
|
|
Inkey( 0 )
|
|
SKIP -1
|
|
|
|
DO WHILE ! Bof()
|
|
? i-- , Last, First
|
|
SKIP -1
|
|
ENDDO
|
|
|
|
USE
|
|
|
|
RETURN
|