Prototype
subroutine EcsWatchForCursorNotAt(integer:Row, integer:Column, string:WatchCommandString)
Description
Appends a command for watching the 3270/5250 screen until the cursor is located anywhere except a specified position in the specified watch command. The watch command may be used later in the processing with either the EcsWatch or the EcsWatchAndWait.
Parameters
Row |
Input |
The line on the terminal screen where to cursor must not be positioned. |
Column |
Input |
The column on the terminal screen where to cursor must not be positioned. |
WatchCommandString |
Output |
The string that will contain the instructions. |
Return Value
N/A
Example
###*************************************
### Actions to watch for cursor to move
###*************************************
action WatchCursorMove is
call EcsClearWatch ( EcsWatchCommandString )
call EcsGetCursorPosition ( Row_IV, Column_IV )
call EcsPressENTER( )
call EcsWatchForCursorNotAt ( Row_IV, Column_IV, EcsWatchCommandString )
call EcsWatchAndWait ( EcsTimeLimit, EcsWatchCommandString )
