def var hs as handle.
def temp-table tt1 field f1 as progress.lang.object.

create server hs.
message hs:connect("-AppService app_server -S 21200 -H localhost -sessionModel Session-free -DirectConnect").

def var v1 as progress.lang.object.

run ootest.p on server hs (output table tt1, output v1).

message v1.

message hs:disconnect().

for each tt1:
   def var l as progress.lang.object.
   l = tt1.f1.
   message l.
end.

def var b1 as oo.barser.
b1 = cast(v1, oo.barser).
b1:printData().