A$CURRENT_USER

In an Application Server environment, the A$CURRENT_USER returns information about the logged user.

Syntax:

CALL "A$CURRENT_USER" USING ID                               userName                              userAddr                              userComp                              threadID                              prog

Parameters:

ID	PIC X(n)	Returns the user ID. A value of zero means that the user is administrator. A value of -1 means that no login has been made.
userName	PIC X(n)	Returns the login user name. If no login has been made, it’s set to operating system user name
userAddr	PIC X(n)	Returns the login IP address[*]
userComp	PIC X(n)	Returns the login computer name[*]
threadID	PIC 9(n)	Returns the thread ID
prog	PIC X(n)	Returns the name of the program launched by the client

[*] A computer may have multiple IPs and multiple alias name for the same IP too, so you might not receive the expected IP and name. Usually a safe method to get the desired information is to change the hosts configuration file (/etc/hosts on Linux/Unix, %SystemRoot%\System32\drivers\etc\hosts on Windows) appropriately.

Examples:

Example - Get current user information when running in thin-client mode

*> All parameters are to return information from the routine *> In working-storage define thread-id as pic 9(n), all others as pic x(n)   call "a$current-user" using usr-id                             usr-name                             usr-ip-addr                             usr-pc-name                             thread-id                             usr-program