isCOBOL Evolve : Appendices : Library Routines : A$USERINFO
A$USERINFO
In an Application Server environment, A$USERINFO sets and retrieves custom information shared between all connected clients.
For this routine to work correctly, the configuration property iscobol.as.multitasking must be either omitted or set to 0.
The custom information set by this routine is also shown in the Application Server administration panel. See Format 5 in Usage of isCOBOL Client for details.
Syntax:
 CALL "A$USERINFO" USING opCode
                         parameters
Parameters:
opCode
Function to be executed. Valid values, defined in iscobol.def, are:
 
Stores custom information for the current client.
Retrieves custom information for the current client or for a specific client.
Clears the custom information for the current client.
parameters
Parameters depend on the opcode.
Examples:
Example - Save, restore and clear custom user data
*> copy iscobol.def in the working-storage section
*> info-to-set is pic x(n) and contains any custom data
 
move "UserType=Operator1,UserLevel=A" to info-to-set
call "A$USERINFO" using auserinfo-set, info-to-set
...
*> Retrieve the custom info, user-info is pic x(n)
call "A$USERINFO" using auserinfo-get, user-info
...
*> Clear the current use custom info
call "A$USERINFO" using auserinfo-clear, user-info