f5465a83c1
+ contrib/rddsql/sddmy/tests/hbmk.hbm
- contrib/rddsql/sddmy/tests/sddmy.hbc
+ contrib/rddsql/sddmy/sddmy.hbc
- contrib/rddsql/tests/rddsql.hbc
+ contrib/rddsql/sddodbc/tests/hbmk.hbm
- contrib/rddsql/sddodbc/tests/sddodbc.hbc
+ contrib/rddsql/sddodbc/sddodbc.hbc
+ contrib/rddsql/tests/hbmk.hbm
+ contrib/rddsql/rddsql.hbc
* Rearranged according to new .hbc/.hbm layout.
Layout:
in 'tests' where final app are residing, I've
added an automatically processed hbmk2 option
file: hbmk.hbm.
This file refers to the .hbc file belonging to
the SDD: sdd*.hbc, residing in the parent dir.
This file in turn refers to the .hbc file belonging to
the main RDDSQL: rddsql.hbc, resising in the parent dir.
so this is the reference chain when issuing
hbmk2 <test.prg> in one of the test dirs:
hbmk.hbm -> sdd*.hbc -> rddsql.hbc
27 lines
815 B
Plaintext
27 lines
815 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST SQLMIX
|
|
|
|
PROC main()
|
|
RDDSETDEFAULT("SQLMIX")
|
|
DBCREATE("persons", {{"NAME", "C", 20, 0}, {"FAMILYNAME", "C", 20, 0}, {"BIRTH", "D", 8, 0}, {"AMOUNT", "N", 9, 2}},, .T., "persons")
|
|
|
|
DBAPPEND(); AEVAL({PADR("Bil", 20), PADR("Gatwick", 20), STOD("19650124"), 123456.78}, {|X,Y| FIELDPUT(Y, X)})
|
|
DBAPPEND(); AEVAL({PADR("Tom", 20), PADR("Heathrow", 20), STOD("19870512"), 9086.54}, {|X,Y| FIELDPUT(Y, X)})
|
|
DBAPPEND(); AEVAL({PADR("John", 20), PADR("Weber", 20), STOD("19750306"), 2975.45}, {|X,Y| FIELDPUT(Y, X )})
|
|
DBAPPEND(); AEVAL({PADR("Sim", 20), PADR("Simsom", 20), STOD("19930705"), 32975.37}, {|X,Y| FIELDPUT(Y, X )})
|
|
|
|
DBGOTOP()
|
|
BROWSE()
|
|
|
|
INDEX ON FIELD->AMOUNT TO amount
|
|
DBGOTOP()
|
|
BROWSE()
|
|
DBCLOSEALL()
|
|
RETURN
|
|
|
|
|
|
PROC RDDSYS(); RETURN
|