22835dc3a6
* tests/multifnc/t0.prg
* tests/multifnc/t1.prg
* tests/multifnc/t2.prg
* source/rdd/usrrdd/example/exmemo.prg
* source/rdd/usrrdd/example/exhsx.prg
* source/rdd/usrrdd/example/exfcm.prg
* source/rdd/usrrdd/example/exrlx.prg
* contrib/xhb/hbsyslog.c
* contrib/rddado/tests/mysql3.prg
* contrib/rddado/tests/access1.prg
* contrib/rddado/tests/access2.prg
* contrib/rddado/tests/mysql1.prg
* contrib/hbpgsql/tests/tstpgrdd.prg
! SVN headers.
* contrib/hbwhat32/Makefile
* contrib/hbwhat32/common.mak
- contrib/hbwhat32/wintypes.ch
- Removed wintypes.ch, as it collides with a header with
the same name (and similar content) in xhb. It will
now use the xhb one, since it already relied on other
xhb headers anyway.
If anyone wants to sort this out properly, pls do.
49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "dbinfo.ch"
|
|
|
|
REQUEST HSXRDD
|
|
|
|
PROC MAIN()
|
|
FIELD FIRST, LAST, STREET, CITY
|
|
LOCAL n, hs
|
|
|
|
rddSetDefault("HSXRDD")
|
|
dbCreate("_tst", {{"FIRST", "C", 20, 0},;
|
|
{"LAST", "C", 20, 0},;
|
|
{"STREET", "C", 30, 0},;
|
|
{"CITY", "C", 30, 0},;
|
|
{"STATE", "C", 2, 0},;
|
|
{"ZIP", "C", 10, 0},;
|
|
{"HIREDATE", "D", 8, 0},;
|
|
{"MARRIED", "L", 1, 0},;
|
|
{"AGE", "N", 2, 0},;
|
|
{"SALARY", "N", 6, 0},;
|
|
{"NOTES", "C", 70, 0}})
|
|
USE _tst
|
|
HSX_CREATE( "_tst", "FIRST+LAST+STREET+CITY", 2, 0, .T., 3 )
|
|
APPEND FROM test
|
|
|
|
/* Look for all records which have 'SHERMAN' string inside */
|
|
hs := HSX_HANDLE( "_tst" )
|
|
HS_SET( hs, "SHERMAN" )
|
|
WHILE ( n := HS_NEXT( hs ) ) > 0
|
|
DBGOTO( n )
|
|
IF HS_VERIFY( hs ) > 0
|
|
? RTRIM( FIRST+LAST+STREET+CITY )
|
|
ENDIF
|
|
ENDDO
|
|
WAIT
|
|
|
|
/* Does RDD support Record Map Filters? */
|
|
IF DBINFO( DBI_RM_SUPPORTED )
|
|
/* if yest then let set filter for all records with 'SHERMAN'
|
|
word and look at them in browser */
|
|
HS_FILTER( hs, "SHERMAN" )
|
|
DBGOTOP()
|
|
BROWSE()
|
|
ENDIF
|
|
RETURN
|