ABAP Cloud vs ABAP classique : La comparaison complete 2025

DATA lv_name TYPE string.
DATA lv_count TYPE i.
lv_name = 'Max Mustermann'.
lv_count = 42.

DATA lt_customers TYPE TABLE OF ty_customer.
DATA ls_customer TYPE ty_customer.

" Déclaration inline préférée
DATA(lv_name) = 'Max Mustermann'.
DATA(lv_count) = 42.

DATA(lt_customers) = VALUE ty_customer_table(
  ( id = 1 name = 'Max' )
  ( id = 2 name = 'Anna' )
).

DATA lv_full_name TYPE string.
CONCATENATE lv_first_name lv_last_name
  INTO lv_full_name
  SEPARATED BY space.

" Ou
CONCATENATE 'Bonjour ' lv_name '!' INTO lv_greeting.

" String Templates
DATA(lv_full_name) = |{ lv_first_name } { lv_last_name }|.
DATA(lv_greeting) = |Bonjour { lv_name }!|.

" Avec formatage
DATA(lv_price) = |Prix: { lv_amount CURRENCY = lv_currency }|.

DATA ls_customer TYPE ty_customer.

READ TABLE lt_customers INTO ls_customer
  WITH KEY id = lv_id.

IF sy-subrc = 0.
  " Client trouvé
  WRITE: ls_customer-name.
ENDIF.

" Modifier une ligne
ls_customer-name = 'Nouveau nom'.
MODIFY TABLE lt_customers FROM ls_customer.

" Expression de table
TRY.
    DATA(ls_customer) = lt_customers[ id = lv_id ].
    " Client trouvé
    cl_demo_output=>display( ls_customer-name ).

    " Modifier directement une ligne
    lt_customers[ id = lv_id ]-name = 'Nouveau nom'.

  CATCH cx_sy_itab_line_not_found.
    " Non trouvé
ENDTRY.

" Ou : Avec OPTIONAL (pas d'exception)
DATA(ls_customer) = VALUE #( lt_customers[ id = lv_id ] OPTIONAL ).

IF lv_status = 'A'.
  lv_message = 'Actif'.
ELSEIF lv_status = 'I'.
  lv_message = 'Inactif'.
ELSE.
  lv_message = 'Inconnu'.
ENDIF.

CASE lv_type.
  WHEN 'A'.
    lv_result = 'Type A'.
  WHEN 'B'.
    lv_result = 'Type B'.
  WHEN OTHERS.
    lv_result = 'Autre type'.
ENDCASE.

" Expression COND (IF inline)
DATA(lv_message) = COND string(
  WHEN lv_status = 'A' THEN 'Actif"
  WHEN lv_status = 'I' THEN 'Inactif"
  ELSE 'Inconnu"
).

" Expression SWITCH (CASE inline)
DATA(lv_result) = SWITCH string( lv_type
  WHEN 'A' THEN 'Type A"
  WHEN 'B' THEN 'Type B"
  ELSE 'Autre type"
).

DATA lv_total TYPE i VALUE 0.
LOOP AT lt_orders INTO DATA(ls_order).
  lv_total = lv_total + ls_order-amount.
ENDLOOP.

" Extraire des noms
DATA lt_names TYPE TABLE OF string.
DATA ls_name TYPE string.
LOOP AT lt_customers INTO DATA(ls_customer).
  ls_name = ls_customer-name.
  APPEND ls_name TO lt_names.
ENDLOOP.

" REDUCE (pour les agrégations)
DATA(lv_total) = REDUCE i( INIT sum = 0
  FOR ls_order IN lt_orders
  NEXT sum = sum + ls_order-amount ).

" Expression FOR (pour les transformations)
DATA(lt_names) = VALUE string_table(
  FOR ls_customer IN lt_customers
  ( ls_customer-name )
).

" Avec filtre
DATA(lt_active_names) = VALUE string_table(
  FOR ls_cust IN lt_customers
  WHERE ( status = 'ACTIVE' )
  ( ls_cust-name )
).

" SELECT * non recommandé mais autorisé
SELECT * FROM mara
  INTO TABLE @DATA(lt_materials)
  WHERE mtart = 'FERT'.

" Sans @-Escaping (ancienne syntaxe)
SELECT matnr maktx FROM mara
  INTO TABLE lt_materials
  WHERE mtart = 'FERT'.

" SELECT * INTERDIT dans ABAP Cloud
" Uniquement CDS Views Released + Champs explicites
SELECT Product, ProductDescription
  FROM I_Product
  INTO TABLE @DATA(lt_products)
  WHERE ProductType = 'FERT'.

" @-Escaping est OBLIGATOIRE

" Autorisé en classique
FORM calculate_total USING pv_amount TYPE p
                     CHANGING pv_total TYPE p.
  pv_total = pv_amount * '1.19'.
ENDFORM.

PERFORM calculate_total USING lv_amount
                        CHANGING lv_total.

" FORM/PERFORM INTERDIT
" Uniquement classes et méthodes

CLASS lcl_calculator DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS calculate_total
      IMPORTING iv_amount       TYPE p
      RETURNING VALUE(rv_total) TYPE p.
ENDCLASS.

CLASS lcl_calculator IMPLEMENTATION.
  METHOD calculate_total.
    rv_total = iv_amount * '1.19'.
  ENDMETHOD.
ENDCLASS.

DATA(lv_total) = lcl_calculator=>calculate_total( lv_amount ).

" Écran 100 avec MODULE
CALL SCREEN 100.

MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MAIN'.
  SET TITLEBAR 'TITLE'.
ENDMODULE.

MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'SAVE'.
      " Sauvegarder
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.

" Pas de code UI nécessaire ! Généré automatiquement à partir des annotations

" Service Binding
@EndUserText.label: 'Book Service"
define service ZUI_BOOK_O4 {
  expose ZC_Book as Book;
}

" Metadata Extension (mise en page UI)
@UI.lineItem: [{ position: 10 }]
@UI.identification: [{ position: 10 }]
BookId;

SELECT matnr maktx FROM mara
  INTO TABLE @DATA(lt_materials)
  WHERE mtart = 'FERT'.

CALL FUNCTION 'BAPI_MATERIAL_GET_DETAIL"
  EXPORTING
    material = lv_matnr
  IMPORTING
    material_general_data = ls_material.

" CDS View Released
SELECT Product, ProductDescription
  FROM I_Product
  INTO TABLE @DATA(lt_products).

" RAP/EML au lieu de BAPI
READ ENTITIES OF I_Product
  ENTITY Product
    ALL FIELDS
    WITH VALUE #( ( Product = lv_product_id ) )
  RESULT DATA(lt_result).

managed implementation in class zbp_i_book unique;
strict ( 2 );

define behavior for ZI_BOOK alias Book
persistent table zbook_tab
{
  create;
  update;
  delete;

  field ( readonly ) BookId;
  field ( numbering : managed ) BookId;

  validation validateIsbn on save { field Isbn; }
  action markAsRead result [1] $self;
}

LOOP AT lt_customers INTO DATA(ls_customer).
  " SELECT dans une boucle - très lent !
  SELECT SINGLE * FROM kna1
    WHERE kunnr = ls_customer-id
    INTO @DATA(ls_detail).
ENDLOOP.

" Un SELECT pour tous les IDs
SELECT FROM I_Customer
  FIELDS Customer, CustomerName
  FOR ALL ENTRIES IN @lt_customers
  WHERE Customer = @lt_customers-id
  INTO TABLE @DATA(lt_details).

CLASS ltc_test DEFINITION FOR TESTING.
  PRIVATE SECTION.
    METHODS test_calculation FOR TESTING.
ENDCLASS.

CLASS ltc_test IMPLEMENTATION.
  METHOD test_calculation.
    DATA(lv_result) = zcl_calculator=>calculate( 10 ).
    cl_abap_unit_assert=>assert_equals(
      act = lv_result
      exp = 12 ).
  ENDMETHOD.
ENDCLASS.

CLASS ltc_test DEFINITION FOR TESTING.
  PRIVATE SECTION.
    CLASS-DATA environment TYPE REF TO if_cds_test_environment.

    CLASS-METHODS class_setup.
    METHODS test_create_book FOR TESTING.
ENDCLASS.

CLASS ltc_test IMPLEMENTATION.
  METHOD class_setup.
    environment = cl_cds_test_environment=>create_for_multiple_cds(
      i_for_entities = VALUE #( ( i_for_entity = 'ZI_BOOK' ) )
    ).
  ENDMETHOD.

  METHOD test_create_book.
    MODIFY ENTITIES OF zi_book
      ENTITY Book CREATE FROM VALUE #( ( %cid = 'B1' Title = 'Test' ) ).
    " Assertions de test
  ENDMETHOD.
ENDCLASS.

# Azure DevOps / GitHub Actions
- name: Run ABAP Unit Tests
  run: abap test --package ZBOOK

- name: Deploy to QAS
  run: abap deploy --target QAS

- name: Run Integration Tests
  run: abap integration-test

ABAP classique
    ↓
Moderniser (ABAP Cleaner, nouvelle syntaxe)
    ↓
Identifier les APIs Released
    ↓
Nouveau développement conforme ABAP Cloud
    ↓
Migration progressive
    ↓
ABAP Cloud