!LISTU()

The !LISTU() subroutine returns the raw data used by the LISTU command.

Format

CALL !LISTU(dyn.array)

where

dyn.array

is the dynamic array returned by the subroutine.

The !LISTU() subroutine allows a developer to construct their own variant of LISTU, perhaps as a screen within an application.

The data returned in dyn.array is a dynamic array where each field is multivalued with a value for each active QM process in ascending user number order. The fields are:

1	User number.

2	Operating system level process id. This can be negative on some Windows platforms.

3	Process type (I = interactive, P = phantom, C = QMClient, N = QMNet).

4	IP address for a direct network connection to QM. Entry from the operating system command prompt will not set this.

5	Parent user id for a phantom process. This is zero if the process is not a phantom or if the parent process has logged out.

User name

7	Terminal device name (where relevant)

8	Login time as date * 86400 + time in the local time zone of the user executing the subroutine.

9	Account name

10	Login time as an epoch value

11	Transaction data. Three subvalues (id, start time as epoch value, command processor level). Where a process has nested transactions, only the top level is reported.

12	Process sub-type. Currently only applies to phantoms where this value will be IP for an interactive phantom, null for all other process types.

13	Port number for direct network connection, else null.

14	Child shell process pid.

15	Logout pending?

16	Connection pool name

Further fields or process types may be added in future releases.

User type counts can be retrieved in a QMBasic program using the SYSTEM() function with key 1056 (SYS$USER.COUNTS).

Example

CALL !LISTU(USERS)

NUM.USERS = DCOUNT(USERS<1>, @VM)

FOR I = 1 TO NUM.USERS

IF USERS<3,I> = 'I' THEN

DISPLAY FMT(USERS<1,I>, '3R') : ' ' : USERS<6,I>

END

NEXT I

The above program fragment displays a list of the user numbers and user login names of all interactive processes.