IApplication GetSession (Method)

Determine the number of active sessions and retrieve information about each of the sessions.

Function GetSessions(buffer As String, buf_size As Long) As Long

Parameters

No	Name	Type	Optional	Default	Description
1	buffer	String	No	-	Buffer to hold the session information On return from a successful call, the buffer will contain the following information for each active session: Byte 1: one character session ID Byte 2-9: long session ID. QWS3270 does not use a long session name so these bytes will always be 0 Byte 10: Session Type: H for Host; P for personal computer Bytes 11-12: Size of the screen expressed as a binary number (not ASCI).I
2	buf_size	Long	No	-	Buffer size. It must be defined as minimum 12*(number of active sessions) characters. It will contain the number of active 3270 screen sessions on return.
Return Code				Description
JGS_OK				Success
JGS_MEMORY				Not enough memory
JGS_PARAMETERERROR				Invalid buffer size
JGS_SYSERROR				The function failed due to a system error

Remarks

The return value of buf_size is set when the return code is JGS_OK or JGS_PARAMETERERROR. If you receive a return code of 2, use buf_size to recalculate the necessary value for the size of buffer (and the value for buf_size on the call).

Sample Code

Dim myString as String * (26 * 12 + 1)
Dim result as Long
Dim bufsize as Long
bufsize = 26 * 12 + 1
myString = ""
result = sess.GetSessions(myString, bufsize)