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.
Note - It’s not possible to share information with other connected clients if the current thin client session is running in a separate task due to the iscobol.as.multitasking setting.
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