handle_function_target_source_proc_run.p
| 1 |
def var h as handle. |
|---|---|
| 2 |
|
| 3 |
function f0 returns int in h. |
| 4 |
|
| 5 |
function f1 returns int. |
| 6 |
/* this should always show this-procedure's name, for each one of the source/target procedures */ |
| 7 |
message this-procedure:name source-procedure:name target-procedure:name. |
| 8 |
f0(). |
| 9 |
end. |
| 10 |
|
| 11 |
run handle_function_target_source_proc.p persist set h. |
| 12 |
|
| 13 |
f1(). |