Optimisation de performance ABAP Cloud : 10 Quick Wins (2025)

SELECT * FROM I_Customer
  INTO TABLE @DATA(lt_customers).

LOOP AT lt_customers INTO DATA(ls_customer)
  WHERE Country = 'DE'.
  " Traitement
ENDLOOP.

SELECT Customer, CustomerName, Country
  FROM I_Customer
  WHERE Country = 'DE"
  INTO TABLE @DATA(lt_customers).

LOOP AT lt_orders INTO DATA(ls_order).
  " ❌ SELECT par iteration!
  SELECT SINGLE CustomerName
    FROM I_Customer
    WHERE Customer = @ls_order-customer
    INTO @DATA(lv_name).
ENDLOOP.

" Un SELECT pour tous
SELECT Customer, CustomerName
  FROM I_Customer
  FOR ALL ENTRIES IN @lt_orders
  WHERE Customer = @lt_orders-customer
  INTO TABLE @DATA(lt_customers).

" Jointure en memoire
LOOP AT lt_orders ASSIGNING FIELD-SYMBOL(<order>).
  READ TABLE lt_customers INTO DATA(ls_cust)
    WITH KEY customer = <order>-customer.
  <order>-customer_name = ls_cust-customername.
ENDLOOP.

SELECT Customer, CustomerName FROM I_Customer
  INTO TABLE @DATA(lt_customers).

SELECT SalesOrder, Customer, NetValue FROM I_SalesOrder
  INTO TABLE @DATA(lt_orders).

" Join en ABAP ❌
LOOP AT lt_orders ASSIGNING <order>.
  READ TABLE lt_customers INTO DATA(ls_cust)
    WITH KEY customer = <order>-customer.
  " ...
ENDLOOP.

define view Z_CustomerOrders
  as select from I_Customer
  inner join I_SalesOrder
    on I_Customer.Customer = I_SalesOrder.Customer
{
  key I_Customer.Customer,
      I_Customer.CustomerName,
      I_SalesOrder.SalesOrder,
      I_SalesOrder.NetValue
}

SELECT * FROM Z_CustomerOrders
  INTO TABLE @DATA(lt_result).

LOOP AT lt_book_ids INTO DATA(lv_id).
  " ❌ MODIFY par ID
  MODIFY ENTITIES OF zi_book IN LOCAL MODE
    ENTITY Book
      UPDATE FIELDS ( Status )
      WITH VALUE #( ( BookId = lv_id Status = 'F' ) ).
ENDLOOP.

COMMIT ENTITIES.

" Un MODIFY pour tous
MODIFY ENTITIES OF zi_book IN LOCAL MODE
  ENTITY Book
    UPDATE FIELDS ( Status )
    WITH VALUE #( FOR lv_id IN lt_book_ids
      ( BookId = lv_id Status = 'F' ) )
  FAILED DATA(failed).

COMMIT ENTITIES.

SELECT * FROM I_Product
  INTO TABLE @DATA(lt_products).

SELECT Product, ProductName, Price
  FROM I_Product
  INTO TABLE @DATA(lt_products).

@AbapCatalog.buffering.status: #ACTIVE
@AbapCatalog.buffering.type: #FULL
@AbapCatalog.buffering.numberOfKeyFields: 1

define view Z_Country
  as select from T005
{
  key land1 as Country,
      landx as CountryName
}

DATA lt_active_customers TYPE TABLE OF ty_customer.

LOOP AT lt_customers INTO DATA(ls_customer)
  WHERE status = 'ACTIVE'.
  APPEND ls_customer TO lt_active_customers.
ENDLOOP.

DATA(lt_active) = FILTER #( lt_customers
  WHERE status = 'ACTIVE' ).

DATA lv_total TYPE p.

LOOP AT lt_orders INTO DATA(ls_order).
  lv_total = lv_total + ls_order-amount.
ENDLOOP.

DATA(lv_total) = REDUCE p( INIT sum = 0
  FOR ls_order IN lt_orders
  NEXT sum = sum + ls_order-amount ).

define view Z_CustomerWithOrders
  as select from I_Customer
  left outer join I_SalesOrder
    on I_Customer.Customer = I_SalesOrder.Customer
{
  I_Customer.Customer,
  I_Customer.CustomerName,
  I_SalesOrder.SalesOrder,
  I_SalesOrder.NetValue
}

define view Z_Customer
  as select from I_Customer
  association [0..*] to I_SalesOrder as _Orders
    on $projection.Customer = _Orders.Customer
{
  key Customer,
      CustomerName,

      _Orders  // Exposer seulement, pas de join!
}

" Seulement Customer
SELECT Customer, CustomerName
  FROM Z_Customer
  INTO TABLE @DATA(lt_customers).

" Avec Orders (seulement si necessaire!)
SELECT Customer, \_Orders-SalesOrder
  FROM Z_Customer
  INTO TABLE @DATA(lt_with_orders).

❌ SELECT * FROM mara
   Duration: 2.5s
   Rows: 500,000

✅ SELECT matnr FROM mara
   WHERE mtart = 'FERT"
   Duration: 0.01s
   Rows: 1,000