Prototype
subroutine EcsWatchForStringNotAt(integer:Row, integer:Column, string:WatchString, string:WatchCommandString)
Description
Appends a command for watching the 3270/5250 screen until any string other than a specified string appears at a specified row and column position. The watch command may be used later in the processing with either the EcsWatch or the EcsWatchAndWait.
Parameters
Row |
Input |
The line on the screen where the specified text must not appear. |
Column |
Input |
The column within the specified line that the text must not be present. |
WatchString |
Input |
The text not to be present, which cannot contain commas and only the first 24 characters will be checked. |
WatchCommandString |
Output |
The string that will contain the instructions. As this command cannot be performed first, the WatchCommandString must contain a command prior to calling this routine. |
Return Value
ECS_E_WATCHSTRING |
Empty WatchString |
Example
###*******************************************
### Actions to watch for a string not present
###*******************************************
action WatchForNotString is
call EcsClearWatch ( EcsWatchCommandString )
copy value of SettleTime_SB to SettleTime_IV
call EcsWatchForIIOff ( SettleTime_IV, EcsWatchCommandString )
copy text of Find_EF to String_SV
copy value of Row_SB to Row_IV
copy value of Column_SB to Column_IV
call EcsWatchForStringNotAt ( Row_IV, Column_IV, String_SV, EcsWatchCommandString )
if (errorlevel != ECS_E_WATCHSTRING) then
call EcsWatchAndWait ( EcsTimeLimit, EcsWatchCommandString )
end if
