TestForKbUnlocked (Method)

Function TestForKbUnlocked As Long

Return Code	Description
JGS_OK	Keyboard is unlocked and ready for input
JGS_NOTCONNECTED	Your application is not connected to a session
JGS_PSBUSY	Session is in X-Clock or X-System mode
JGS_INHIBITED	The keyboard is locked
JGS_SYSERROR	The function failed due to a system error

Sample Code

Dim result as Long
result = sess.TestForKbUnlocked
If result = JGS_OK then
...
Else
...
End If

QWS3270 Documentation