Download CICS-WINDOWS

THE ACTIVE USER TABLE
The exact format and contents of the active user table entry are contained in the source module called
WNDOINT5, which is distributed on the installation tape.
In general, the active user table contains the following information:
1)
2)
3)
4)
5)
6)
7)
8)
9)
10)
11)
12)
13)
The real terminal ID and all pseudo IDs in use.
The aid byte of the toggle-forward key.
The aid byte of the toggle-backward key.
The aid byte of the window key.
The aid bytes of all direct session keys
The aid bytes of the window-switch keys.
The aid bytes of the scrolling keys.
The total number of sessions allocated to the terminal.
The current session number.
The number of windows allocated.
The current transaction in progress in each session.
The current program in progress in each session.
The cursor position of the last terminal input message.
[Note]: The Active User Table Entry is located above the 16M line; therefore, your program must be operating in 31-bit addressing mode to access it.
CODING THE ACTIVE USER TABLE ACCESS INTERFACE
There is a sample program in the source file of the installation tape called WNDOINT5. You may use this
routine to insert the necessary code in your program:
EXEC
CICS,LOAD,PROGRAM('WINDOWS'),
ENTRY(R15).
Get Windows entrypoint
R15,=H'32'
Back-up to entrypoint list
R15,((5-1)*4)(R15)
Load fifth entrypoint
R2,R13
Save current R13
R13,SAVEAREA
Point R13 to savearea
R1,TWATCTA
Load TCTTE address
R14,R15
Perform Interface 5
R13,R2
Restore R13
*
SH
L
LR
LA
L
BALR
LR
EXIT EQU
.
.
.
DFHEISTG
SAVEAREA
DS
18F
*
* Upon return, R1 contains the address of the active user table entry
*
* And R15 contains the following values ...
*
BYTE 1
- Binary zero
*
BYTE 2
- C'Y' if pseudo IDs are in use.
*
BYTE 3
- Binary value from 1 to 9 representing the number of virtual terminals in use.
*
BYTE 4
- Binary value from 1 to 9 representing the current session number.
© Copyright 1995-2004 UNICOM Systems, Inc. All Rights Reserved. GP50-0420-2 CICS-WINDOWS V4.2.0
319