runappsrv3.p
| 1 |
def var hs as handle. |
|---|---|
| 2 |
def temp-table tt1 field f1 as progress.lang.object. |
| 3 |
|
| 4 |
create server hs. |
| 5 |
message hs:connect("-AppService app_server -S 21200 -H localhost -sessionModel Session-free -DirectConnect").
|
| 6 |
|
| 7 |
def var v1 as progress.lang.object. |
| 8 |
|
| 9 |
run ootest.p on server hs (output table tt1, output v1). |
| 10 |
|
| 11 |
message v1. |
| 12 |
|
| 13 |
message hs:disconnect(). |
| 14 |
|
| 15 |
for each tt1: |
| 16 |
def var l as progress.lang.object. |
| 17 |
l = tt1.f1. |
| 18 |
message l. |
| 19 |
end. |
| 20 |
|
| 21 |
def var b1 as oo.barser. |
| 22 |
b1 = cast(v1, oo.barser). |
| 23 |
b1:printData(). |