object.rex 483 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 

use arg uri

host = .rx3270~new("")
host~ScreenTrace(1)

if host~connect(uri,1) <> 0 then
do
	say "Error connecting to "||uri
	return -1
end

if host~WaitForReady(60) <> 0 then
do
	say "Timeout waiting for terminal ready"
end

say "Text(2,2,23)=["||host~GetTextAt(2,2,23)||"]"
say "Text(3,2,27)=["||host~GetTextAt(3,2,27)||"]"

host~enter()
if host~WaitForReady(60) <> 0 then
do
	say "Timeout waiting for terminal ready"
end


host~disconnect()

return 0


::requires "rx3270.cls"