Cobol
Accueil
| 
Contact
| 
Livre d'or
|
.: Rubrique 1 :. |
|
|
|
|
|
.: Rubrique 2 :. |
|
|
|
|
|
.: Rubrique 3 :. |
|
|
|
|
|
.: Partenaires :. |
|
|
|
|
|
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
|
House of COBOL Guide de l'utilisateur du
SommairePremier exemple de programme Cobol simple Deuxième exemple de programme Cobol La déclaration des variables alphabétiques et alphanumériques La déclaration des variables numériques La déclaration des structures, des tables, et des drapeaux Le point d’entrée d’un programme Le point de sortie d’un programme Autres instructions de manipulation de données alphanumériques IntroductionLe Cobol est l’un des plus vieux langages informatique. Il est apparu peu de temps après l’arrivée des premiers gros ordinateurs, c’est-à-dire vers la fin des années 50. Le Cobol a été créé quelques années après le Fortran. Tous les deux sont des langages qui ont été qualifiés d’"universels", parce qu’ils peuvent tourner sur des machines différentes, ce qui était nouveau pour l’époque. Le Fortran est plutôt spécialisé dans le domaine du calcul, alors que le Cobol est plutôt apprécié pour la gestion des fichiers. Ces deux langages ont eu énormément de succès dans les grandes entreprises. De nos jours, ces deux langages sont démodés. Les évolutions du Cobol, définies par un comité de standardisation international, n’ont pas été aussi rapides ni aussi radicales que les évolutions de l’informatique. Par exemple, le Cobol standard ne gère pas les bases de données, ni les interfaces graphiques. Cependant, le Cobol continue à être utilisé dans quelques entreprises, et surtout il reste énormément de programme Cobol à maintenir.
Les mots réservésLe langage Cobol, comme tout autre langage informatique, est basé sur l’utilisation de mots réservés. Ces mots ont une signification très précise. Ils ne peuvent pas être utilisés n’importe comment, n’importe où, et ne peuvent pas être accompagnés de n’importe quels paramètres.
Format du fichier sourceLes lignes d’un programme Cobol doivent être écrites en format fixe ou en format libre. Format fixe: Autrefois, un fichier source Cobol se présentait sous la forme d’un paquet de cartes perforées. Sur chaque carte était dessinée une grille de 80 x 8 cases trouées ou pleines. Comme il faut huit cases par caractère, chaque carte perforée représentait donc un message de 80 caractères. De cet héritage provient la contrainte imposant qu’une ligne de code Cobol ne dépasse pas 80 caractères. Les six premières colonnes sont réservées. A l’époque des cartes perforées ces six colonnes servaient pour contenir un numéro de référence de la carte. De nos jours, ces six colonnes sont laissées à blanc. La septième colonne est utilisée pour certains caractères spéciaux. Par exemple: une étoile en septième colonne indique que la ligne est un commentaire; un tiret indique que la ligne continue la ligne précédente. La huitième colonne est baptisée colonne A. Elle contient toutes les étiquettes. Une étiquette est un point de repère dans un programme. Elle indique par exemple le début d’un paragraphe. La douzième colonne est baptisée colonne B. C’est à partir de la colonne B que doivent être écrites toutes les instructions ordinaires. Les concepteurs du Cobol préconisent d’indenter les lignes de quatre caractères en quatre caractères (rappel: une indentation est un décalage au début des lignes qui font parties d’un même bloc, afin que ceux-ci soient bien mis en évidence; par exemple cela permet de voir d’un coup d’oeil quelles instructions seront exécutée si une condition est vraie). Format libre: Depuis une vingtaine d’années, les compilateurs Cobol acceptent aussi le format libre, qui permet d’écrire ce que l’on veut, à peu près où l’on le souhaite. Beaucoup de programmeurs utilisent encore le format fixe, par habitude, et parce que cela permet de bien présenter les programmes.
Les divisionsUn programme Cobol est divisé en quatre "DIVISIONS" :
En théorie seule l’IDENTIFICATION DIVISION est obligatoire, mais dans la très grande majorité des cas, un programme Cobol a besoin des quatre divisions. La division nommée IDENTIFICATION donne des informations sur le programme. Elle renseigne sur le nom du programme, son auteur, sa date de création, la version du compilateur à utiliser. Habituellement, le programmeur y met un pavé de lignes de commentaire expliquant ce que fait le programme. La division nommée ENVIRONMENT donne des informations relatives à l’environnement matériel. Par exemple, c’est ici que sont décrites les principales caractéristiques des fichiers. La division nommée DATA contient la déclaration de toutes les données utilisées par le programme. La division nommée PROCEDURE contient les traitements. Une division s’étend jusqu’au début d'une autre division ou jusqu’à la fin du fichier. Les quatre divisions doivent obligatoirement apparaître dans l’ordre indiqué ci-dessus.
Les sectionsChaque division peut contenir zéro, une, ou plusieurs sections. Chaque section commence par son nom qui doit être écrit en colonne A (c-à-d à partir du 8ème caractère), suivi du mot réservé SECTION et d’un point. Par exemple:
Les trois premières divisions (IDENTIFICATION, ENVIRONMENT, et DATA) contiennent des sections dont les noms et le contenu sont normalisées. C’est le cas, par exemple, de la CONFIGURATION SECTION dans l’ENVIRONMENT DIVISION, et de la WORKING-STORAGE SECTION dans la DATA DIVISION. Par contre les noms et le contenu des sections de la PROCEDURE DIVISION sont totalement libres. Une section s’étend jusqu’au début d'une autre section, ou jusqu’au début d’une division, ou encore jusqu’à la fin du fichier.
Les paragraphesChaque section doit contenir un ou plusieurs paragraphes. Si une division ne possède pas de section, elle doit néanmoins contenir au moins un paragraphe. Un paragraphe est un ensemble de lignes. Chaque paragraphe commence par son nom, qui doit être écrit en colonne A, suivi par un point. Par exemple:
Certains paragraphes sont normalisés, c’est notamment le cas de ceux qui sont inclus dans les trois premières divisions. Dans la PROCEDURE DIVISION, les noms de paragraphes et leur contenu sont libres. Chaque paragraphe doit contenir au moins une ligne. Il est parfois intéressant de disposer d’un paragraphe vide, par exemple dans le cas d’une instruction "PERFORM paragraphe01 THRU paragraphe99" (voir plus loin les explications sur le mot réservé PERFORM). Pour éviter de ne rien mettre dans un tel paragraphe, il faut y placer l’instruction EXIT, qui ne fait absolument rien (je profite de l’occasion pour signaler tout de suite que cette instruction EXIT constitue un piège dont presque tout programmeur a été la victime un jour, car contrairement à ce que son nom pourrait faire croire, cette instruction EXIT ne provoque pas la sortie d’une boucle, ou d’un programme, elle n’est là que pour faire du remplissage). Un paragraphe se termine par le début d'un autre paragraphe, une nouvelle section, une nouvelle division, ou la fin du fichier.
Les lignes de commentaireIl est possible d’insérer des lignes de commentaire n’importe où dans un programme Cobol. Une ligne de commentaire est une ligne qui commence par une étoile placée en colonne 7. Le langage Cobol ne donne aucun moyen pour mettre un commentaire à la fin d’une ligne (sauf si le fichier est compilé avec certains compilateurs (assez rares)).
Le point à la fin d'une ligneDans les trois premières divisions, il faut toujours mettre un point pour indiquer la fin d’une ligne (sauf quelques exceptions). Dans la PROCEDURE DIVISION, avant 1974, la norme du langage Cobol exigeait que chaque instruction se terminât par un point. Cette règle comportait une exception pour les lignes de code suivant l’instruction IF, car ce point servait de délimiteur de fin au bloc d’instructions qui suit le IF. Donc, il ne fallait pas mettre de point à la fin des instructions se trouvant à l’intérieur d’un bloc sauf si cette instruction était la dernière du bloc. Lorsqu’il y avait plusieurs conditions IF imbriquées, le point final indiquait la fin de tous les IF précédents. Cela n’était pas très souple et constituait une source d’erreurs. Depuis 1974, sont apparus les scopes terminators, c’est-à-dire les mots réservés END-IF, END-READ, END-PERFORM, etc, qui indiquent sans ambiguïté l’endroit où se termine un bloc d’instructions pour un IF, un READ, un PERFORM, etc. La norme de 1974, adoptée par 99,9% des compilateurs actuels, reste compatible avec l’ancienne norme. Mais en plus, elle ne rend plus obligatoire les points dans la PROCEDURE DIVISION, sauf à la fin d’une étiquette, par exemple un nom de paragraphe ou de section, sauf avant une étiquette, afin que l’étiquette ne soit pas considérée comme étant l’un des paramètres de l’instruction précédente, et sauf à la fin du fichier. Personnellement, je ne mets des points qu’aux endroits obligatoires, et j’utilise les scope terminators.
Premier exemple de programme Cobol simpleRepérer les divisions, sections, et paragraphes. Repérer les lignes de commentaires. Observer où se trouvent les points. Essayer de comprendre le programme.
Ce programme comporte:
Deuxième exemple de programme Cobol
Ces exemples vous montrent, entre autres choses, que le langage Cobol est très verbeux, ce qui rend les programmes facilement lisibles. A l’origine, les programmes Cobol devaient être écrits en majuscules. Les compilateurs actuels acceptent les lettres minuscules, mais ils ne sont pas case sensitive, c’est-à-dire qu’ils ne font pas de différence entre les mots écrits en majuscules et ceux écrits en minuscules (certains compilateurs ont une option pour prendre en compte cette différence, mais je n’ai jamais vu personne l’utiliser). L’usage est resté d’écrire les programme Cobol tout en majuscules, sauf pour les commentaires et pour les chaînes littérales (les textes entre guillemets)
Les donnéesLe Cobol permet de traiter des nombres, des chaînes de caractères, des tables, des groupes de données (structures), des index de tableaux, des drapeaux, etc. Toutes les données, à l'exception des constantes, doivent être déclarées dans la DATA DIVISION. La déclaration d’une donnée se fait en écrivant une ligne, dans la WORKING-STORAGE SECTION de la DATA DIVISION, qui indique :
Le numéro d'ordre hiérarchique est :
L'identifiant d'une donnée (son nom) est une chaîne de caractères d'une longueur maximale de 30 caractères. Le premier caractère doit être alphabétique; le dernier caractère doit être alphabétique ou numérique; les caractères du milieu doivent alphabétiques, numériques, ou être un tiret de soulignement, ou encore un tiret "moins" (hyphen). L'emploi du tiret "moins" peut causer des problèmes, car il risque d’être interprété comme étant l’opérateur de soustraction. Il est interdit de choisir un mot réservé comme identifiant d’une donnée, sauf le mot FILLER, qui est utilisé quand l’identifiant n’a aucune importance (voir exemple ci-dessous). La "picture" renseigne sur le type de donnée, sa longueur, et son format d’affichage. La valeur initiale n’est pas obligatoire. Le compilateur l’inscrit directement dans le fichier exécutable. Personnellement, je préfère programmer l'initialisation des variables dans la PROCEDURE DIVISION. Exemple :
La déclaration des variables alphabétiques et alphanumériquesUne variable alphabétique est définie avec une picture comportant des caractères "A". Une variable alphanumérique est définie avec une picture comportant des caractères "X" (dans la pratique les variables alphabétiques sont très rares, et les variable alphanumériques très fréquentes). L'attribut JUSTIFIED RIGHT, ou en abrégé JUST, indique que les données qui seront copiées vers cette zone, devront être cadrées à droite, et non pas à gauche comme c'est le cas par défaut pour les données alphabétique ou alphanumériques. Le programmeur Cobol dispose de "constantes figuratives" :
La valeur initiale peut être spécifiée par "ALL motif", où le motif est une chaîne de caractères entre guillemets. Le motif est répété jusqu'à ce que la zone soit remplie. Exemple :
"PIC XXXXX" est équivalent à "PIC X(5)".
La déclaration des variables numériquesUne variable numérique est définie avec une "picture" qui est une combinaison des caractères "9", "S", et "V" :
Exemple :
La picture "9(3)" est équivalente à "999". Les nombres peuvent avoir 18 chiffres au plus. Le programmeur Cobol dispose de "constantes figuratives" :
Entre les mots réservés PIC et VALUE, le mot réservé optionnel USAGE indique au compilateur quel format interne prendra une donnée :
par exemple, le nombre 1234 est codé sur deux octets dont les valeurs en hexadécimal sont 4 et D2,"USAGE IS COMP-3", pour du "packed BCD" par exemple, le nombre 1234 est codé sur deux octets dont les valeurs en hexadécimal sont 12 et 34,"USAGE IS DISPLAY" pour une chaîne de caractères numériques ASCII. par exemple, le nombre 1234 est codé sur quatre octets dont les valeurs en hexadécimal sont 31, 32, 33, et 34. Par défaut, c’est-à-dire, si le mot réservé USAGE n’a pas été spécifié, le format est celui de USAGE IS DISPLAY. Personnellement, j’utilise le format DISPLAY pour les nombres que je dois stocker dans les fichiers et BINARY pour les autres nombres. La taille de la mémoire réservée pour un nombre "USAGE IS BINARY" est :
La taille de la mémoire réservée pour un nombre "USAGE IS COMP-3" est égale au nombre des chiffres plus un si le nombre est signé, le tout divisé par deux et arrondi au chiffre supérieur. Par exemple un nombre de trois chiffres occupe deux octets, un nombre signé de dix chiffres occupe 6 octets. La taille de la mémoire réservée pour un nombre "USAGE IS DISPLAY" est égale au nombre des chiffres plus un octet si le nombre est signé. Dans tous les cas, la virgule décimale est virtuelle.
La déclaration des structures, des tables, et des drapeauxLes structures sont définies grâces aux numéros d'ordre hiérarchiques. Exemple :
Il est obligatoire de commencer au niveau 1 (habituellement on écrit 01 au lieu de 1). Le niveau immédiatement inférieur peut avoir le numéro 2 ou n’importe quel autre numéro inférieur à 50. Habituellement, on choisit la séquence suivante: 01, 05, 10, 15, etc. Cobol autorise la déclaration d’une variable de niveau 1, sans niveau inférieur, mais ce n’est pas recommandé. Dans ce cas il vaut mieux utiliser un niveau 77. Les tables sont déclarées avec OCCURS x TIMES. Le mot réservé TIMES est facultatif. Cobol ne permet pas la déclaration, sur une seule ligne, d’un tableau à plusieurs dimensions, mais il sait gérer les sous-tables, ce qui revient au même. Exemple :
Le mot réservé REDEFINES est utilisé quand le programmeur veut disposer de plusieurs noms pour désigner une zone de mémoire. Le mot réservé RENAMES est utilisé à la fois pour renommer une zone, et pour la restructurer. Exemple :
Le cobol gère des conditions nommées. Il s’agit de drapeaux. (voir le chapitre sur l’instruction IF pour comprendre comment s’en servir) Exemple:
Les mots réservés THRU et THROUGH sont équivalents.
Le point d'entrée d'un programmeQuand un programme Cobol est lancé, c’est toujours la première ligne de code de la PROCEDURE DIVISION qui est exécuté en premier. Certains compilateurs autorisent un autre point de départ.
Le point de sortie d'un programmeUn programme Cobol se termine et rend la main au système d’exploitation lorsque l’instruction STOP RUN est rencontrée. Un programme Cobol se termine et rend la main au programme qui l’a appelé lorsque l’instruction EXIT PROGRAM ou l’instruction GOBACK est rencontrée. EXIT PROGRAM et GOBACK sont des synonymes, ils ont exactement la même fonction. Ils ont le même effet que STOP RUN, lorsque le programme Cobol a été appelé à partir du système d’exploitation. Mais lorsque le programme Cobol a été appelé par un autre programme Cobol, la main est rendu à ce programme, et non pas directement au système d’exploitation, comme cela aurait été le cas avec STOP RUN. L’instruction END PROGRAM est une pseudo-instruction destinée au compilateur, pour lui indiquer de ne pas compiler les lignes de code qui sont en dessous de END PROGRAM. Il est très rare d’avoir besoin de cette instruction, mais il faut la connaître pour ne pas la confondre avec EXIT PROGRAM. En résumé, STOP RUN provoque un arrêt brutal; EXIT PROGRAM ou GOBACK provoque la sortie d’un module; et END PROGRAM est un piège pour débutant.
La saisie des donnéesL’instruction ACCEPT demande à l’utilisateur d’entrer une donnée sur le port d’entrée standard. Autrefois le port d’entrée standard était un lecteur de cartes perforées. Puis, ce fut un clavier. La plupart des systèmes d’exploitation permettent de redéfinir le port d’entrée standard, par exemple, afin que les données proviennent d’un fichier plutôt que du clavier. Le Cobol offre des instructions bien plus commodes pour lire les données provenant des fichiers, aussi l’instruction ACCEPT n’est utilisé dans la pratique que pour des saisies au clavier. Derrière le mot réservé ACCEPT, il faut indiquer le nom de la variable dans laquelle sera stockée la donnée saisie par l’utilisateur. Par exemple: ACCEPT NOM1, ou ACCEPT NUMERO, ou ACCEPT OUI_OU_NON. L’instruction ACCEPT est assez limitée. Elle n’accepte que des caractères ASCII. Par exemple, elle ne reconnaît pas la pression sur des touches spéciales telles que les flèches, la touche Echap., les touches Fxx, les touches Ctrl, Alt, etc. La saisie se termine avec le carriage return (pression sur la touche "Entrée" ou "retour"), qui n’est pas inclus dans la variable de destination. Sur un système multi-utilisateurs, l’instruction ACCEPT ne concerne que le poste à partir duquel le programme a été lancé, qui est généralement la "console système", à laquelle les utilisateurs ordinaires n’ont pas accès. Dans la pratique, du fait de ces limitations, l’instruction ACCEPT est surtout utile aux étudiants en informatique et aux programmeurs qui sont en phase de test de leur programme. Le Cobol n’offre pas d’autre fonction de saisie de données au clavier. Pour remplacer l’instruction ACCEPT, il faut faire appel à des routines externes spécialisées, ne faisant pas partie des bibliothèques standard du Cobol. Par exemple, sur un gros systèmes IBM, on utilisera les routines de CICS; sur VAX, on se servira des routines de FMS; sur un PC sous DOS, on se servira des fonctions d’interruption du DOS; sur un PC sous Windows, on appellera les API de Windows, etc.
L'affichage des donnéesL’instruction DISPLAY affiche des données sur le port de sortie standard. Autrefois le port de sortie standard était une imprimante. Puis ce fut un écran. Derrière le mot réservé ACCEPT, il faut indiquer le nom de la ou des variables ou littéraux à afficher. Par exemple: DISPLAY "Je m’appelle ", MON_NOM, " et j’ai ", MON_AGE, " ans.". Les données doivent avoir été préalablement formatées. Par exemple, on traitera les nombres afin de supprimer les zéros à gauche, d’y insérer un séparateur de décimales, de les arrondir à une précision voulue, de cadrer à droite ou à gauche les chaînes de caractères, etc. L’instruction DISPLAY est assez limitée. L’affichage se fait sur la position courante de l’écran. Il n’y a pas d’instruction standard en Cobol pour gérer cette position courante, en dehors du rudimentaire paramètre WITH ADVANCING ou WITH NO ADVANCING. Il n’est pas possible de gérer la couleur des caractères, leur taille, leur police, etc. Sur un système multi-utilisateurs, l’instruction DISPLAY ne concerne que le poste à partir duquel le programme a été lancé, qui est généralement la "console système", à laquelle les utilisateurs ordinaires n’ont pas accès. Dans la pratique, du fait de ces limitations, l’instruction DISPLAY est surtout utile aux étudiants en informatique et aux programmeurs qui sont en phase de test de leur programme. Le Cobol n’offre pas d’autre fonction d’affichage de données sur l’écran. Pour remplacer l’instruction DISPLAY, il faut faire appel à des routines externes spécialisées, ne faisant pas partie des bibliothèques standard du Cobol. Par exemple, sur un gros systèmes IBM, on utilisera les routines de CICS; sur VAX, on se servira des routines de FMS; sur un PC sous DOS, on se servira des fonctions d’interruption du DOS; sur un PC sous Windows, on appellera les API de Windows, etc.
L'instruction MOVEMOVE est l’instruction la plus utilisée en Cobol. Elle copie une donnée vers une ou plusieurs variables. Sa syntaxe est: MOVE donnée_source TO zone_destination [...]. Exemple:
Dans d’autres langages que le Cobol, le "signe égal"(=) remplace l’instruction MOVE. Mais l’instruction MOVE réalise plus qu’une simple copie de données:
Quand une variable fait partie d’une structure, il est recommandé d’indiquer aussi le nom de cette structure pour améliorer la lisibilité des programmes, et pour éviter toute ambiguïté au cas où deux données auraient le même identifiant. Exemple:
Si DATE_YYYYMMDD faisait lui même partie d’un groupe, nommé par exemple MY_DATA, alors on aurait pu écrire MOVE DD OF DATE_DD_MM_YYYY TO DD OF DATE_YYYYMMDD OF MY_DATA. Dans le cas de l’exemple ci-dessus, les trois lignes de la PROCEDURE DIVISION peuvent être remplacées par une seule ligne en se servant d’une variante de l’instruction MOVE, comme ceci:
Pour faire encore plus court, utiliser l’abréviation CORR au lieu de CORRESPONDING. Le MOVE CORR ne marche qu’à condition que des champs aient exactement le même nom dans le bloc source et le bloc destination, et que ces champs aient le même niveau de hiérarchie. Un élément d’une table est référencé par son nom suivi d’un indice placé entre parenthèses. Le premier élément est l’élément 1. Il n’y a pas d’élément zéro. Exemple
Pour ne manipuler qu'une sous-chaîne, il faut utiliser la syntaxe suivante : variable(position:longueur). La position 1 correspond au premier caractère. Il n’y a pas de position 0. Exemple :
La deuxième ligne de l’exemple copie les trois caractères à partir du deuxième caractère du champ DATA1 vers DATA2. Notez que OF GROUP1 doit être placé avant la parenthèse. Pour initialiser un drapeau, il existe deux possibilités, soit l’instruction MOVE, soit l’instruction SET. Exemple:
Autres instructions de manipulation de données alphanumériquesL’instruction INITIALIZE remplit une variable avec des espaces ou avec des zéros selon que la zone est de type alphanumérique ou numérique. Pour une zone simple, INITIALIZE est équivalent à MOVE SPACES ou à MOVE ZEROES. Pour un bloc de données (structure), INITIALIZE met des espaces ou des zéros en fonction du type de chaque zone du bloc. Exemple :
L’instruction STRING met bout à bout plusieurs chaînes de caractères. L’instruction UNSTRING tronçonne une chaîne de caractères en plusieurs morceaux. L’instruction INSPECT compte et/ou remplace des caractères.
Opérations arithmétiquesL’instruction COMPUTE sert pour faire toutes sortes de calculs Sa syntaxe est: COMPUTE data1 = expression arithmétique. Exemple :
L'ordre de priorité des opérateurs est classique. En premier, sont traitées les sous-expressions arithmétiques entre parenthèses, puis les multiplications et les divisions, et enfin les additions et les soustractions. Il reste quatre autres instructionsarithmétiques : ADD, SUBTRACT, DIVIDE, et MULTIPLY, dont les syntaxes sont: ADD data1 TO data2. (Equivalent à COMPUTE data2 = data1 + data2) ou ADD data1 TO data2 GIVING DATA3. ou ADD CORRESPONDING struct1 TO struct2. SUBTRACT data1 FROM data2. (Equivalent à COMPUTE data2 = data2 - data1) ou SUBTRACT data1 FROM data2 GIVING DATA3. ou SUBTRACT CORRESPONDING struct1 FROM struct2. MULTIPLY data1 BY data2. (Equivalent à COMPUTE data2 = data1 * data2) ou MULTIPLY data1 BY data2 GIVING DATA3. DIVIDE data1 BY data2 GIVING data3. (Equivalent à COMPUTE data3 = data1 / data2) DIVIDE data1 BY data2 GIVING data3 REMAINDER data4. DIVIDE data1 INTO data2. (Equivalent à COMPUTE data2 = data2 / data1) DIVIDE data1 INTO data2 GIVING data3. DIVIDE data1 INTO data2 GIVING data3 REMAINDER data4. Personnellement je ne me sers que de COMPUTE, sauf pour incrémenter un compteur, auquel cas, je me sers de ADD. Le Cobol standard ne dispose pas d’autre fonction arithmétique. Par exemple, il n’y a pas de fonction trigonométrique, ni de fonction retournant un nombre aléatoire, mais de nombreux compilateurs les proposent.
Formatage des donnéesPour formater un nombre avant de l'afficher ou de l'imprimer, il faut utiliser une instruction MOVE vers un "masque d'édition", comportant :
Exemple :
Les français ont l’habitude de mettre une virgule au lieu d'un point pour séparer la partie décimale de la partie entière d'un nombre. Les concepteurs du Cobol y ont penser. Pour changer de convention, il suffit d’écrire "DECIMAL-POINT IS COMA." dans le paragraphe SPECIAL-NAMES de la CONFIGURATION SECTION de l’ENVIRONMENT DIVISION.
Les comparaisonsLes instructions IF, EVALUATE et PERFORM font des comparaisons (surtout IF et EVALUATE).
L'instruction IFLes deux formes de l'instruction IF sont :
Le mot réservé THEN est facultatif. L'ancienne syntaxe (qui est toujours en usage et comprise par les compilateurs modernes) exige un point au lieu d'un ou de plusieurs END-IF consécutifs. Personnellement, je n’utilise jamais l’ancienne syntaxe. Il faut la connaître, parce que la loi de la tartine beurrée veut que l’on vous donne souvent à maintenir un programme écrit avec la vieille syntaxe. Les comparaisons en Cobol sont très puissantes. Tout d'abord, voici quelques exemples de comparaisons semblables à celles d'autres langages (Basic, C, Pascal, etc).
Maintenant, voici des exemples de conditions propres au Cobol.
Ne sont-elles pas belles ces conditions abrégées?
L'instruction EVALUATEL’instruction EVALUATE s'utilise à la place de plusieurs IF. EVALUATE est une instruction très puissante (plus que le "switch" du C), comme le montrent les exemples suivants:
Le déroulement d'un programmeSix instructions modifient le déroulement séquentiel d'un programme : STOP RUN, GO TO, PERFORM, CALL, EXIT PROGRAM, et GOBACK. GO TO force le programme à sauter au paragraphe dont le nom est passé en paramètre du GO TO. Exemple :
Il est toujours possible d’éviter d’écrire un GO TO. Personnellement, je n’ai jamais écrit un seul GO TO de ma vie (sauf pour cette exemple, et quand j’étais très très jeune). Seules les mauvais programmeurs utilisent les GO TO. L’instruction PERFORM appelle un "module interne", c’est-à-dire localisé dans le fichier source en cours. Un "module interne" peut être :
Exemple :
PERFORM peut appeler un module plusieurs fois. Exemple :
L'appel du module peut dépendre d'une condition. Exemple :
L'option par défaut est "WITH TEST BEFORE". Une variable peut être initialisée avant le premier appel, et être incrémentée à chaque fois que le module est appelé. Exemple :
Voici un exemple plus complexe :
L’instruction CALL appelle un "module externe", c’est-à-dire, un module qui n'est pas localisé dans le fichier source actuel. Un "module externe" peut être :
Les paramètres, s'il y en a, sont passés après le mot réservé USING. Exemple :
Le nom du module doit être indiqué entre guillemets dans le programme. Il n'est pas possible de mettre le nom du module dans une variable. Le module appelé redonne la main au module appelant grâce à l'instruction EXIT PROGRAM, ou son synonyme GOBACK. Dans le module appelé, les paramètres doivent être énumérés sur la ligne commençant par PROCEDURE DIVISION. Ils doivent aussi être redéclarés dans la LINKAGE SECTION de la DATA DIVISION. Exemple :
Les compilateurs les plus récents autorisent la présence de plusieurs modules dans le même fichier source (les deux modules de l’exemple pourraient être l’un derrière l’autre dans le même fichier). Mais traditionnellement, ces deux modules doivent se trouver dans deux fichiers sources différents, et être compilés indépendamment l’un de l’autre. Il est très important de s'assurer que la liste des paramètres derrière l'instruction CALL, soit identique à la liste des paramètres derrière PROCEDURE DIVISION. Les noms des variables peuvent être différents dans les deux programmes. Si le nombre de paramètre est différent, si le type ou la taille des paramètres est différent, le compilateur ne le détectera pas. L’éditeur de liens devraient théoriquement le détecter, mais 99% ne le détecte pas. Un mauvais passage de paramètres provoquera des phénomènes étranges, lors de l'éxécution du programme.
La gestion des fichiersCobol, dans sa version de base, permet de gérer des fichiers simples et des fichiers indexés. Les enregistrements peuvent être lus de deux façons : séquentiellement, ou directement par une clé. Pour gérer un fichier, le programmeur doit :
Dans le paragraphe FILE-CONTROL de l'INPUT-OUTPUT SECTION de l'ENVIRONMENT DIVISION, les caractéristiques globales du fichier sont décrites par l'instruction SELECT :
La FILE SECTION de la DATA DIVISION contient des informations sur la structure des enregistrements. Exemple :
WORKING-STORAGE SECTION pour les fichiers Dans la WORKING-STORAGE SECTION de la DATA DIVISION, sont déclarés le "file status" avec une "PIC 99", et la clé d'un fichier relatif, qui est définie avec une picture numérique quelconque. Exemple :
Avant de traiter des enregistrements, il faut ouvrir le fichier par l'instruction OPEN. Il y a quatre modes d'ouverture différents :
Exemple :
L’instruction CLOSE ferme un fichier Quand à la fin d'un programme, le contrôle est redonné au système d’exploitation, tous les fichiers sont automatiquement fermés. Cependant, il est conseillé de fermer un fichier, dés que son traitement est terminé, parce que le système d’exploitation limite le nombre de fichier ouverts simultanément, et surtout parce que la fermeture écrit sur le disque toutes les données qui pourraient éventuellement se trouver encore dans des zones tampon (un ordre WRITE n'écrit pas toujours physiquement un enregistrement sur le disque; l’enregistrement est parfois envoyé vers une zone tampon, qui ne sera transférée sur le disque qu’à la fermeture du fichier). Exemple :
Les enregistrements sont lus de manière directe par l'instruction READ, quand ACCESS MODE IS RANDOM, ou ACCESS MODE IS DYNAMIC. Avant la lecture, il faut évidemment, renseigner la clé. Si l'organisation est relative, la clé correspond au numéro de l'enregistrement. Si l'organisation est indexée, la clé doit être la zone numérique ou alphanumérique, qui a été définie lors de la première création du fichier. Exemple :
Les enregistrements peuvent être lus séquentiellement par READ NEXT, ou simplement par READ, quand il n'y a pas de risque de confusion avec une lecture en accès direct, c'est-à-dire lorsque ORGANIZATION IS SEQUENTIAL et ACCESS MODE IS SEQUENTIAL. Exemple :
Avant une lecture séquentielle, l'instruction START positionne un pointeur virtuel sur le fichier. Exemple :
Il n'est pas possible de commencer avec une clé immédiatement inférieure à une valeur donnée. WRITE écrit un enregistrement à la fin d'un fichier quand ACCESS MODE IS SEQUENTIAL, ou bien WRITE écrit un enregistrement dont la clé n’est égale à aucune de celles des enregistrements déjà présents. Exemple :
REWRITE met à jour un enregistrement. REWRITE ne peut pas être utilisé si ACCESS MODE IS SEQUENTIAL. Exemple :
DELETE écrit des espaces dans un fichier simple, ou supprime un enregistrement dans un fichier indexé. Exemple : DELETE FILE1 RECORD Les DECLARATIVES sont des SECTIONs, qui seront appelées lorsque certains événements se produisent, comme par exemple des erreurs survenants lors d’un accès à un fichier. Les DECLARATIVES doivent être écrites au début de la PROCEDURE DIVISION. Avec les DECLARATIVES, le programmeur n'a pas besoin de tester le "file status" après chaque entrée/sortie sur un fichier. Personnellement, je préfère me passer des DECLARATIVES et tester le "file status", car je souhaite savoir précisément à quel endroit de mon programme est survenue une erreur, et avoir la possibilité de la traiter différemment selon cet endroit. Exemple :
La date et l'heureIl faut utiliser une variante de l'instruction ACCEPT pour récupérer la date et l'heure de l'ordinateur. Exemple :
Le triCobol comporte des routines pour trier les données. Elles sont conçues principalement pour trier des enregistrements de fichiers. Le programmeur doit donner le nom des fichiers en entrée et en sortie, le nom d'une ou plusieurs clés, et le nom d'un fichier temporaire dont aura besoin SORT pour son traitement. Exemple :
Le fichier temporaire doit être déclaré dans l'ENVIRONMENT DIVISON et dans la DATA DIVISION. Exemple :
Dans la DATA DIVISION, SD remplace FD. SORT peut aussi trier d'autres types de données. Alors, le programmeur doit indiquer le nom d'une section, à laquelle SORT fera appel pour alimenter le fichier temporaire, et le nom d'une autre section à laquelle SORT fera appel pour rendre les données triées, une par une. Exemple :
Dans la SECTION déclarée comme étant l'INPUT PROCEDURE, les données sont transférées à la routine de tri par l’instruction RELEASE. Sa syntaxe est quasiment la même que celle de WRITE. Exemple :
Dans la SECTION déclarée comme étant l'OUTPUT PROCEDURE, les données triées sont retirées du fichier temporaire, l'une après l'autre, par l’instruction RETURN, dont la syntaxe est quasiment la même que celle de READ. Exemple :
Il est aussi possible de mélanger plusieurs types de tri. Exemple :
DiversLe langage Cobol possède d'autres instructions. SEARCH sert à rechercher un élément dans une table. Je ne me suis jamais servi de cette instruction parce que je pense qu'écrire une petite boucle est une chose plus facile à faire que de retenir la syntaxe et le fonctionnement de SEARCH. Si j'ai besoin d'une recherche très rapide, je crée une table hachée, et celle-ci ne peut être gérée par SEARCH. Le Report Writer est un ensemble de fonctions apparues dans les spécifications ANSI 1974 du Cobol. Le Report Writer est sensé faciliter la programmation des éditions. J’estime qu’environ 10 pour cent des programmes d’édition font appel aux fonctions du Report Writer. Personnellement, je trouve que le "Report Writer" n'est pas pratique. Je ne l'aime pas, parce qu’il est complexe, et parce qu'il est souvent impossible de faire de la programmation modulaire structurée en l'utilisant. Cela dit, la plupart des autres outils de génération d’état ont les mêmes défauts.
|
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
