FWD » Core Development » Database

output to collation-test.txt .

function d returns logical (input s as character) :

    display s format "x(50)"

            skip with frame fx no-box no-labels.

end function.

d("Table definition ...").

define temp-table ttx

    field ix as integer

    field cx as character

    field dx as character case-sensitive

    index id-cx cx

    index id-dx dx.

d("Populate table with test data ...").

define variable i as integer.

do i = 0 to 256:

    create ttx.

    ttx.ix = i.

    ttx.cx = "a" + chr(i) + "z".

    ttx.dx = "b" + chr(i) + "y".

end.

d("Run query ascending case-insensitive query").

for each ttx by cx:

    d(string(ix, ">>9") + ")" + cx).

end.

d("Run query ascending case-sensitive query").

for each ttx by dx:

    d(string(ix, ">>9") + ")" + dx).

end.

/*    

d("Run query descending case-insensitive query"). 

for each ttx by cx desc:

    d(string(ix, ">>9") + ")" + cx).

end.

d("Run query descending case-sensitive query").

for each ttx by dx desc:

    d(string(ix, ">>9") + ")" + dx).

end.

*/

output close.

message "all done".