dim TRA_S2_MostFrequentRYOMYORMC, TRA_S2_M_IECC_counter
    TRA_S2_M_IECC_counter = 0

    'GET THE MOST FREQUENT RYO/MYO/RMC'
    for each cat in TRA_S2.Categories
        if cat * {_1,_2,_3} and not(SIS_S2[cat]._scale = null) then
            if TRA_S2_M_IECC_counter = 0 then
                TRA_S2_MostFrequentRYOMYORMC = clong(ctext(TRA_S2[cat]._scale.format("a").Replace("_", "")))
            else
                if clong(ctext(TRA_S2[cat]._scale.format("a").Replace("_", ""))) < MostFrequentRYOMYORMC  then
                    TRA_S2_MostFrequentRYOMYORMC = clong(ctext(TRA_S2[cat]._scale.format("a").Replace("_", "")))
                end if
            end if
            TRA_S2_M_IECC_counter = TRA_S2_M_IECC_counter + 1
        end if
    next
    'GET THE MOST FREQUENT RYO/MYO/RMC'


    'CHECK IF THE MOST FREQUENT RYO/MYO/RMC IS MORE FREQUENET/SAME/LESS THAN E-CIG'
    if TRA_S2_MostFrequentRYOMYORMC = clong(ctext(TRA_S2[{_4}]._scale.format("a").Replace("_", ""))) then
        TRA_S2_IECC.Ask()
    elseif TRA_S2_MostFrequentRYOMYORMC < clong(ctext(TRA_S2[{_4}]._scale.format("a").Replace("_", ""))) then
        TRA_S2_IECC = {_1}
    else
        TRA_S2_IECC = {_3}
    end if
    'CHECK IF THE MOST FREQUENT RYO/MYO/RMC IS MORE FREQUENET/SAME/LESS THAN E-CIG'

    if Iom.Info.IsTest or Iom.Info.IsDebug then
        TRA_S2_IECC.Show()
    end if