TRANSFER Reference Manual

GET-NEXT-SESSION
TISERV UOW Descriptions
2–316 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-NEXT-SESSION
(UOW Code 200)
GET-NEXT-SESSION returns names of correspondents with active sessions. This
UOW can only be issued by correspondents with system administrator privileges.
DEF get-next-session-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 200.
02 filler TYPE BINARY 32.
02 start-session-id.
03 dummy PIC X(18).
02 num-wanted TYPE BINARY 16 UNSIGNED.
02 num-returned TYPE BINARY 16 UNSIGNED.
END.
DEF get-next-session-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED VALUE 200.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 start-session-id.
03 dummy PIC X(18).
02 num-wanted TYPE BINARY 16 UNSIGNED.
02 num-returned TYPE BINARY 16 UNSIGNED VALUE 0.
02 session-data OCCURS 0 TO 15 TIMES DEPENDING ON
num-returned.
03 corr-name PIC X(80).
03 session-id.
04 dummy PIC X(18).
END.
HDR
is the UOW header. The UOW-CODE value is 200.
START-SESSION-ID
selects the session for which information is to be returned by TISERV. On the first
call, you should set START-SESSION-ID to 0 to read the information for the first
session, as recorded in the Session file. On successive calls, the START-SESSION-
ID returned in the response should be specified to retrieve the information for the
next session in the file. You can supply a session ID for a nonexistent session to
read the next record.
NUM-WANTED
is the number of sessions for which information is to be returned. In the response,
this field is unchanged.