object.rex 192 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20


use arg uri

host = .rx3270~new("")

if host~connect(uri) <> 0 then
do
	say "Erro ao conectar em "||uri
	return -1
end

host~sleep(20)

host~disconnect()

return 0


::requires "rx3270.cls"