buffer_value_context_analysis.p
1 |
def var h as handle. |
---|---|
2 |
def var num as int. |
3 |
def var txt as char. |
4 |
def var my-dec-var as decimal. |
5 |
|
6 |
def temp-table tt field counter as int. |
7 |
|
8 |
create tt. |
9 |
counter = 14. |
10 |
|
11 |
message "something" + h:buffer-field("field"):buffer-value. |
12 |
num = h:buffer-field("field"):buffer-value. |
13 |
h:buffer-field("field"):buffer-value = num. |
14 |
message "this " + quoter(h:buffer-field("field"):buffer-value) + " the other". |
15 |
txt = (if valid-handle(h) then h:buffer-field("field"):buffer-value else ""). |
16 |
|
17 |
ASSIGN txt = " literal 1 " + STRING(tt.counter) + |
18 |
" literal 2 " + QUOTER(h:BUFFER-FIELD("field"):BUFFER-VALUE) + |
19 |
" literal 3 " + h:BUFFER-FIELD("field"):BUFFER-VALUE + |
20 |
" literal 4 " + h:BUFFER-FIELD("field"):BUFFER-VALUE + |
21 |
" literal 5 " + h:BUFFER-FIELD("field"):BUFFER-VALUE NO-ERROR. |
22 |
|
23 |
h:BUFFER-FIELD("field"):BUFFER-VALUE = h:BUFFER-FIELD("field"):BUFFER-VALUE + my-dec-var. |