Datagroup and switch command

You can try with this code:

when CLIENT_ACCEPTED { 
    switch [TCP::local_port] { 
        "10901" -
        "10902" { pool P_010901-10902 }
        default { reject } 
    } 
}

or use a data group containing pool name as value

ltm data-group internal DG_TCP { 
    records { 
        10901 {P_010901-10902} 
        10902 {P_010901-10902} 
        XXXX {P_XXXX} 
    } 
    type string 
}

when CLIENT_ACCEPTED {
    if {[set pool [class match -value [TCP::local_port] equals "DG_TCP"]] ne ""} {
        pool $pool
    } else {
        reject
    }
}