Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Reduce error in screen copy due common asynchronous host connection using WaitHostQuiet(0) or other

Status
Not open for further replies.

VictorRavagnani

IS-IT--Management
Oct 7, 2015
12
BR
Good day,

I'm trying to copy data from the screen (with Attachmate Extra 6.5) from a Session as fast as possible to avoid Server capacity overload using the following:

Code:
Myscreen.SendKeys ("<Enter>")
Myscreen.WaitHostQuiet (0) 'used as time marker to xServerBusy
Myscreen.WaitForCursor 1, 30

Problem is that at least 30 records were missing from copy to copy due to common asynchronously host connection.

Don't like to think that have to go back and use WaitHostQuiet("whatever amount of time")

Any solutions to mitigate/diminish this asynchronous effect?

Thank you gentleman!
 
Hey remy988, thank you for the informed thread. Seems to work fine.

If you use this method, do you change the position of the cursor during the screen transactions?

i.e.:

Code:
...

sess0.moveto 24,80
do until sess0.waitforcursor(1,30)
[indent]do events[/indent]
loop

...
 
I'd use MoveRelative to move the cursor off the screen rest coordinates.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Tks SkipVought...it worked really well and fast as possible without copy errors. Was wondering if it's possible to measure the system waiting time and send it to a var/string

did:
Code:
sess0.moveto 24,80
sess0.WaitHostQuiet(0)
do until sess0.waitforcursor(1,30)
[indent][/indent]do events
loop
 
I don't know if Extra VB has the Timer function. You might check VB HELP.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top