Prototype
subroutine EcsWatchForCursorAt(integer:Row, integer:Column, string:WatchCommandString)
Description
Appends a command for watching the 3270/5250 screen until the cursor is located at a specified row and column position. The watch string 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 be positioned. |
Column |
Input |
The column on the terminal screen where to cursor must be positioned. |
WatchCommandString |
Output |
The string that will contain the instructions. |
Return Value
N/A
Example
###*****************************************
### Actions to watch for cursor at position
###*****************************************
action WatchSize is
call EcsClearWatch ( EcsWatchCommandString )
copy text of Row_EF to Row_IV
copy text of Column_EF to Column_IV
call EcsWatchForCursorAt ( Row_IV, Column_IV, EcsWatchCommandString )
call EcsWatchAndWait ( EcsTimeLimit, EcsWatchCommandString )
