GetUsergroup Function

Action

Retrieves the name of the user group to which the current virtual user belongs.

Include file

Kernel.bdh

Syntax

GetUsergroup(): string;

Return value

The name of the user group.

Example

dcluser
  user
    TestUser
  transactions
    TGetUsergroup : 1;
  dcltrans

  transaction TGetUsergroup
  var
    sUsergroup: string;
  begin
    sUsergroup := GetUsergroup();
    write("user group = "); write(sUsergroup); writeln;
  end TGetUsergroup;

Output

user group = TestUser