define temp-table ttCustomer   no-undo
      field name    as character
      field city    as character
      field country as character
      field orders  as integer
      field amount  as decimal
      index idx is primary amount descending orders descending name.

 define input parameter salesRepCode as character no-undo.

 define variable orders       as integer   no-undo.
 define variable amount       as decimal   no-undo.
      
define buffer Customer  for Customer.
define buffer Order     for Order.
define buffer OrderLine for OrderLine.
    
for each Customer no-lock
    where Customer.SalesRep eq salesRepCode:
    for each Order no-lock
        where Order.CustNum eq Customer.CustNum:
        orders = orders + 1.
        for each OrderLine no-lock 
            where OrderLine.Ordernum eq Order.Ordernum:
            amount = amount + OrderLine.Price.
        end.
    end.
    create ttCustomer.
    buffer-copy Customer to ttCustomer
    assign 
        ttCustomer.orders  = orders
        ttCustomer.amount  = amount
        orders             = 0
        amount             = 0.
end.

for each ttCustomer
    by amount descending:
    orders = orders + 1.
    if orders gt 10 then
    delete ttCustomer.         
end.