x++ code to find current role of a user in Ax 2012

static void UserRoleAssigninfo1(Args _args)

{

    SecurityRole        role;

    SecurityUserRole    userRole;

    UserInfo            userInfo;

    ;

    select firstonly  role

    exists join userRole

    where role.RecId     == userRole.SecurityRole

        && userRole.User == curUserId();

    

    info(strFmt("%1  -  %2", role.Name,curUserId()));

}