Identify current user logon to user group for AX using X++

static void UserGroupIdForCurrentUser(Args _args)

{

    UserGroupList groups;

    UserInfo userInfo;

    SysCompanyUserInfo  sysCompanyUserInfo;

    ;

    select * from userInfo where userInfo.id == curuserid();

    info(strfmt("You have login by this %1 user id and alias name is %2",curuserid(),userInfo.networkAlias));

    info("You belong to  following user groups");

    select VendAccount from sysCompanyUserInfo where sysCompanyUserInfo.UserId == curuserid();

    while select groups where groups.userId == curuserid()

    {

        info(groups.groupId);

    }

}