WaitCursor

Suspends script execution until the host screen is ready for keyboard input and the cursor is at the specified location.

Parameters

TimeoutValue: The number of seconds to wait before returning with a session is busy error code.
RowValue: Specifies the cursor row position in the host screen.
ColumnValue: Specifies the cursor column position is the host screen.
ExtraWaitVal: The number of milliseconds to validate for a keyboard unlocked status.

Returns

0 for success; or a non-zero error code. Refer to Error codes for a complete listing of error code descriptions.

Remarks

The WaitCursor function can be used to verify that a specific host screen is being displayed before continuing with script execution.

If ExtraWaitVal is a value in the range of 1, 2, 3, … ,10 then script execution is suspended until the host machine sends the specified number of screen writes containing the keyboard restore/unlock command. (Not supported in VT or 6530.)

If ExtraWaitVal is greater than 10, script execution is suspended until the specified number of milliseconds have transpired.

Example

Set bzhao = CreateObject( "BZWhll.WhllObj" )
bzhao.Connect "A"
bzhao.WriteScreen "list", 19, 7
bzhao.SendKey "<Enter>"
ResultCode = bzhao.WaitCursor( 10, 4, 16, 3 )   'wait for 3 keyboard restores
If ( ResultCode != 0 ) Then
   bzhao.MsgBox "Timeout Error in Script!", 0
End If
bzhao.SendKey "x<Enter>"