|
1
|
define variable htt1 as handle.
|
|
2
|
define variable htt2 as handle.
|
|
3
|
|
|
4
|
create temp-table htt1.
|
|
5
|
htt1:add-new-field("f1", "char").
|
|
6
|
htt1:add-new-field("f2", "char").
|
|
7
|
htt1:add-new-field("f3", "char").
|
|
8
|
htt1:add-new-field("f4", "char").
|
|
9
|
htt1:add-new-field("f5", "char").
|
|
10
|
htt1:add-new-index("idx1", true).
|
|
11
|
htt1:ADD-INDEX-FIELD("idx1", "f1").
|
|
12
|
htt1:temp-table-prepare('tt1').
|
|
13
|
|
|
14
|
htt1:default-buffer-handle:buffer-create().
|
|
15
|
htt1:default-buffer-handle::f1 = "abc1".
|
|
16
|
htt1:default-buffer-handle::f2 = "abc1".
|
|
17
|
htt1:default-buffer-handle::f3 = "abc1".
|
|
18
|
htt1:default-buffer-handle::f4 = "abc1".
|
|
19
|
htt1:default-buffer-handle::f5 = "abc1".
|
|
20
|
htt1:default-buffer-handle:buffer-release().
|
|
21
|
|
|
22
|
htt1:default-buffer-handle:buffer-create().
|
|
23
|
htt1:default-buffer-handle::f1 = "abc2".
|
|
24
|
htt1:default-buffer-handle::f2 = "abc2".
|
|
25
|
htt1:default-buffer-handle::f3 = "abc2".
|
|
26
|
htt1:default-buffer-handle::f4 = "abc2".
|
|
27
|
htt1:default-buffer-handle::f5 = "abc2".
|
|
28
|
htt1:default-buffer-handle:buffer-release().
|
|
29
|
|
|
30
|
htt1:default-buffer-handle:buffer-create().
|
|
31
|
htt1:default-buffer-handle::f1 = "abc3".
|
|
32
|
htt1:default-buffer-handle::f2 = "abc3".
|
|
33
|
htt1:default-buffer-handle::f3 = "abc3".
|
|
34
|
htt1:default-buffer-handle::f4 = "abc3".
|
|
35
|
htt1:default-buffer-handle::f5 = "abc3".
|
|
36
|
htt1:default-buffer-handle:buffer-release().
|
|
37
|
|
|
38
|
create temp-table htt2.
|
|
39
|
htt2:add-new-field("f5", "char").
|
|
40
|
htt2:add-new-field("f4", "char").
|
|
41
|
htt2:add-new-field("f3", "char").
|
|
42
|
htt2:add-new-field("f2", "char").
|
|
43
|
htt2:add-new-field("f1", "char").
|
|
44
|
htt2:add-new-index("idx1", true).
|
|
45
|
htt2:ADD-INDEX-FIELD("idx1", "f2"). // only f5 will work
|
|
46
|
htt2:temp-table-prepare('tt2').
|
|
47
|
|
|
48
|
htt2:COPY-TEMP-TABLE(htt1).
|