ABAP

L'acronyme ABAP signifiant à l'origine Allgemeiner Berichtsaufbereitungsprozessor (processeur générique pour la préparation de rapport) et a par la suite été anglicisé en Advanced Business Application Programming[1].

ABAP est l'un des successeurs du Cobol et est apparu dans les années 1980 dans la vague des langages de quatrième génération (L4G). Il s'agit d'un dérivé du langage permettant de réaliser des sorties de données (appelées rapports) de l'application SAP R/2, sur lequel de nombreuses multinationales avaient bâti leur architecture d'application professionnelle. ABAP a par la suite été maintenu comme langage de référence pour les applications SAP R/3 qui sont apparus en 1992.

À l'origine, ce langage comprenait le concept de Base de données logique qui devait permettre à tout utilisateur de créer lui-même les rapports dont il avait besoin. Il s'est avéré en fait que développer des programmes avec ce langage ne pouvait être fait en pratique que par des professionnels disposant d'une solide expérience.

Le langage a été par la suite étendu pour englober un modèle de données orienté objets (ABAP Objects) à partir de sa version 4.5, pour être finalement intégré comme langage d'un produit plus général appelé NetWeaver. Ce dernier utilise aussi bien ABAP que Java.

C'est un langage interprété.

Le code source : il est écrit directement dans un composant de SAP appelé SAP Workbench et il sera stocké dans la base d'information de l'outil. Ce langage, de même que java, a besoin d'être compilé pour pouvoir être exécuté. Cependant, à la différence de java, avant chaque utilisation d'un programme, le processeur SAP vérifie qu'il possède la dernière version du programme. Si ce n'est pas le cas, ce dernier est recompilé à la volée.

Le dictionnaire de données (DDIC) : la base de données est masquée pour le programmeur. Il y accède donc au travers de clauses faisant partie du langage lui-même. De même, la gestion du modèle de données est réalisée au travers d'un composant qui créera ou modifiera lui-même les tables de données. Ce dictionnaire de données comprend :

• Des domaines représentant un concept élémentaire (par exemple un fournisseur, une référence article) ; chaque élément de donnée comprend au minimum un type de donnée et la spécification de son occupation mémoire.
• Des éléments de données. Chaque élément de donnée est construit à partir d'un domaine et correspond à une utilisation particulière de ce dernier pour stocker une information, ou pour afficher un champ. Chaque élément de donnée comprend quatre descriptions textuelles qui peuvent être traduites (de manière à rendre l'application utilisable par des locuteurs de différentes langues).
• Des structures et des tables de différents types permettant de stocker des informations, d'utiliser des types composites pour les transferts de données entre programmes et de stocker de l'information dans la base.

Un outil de transport. À chaque modification d'un programme, celui-ci doit être transporté de l'environnement dans lequel il est créé vers un environnement de test puis dans l'environnement de production (chacun de ces environnements dispose de jeux de données distincts, il peut exister plus de trois environnements dans un système d'information donné). Cette opération est réalisée par la mise en œuvre d'un ordre de transport.

La communication avec les bases de données se fait via des requêtes SQL. Dans les premières versions de SAP, elles sont très simplifiées mais augmentent en complexité dans les nouvelles versions notamment avec les dernières versions de SAP ECC (EhP7) et bien évidemment avec S/4HANA[2].

ABAP jusqu'à l'apparition de NetWeaver était la brique constituante des systèmes SAP R/3. Il permet de réaliser :

• Des rapports. ABAP a été conçu à l'origine pour cela et comprendre des clauses générant automatiquement des rapports. Un rapport est constitué en général d'un écran de sélection de données et d'une liste affichant le résultant. Les rapports peuvent aussi être générés par un utilisateur avec SAP Business Report ou par un utilisateur simplement averti avec SAP Query.

• Des transactions. Une transaction est constituée d'une succession d'écrans appelés Dynpro, chaînés entre eux par un programme contenant la logique de la transaction.

• Des fonctions. Il s'agit de sous-programmes contenant la description d'une fonctionnalité du système. Ces fonctions peuvent être internes et permettre ainsi une plus grande cohérence du système ou permettre la communication avec d'autres systèmes. Si les systèmes externes sont aussi des systèmes SAP R/3 on parlera de fonctions RFC (Remote Function Call) sinon la fonction sera généralement encapsulée et les appels pourront être réalisés à partir d'autres langages, on parlera alors de BAPI. Enfin, il existe d'autres variétés de fonctions et de protocole comme :
• tRFC: transactional RFC qui permet de réaliser de véritables transactions entre systèmes ;
• qRFC: queued RFC qui permet d'assurer la synchronisation d'appels en masse entre deux systèmes ; ce protocole permet ainsi d'assurer la consistance des données dans le module de datawarehouse BW.

• Des programmes de gestion d'IDOCs. Un Idoc est un document de format unique composé de segments qui, une fois rassemblés et exécutés permettent diverses opérations au sein du système (création de commandes client, de demandes d'achats, gestion de données du personnel…). L'avantage d'un Idoc est, que de par sa composition, il peut provenir de systèmes externes pour être reconstruit dans SAP et inversement.

ABAP a évolué pour intégrer la programmation objets. Tous les concepts de la programmation objets se retrouvent dans ABAP Objects. ABAP Objects constitue une extension du langage ABAP, avec lequel il est totalement compatible : ainsi il est possible qu'un programme comporte à la fois une partie procédurale et une partie orientée objets, car le déroulement procédural du programme peut à tout moment instancier une classe puis appeler les méthodes de l'objet qu'il vient de créer.

Le grand classique :

 REPORT Z_XX_TRANSACTION.
 *
 * -- Commentaire de ligne
 *
 PARAMETERS p_input TYPE c LENGTH 16 DEFAULT 'Hello World!'.
 
 *
 *-- Affichage du résultat :
 *
  WRITE: / 'L''entrée était : ', p_input.

 REPORT Z_XX_TRANSACTION.
 *
 * -- Déclaration de données
 *
 TABLES:
  tstc.                                                 "Tables des transactions
 
 * Tables internes pour l’exemple
 DATA : 
    "Transactions    
    gt_tstc TYPE TABLE OF tstc,
    gs_tstc TYPE tstc,
    "Descriptions de transactions
    gt_tstct TYPE TABLE OF tstct,
    gs_tstct TYPE tstct.
 *
 " -- Début de la déclaration de l'écran de sélection
 SELECT-OPTIONS s_tcode FOR tstc-tcode OBLIGATORY.
 *
 *
 *------------------
 START-OF-SELECTION.  " -- Début de l'extraction des données
 *------------------
  CLEAR: gt_tstc,
         gt_tstct.
  SELECT 
    FROM tstc
    FIELDS *
    WHERE tcode IN @s_tcode
    INTO TABLE @gt_tstc.
  IF sy-subrc IS INITIAL.                                " Si la sélection s'est bien passée
    SORT gt_tstc BY tcode.                               " On trie la table par nom de transaction (facultatif)
 *
    SELECT 
      FROM tstct
      FIELDS *
      FOR ALL ENTRIES IN @gt_tstc 
      WHERE tcode = @gt_tstc-tcode
        AND sprsl = @sy-langu
      INTO TABLE @gt_tstct.
    IF sy-subrc IS INITIAL.
      SORT gt_tstct BY tcode.                              " On trie la table par nom de transaction
                                                           " (obligatoire pour lecture dichotomique plus bas)
    ENDIF.
  ENDIF.
 *
 *
 *------------
 TOP-OF-PAGE.
 *------------
  "    -- Haut de page (sur chaque page)
  WRITE / 'Programme exemple : liste de transactions '.
  SKIP.                                                  "Saut de ligne
  ULINE.                                                 "Ligne continue horizontal
 *
 *                                                
 *------------
 END-OF-PAGE.
 *------------
  "    -- Bas de page (sur chaque page)
  ULINE.
 *
 *
 *-----------------
 END-OF-SELECTION.  "Traitement des données après sélection
 *-----------------
  LOOP AT gt_tstc INTO gs_tstc.                          "Boucle sur les transactions
    " Recherche de la description
    READ TABLE gt_tstct
      WITH KEY tcode = gs_tstc-tcode
      INTO gs_tstct
      BINARY SEARCH.                                     "Lecture dichotomique ⇒ meilleure performance
    IF NOT sy-subrc IS INITIAL. " Erreur
      WRITE : /                                          "Saut de ligne
              sy-vline,                                  "Barre verticale
              gs_tstc-tcode, sy-vline,                   "Code puis barre
              (25) '-- Pas de description --',           "Largeur du texte spécifiée
              sy-vline.                                  "Barre verticale
    ELSE.
      WRITE : /                                          "Saut de ligne
              sy-vline,                                  "Barre verticale
              gs_tstc-tcode, sy-vline,                   "Code puis barre
              (25) gs_tstct-ttext,                       "Description sur 25 caractères
              sy-vline.                                  "Barre verticale
    ENDIF.
  ENDLOOP.