Job to list out all roles to current user in Dynamic AX

static void AlfasithListOutRoles2User(Args _args)
{
    SecurityRole        role;
    SecurityUserRole    userRole;
    boolean             added;
    UserInfo            userInfo;
    ;
    while select * from userRole
            where
                userRole.User == xUserInfo::find().id
    while select role where role.RecId == userRole.SecurityRole
    {
        info(strFmt(“%1 — %2”,Role.Name,Role.RecId));
    }
}

Regards,