Natural - Définition

Introduction

Natural est un langage de programmation semi-compilé, édité par la société allemande Software AG.

Définition

Sa syntaxe est fortement inspirée de celle de Cobol : on y retrouve des instructions telles que move, perform, compute, ainsi que des principes tels que la redéfinition de données ou la possibilité de définir le scope d'une variable. Néanmoins, cette syntaxe reste assez simple et beaucoup moins verbeuse que Cobol :

• l'en-tête du programme est réduite à sa plus simple expression;
• il n'y a pas de caractère de fin de ligne;
• ...

L'intérêt d'un langage semi-compilé est sa portabilité sur différents systèmes (mainframe, Unix, Windows...) ; en effet il suffit de porter le "RunTime Natural" sur une plateforme pour pouvoir y exécuter des programmes Natural originellement créés sur une autre plateforme (c'est le même principe que celui de Java avec les portages des JVM.

Ce langage fut créé au départ pour permettre l'accès aux bases de données Adabas (du même éditeur). Il s'est rapidement enrichi pour pouvoir supporter des bases de données relationnelles comme DB2 ou non relationnelles comme DL1, VSAM. Il est surtout utilisé dans l'industrie et les sociétés de grande taille, car la base Adabas est supportée non seulement sur des plateformes comme Unix ou Windows mais surtout sur de gros systèmes autorisant une gestion d'I/O massive.

Les instructions d'accès au Système de gestion de base de données (SGBD) sont fonctionnelles (elles masquent les requêtes physiques et l'organisation des données) : chaque instruction d'accès à une table de la base se présente sous forme d'une boucle de lecture suivant une clé simple ou composée.

Ex: La lecture se présente sous la forme de 2 Mot-clefs.

READ Table (Accès à la table → Début boucle de lecture)

        instruction(s).... sur l'enregistrement        gestion de sortie de la boucle de lecture souvent à la discrétion du programmeur      

END-READ (Marqueur de fin de boucle)

Le langage dispose d'extension permettant également le codage des accès sous forme de requêtes SQL.

Exemple de Source Natural

      DEFINE DATA PARAMETER /* paragraphe de déclaration des paramètres du programme      1 PARAM1  (A001) /* alphanumérique      1 PARAM2 (N004) /* Numérique      LOCAL /* paragraphe de déclaration des variables du programme      1 CLE_COMPOSEE (A022)      1 REDEFINE  CLE_COMPOSEE /* redéfinition de la variable cle_composee        2 VAR1_1 (A001)        2 VAR1_2 (N020)      1 VAR3  (L)  /* booléen      1 VAR4  (D)  /* Date      1 VAR5  (N5) /* Numérique sur 5 positions      END-DEFINE   /* début de programme            ON ERROR /* paragraphe de gestion des erreurs         WRITE 'erreur N°' *ERROR-NR 'ligne ' *ERROR-LINE 'dans programme' *PROGRAM      END-ERROR            MOVE PARAM1 TO VAR1_1      MOVE PARAM2 TO VAR1_2            /* le paragraphe find .... end-find définit une boucle de lecture.       /* Tant que des enregistrements de la table satisfont aux critères      /* de recherche, on revient au début de la boucle pour trouver       /* l'enregistrement suivant ...      FIND TABLE WITH TABLE.CLE = CLE_COMPOSEE  /* boucle de recherche d'enregistrements        IF NO RECORD FOUND        WRITE 'aucun enregistrement trouve'        ESCAPE BOTTOM                           /* sortie de la boucle de lecture       END-NOREC             IF TABLE.CHAMP1 = 'toto'        ESCAPE TOP               /* passage à l'itération suivante                                  /* (pour éviter, par exemple, de traiter                                 /* certains enregistrements)       END-IF             PERFORM TRAITER_CHAQUE_RECORD_LU      END-FIND            DEFINE SUBROUTINE TRAITER_CHAQUE_RECORD_LU          WRITE TABLE.CHAMP1 TABLE.CHAMP2      END-SUBROUTINE            END  /* fin de programme