Testando mais funções rexx

perry.werneck@gmail.com
1 parent 589f599a
Showing 1 changed file with 4 additions and 0 deletions Show diff stats
src/plugins/rx3270/sample/remote.rex
@@ -14,6 +14,10 @@ say &quot;Wait for ready is &quot;||host~WaitForReady(60)
  
 say "Text[3,2,27]="||host~GetTextAt(3,2,27)
  
+say "ENTER exits with rc="||host~enter()
+
+say "Wait for ready is "||host~WaitForReady(60)
+
 return 0
  
 ::requires "rx3270.cls"
...	...	@@ -14,6 +14,10 @@ say "Wait for ready is "\|\|host~WaitForReady(60)
14	14
15	15	say "Text[3,2,27]="\|\|host~GetTextAt(3,2,27)
16	16
	17	+say "ENTER exits with rc="\|\|host~enter()
	18	+
	19	+say "Wait for ready is "\|\|host~WaitForReady(60)
	20	+
17	21	return 0
18	22
19	23	::requires "rx3270.cls"
...	...