Prototype
subroutine EcsCheckIndicator( integer:Indicator, integer:IndicatorState )
Description
Inquires about the state of a particular indicator.
Parameters
Indicator |
Input |
An integer flag to determine the indicator to check. |
IndicatorState |
Output |
An integer that receive a code of the indicator state. |
Indicators
ECS_I_SA |
system available |
ECS_I_II |
input inhibited |
ECS_I_MW |
message waiting |
ECS_I_X |
the X indicator (3270 input inhibited) |
Indicator States
ECS_XUNKNOWN |
Cannot decipher the status line condition. |
ECS_XREADY |
No X present. |
ECS_XCLOCK |
Time is required to complete transaction. |
ECS_XSYSTEM |
System lock - program has disabled the keyboard. |
ECS_XMECHCK |
Machine check - mechanical malfunction. |
ECS_XCOMMCK |
Communication check - host/controller link. |
ECS_XPROGCK |
Program check - programming or config error. |
ECS_XWHAT |
Last input symbol not accepted. |
ECS_XNOFUN |
Requested function not available. |
ECS_XBADFUN |
User not authorized for requested function. |
ECS_XKEY |
Security key turned off. |
ECS_XNOPRT |
Printer not working/available. |
ECS_XPRTBSY |
Printer busy. |
ECS_XPRTVRB |
Printer very busy. |
ECS_XUNAUTH |
Operator unauthorized - Not your printer... |
ECS_XGOAWAY |
Go elsewhere - attempt to key in bogus place. |
ECS_XMORE |
More than - Too much data entered in field. |
ECS_XNUM |
Attempt to enter non-numeric data in num only. |
ECS_XWHTNUM |
What number - number out of range/invalid. |
ECS_XBADCRD |
Bad or damaged mag stripe on card. |
ECS_XNOSYM |
Symbol keyed not available. |
ECS_SAOFF |
System not available. |
ECS_SAON |
System is available. |
ECS_IIOFF |
No Input Inhibitor is present. |
ECS_IION |
Input Inhibitor is present. |
ECS_MWOFF |
No message waiting. |
ECS_MWON |
Message waiting. |
Return Value
ECS_E_NOTINIT |
Not initialized - command was ignored |
ECS_E_NOTCONN |
Not connected to an active session |
ECS_E_BADINDICATOR |
Indicator is unavailable for current session type |
ECS_E_ERRORFREE |
No errors were generated |
Example
###*******************************
### Action to check the indicator
###*******************************
action CheckIndicator is
copy ECS_I_X to Indicator_IV
call EcsCheckIndicator ( Indicator_IV, IndicatorState_IV )
copy errorlevel to ErrorLevel_IV
copy "EcsCheckIndicator" to Call_SV
if ( ErrorLevel_IV = ECS_E_ERRORFREE ) then
copy "The indicator is " IndicatorState_IV to Message_SV
action DisplayMessage
else
action DisplayError
end if
