Prototype
subroutine EcsEmulate()
Description
Activates the 3270 Emulator window. Returns when you minimize the 3270 Emulator window.
Parameters
NA
Return Value
ECS_E_NOTINIT |
Not initialized - command was ignored |
ECS_E_NOTCONN |
Not connected to an active session |
ECS_E_NOTAVAIL |
Action is not available in this configuration |
ECS_E_ERRORFREE |
No errors were generated |
Example
###********************************************************
### Action to wait for the emulator window to be minimized
###********************************************************
action Emulate is
call EcsEmulate ( )
copy errorlevel to ErrorLevel_IV
copy "EcsEmulate" to Call_SV
copy "Emulate was successful" to Message_SV
if ( ErrorLevel_IV = ECS_E_ERRORFREE ) then
action DisplayMessage
else
action DisplayError
end if
make EmulateAndWatch_DB invisible
make EmulateAndWatch_DB temporary