basic_buffer_parameter.p
1 |
define temp-table tt field f1 as int. |
---|---|
2 |
create tt. |
3 |
tt.f1 = 1. |
4 |
create tt. |
5 |
tt.f1 = 2. |
6 |
define buffer buf for tt. |
7 |
|
8 |
run fnc(buffer buf). |
9 |
|
10 |
procedure fnc: |
11 |
define parameter buffer pbuf for tt. |
12 |
|
13 |
find first pbuf where pbuf.f1 = 1. |
14 |
display "1 " + string(pbuf.f1). |
15 |
display "1 " + string(buf.f1). |
16 |
display "1 " + string(tt.f1). |
17 |
|
18 |
find first tt where tt.f1 = 1. |
19 |
display "2 " + string(pbuf.f1). |
20 |
display "2 " + string(buf.f1). |
21 |
display "2 " + string(tt.f1). |
22 |
|
23 |
find first buf where buf.f1 = 2. |
24 |
display "3 " + string(pbuf.f1). |
25 |
display "3 " + string(buf.f1). |
26 |
display "3 " + string(tt.f1). |
27 |
end. |