« COBOL/Opérations sur les chaînes » : différence entre les versions

IDENTIFIchatIONIDENTIFICATION DIVISION.

== ConchaténationConcaténation de chaînes de caractères ==

Nous pouvons conchaténerconcaténer plusieurs chaînes de caractères, c'est-à-dire les mettre "bout-à-bout" à l'aide de l'instruction <code>STRING</code> qui a cette forme :

Entre les mots-clés <code>STRING</code> et <code>INTO</code> figure une liste de chaînes de caractères, ce sont ces chaînes qui seront conchaténéesconcaténées. Pour chacune d'elles, vous pouvez préciser la clause <code>DELIMITED</code> dans laquelle vous indiquez la chaîne que vous utiliserez pour délimiter cette chaîne (ici c).

Après <code>INTO</code> figure l'identifichateuridentificateur de la chaîne dans laquelle sera stocké le résultat de la conchaténationconcaténation (ici z). La clause <code>POINTER</code>, optionnelle, permet de stocker dans un compteur (ici k) le nombre de caractères conchaténésconcaténés (la conchaténationconcaténation débute à la position de ce pointeur).

Voici un programme d'exemple dans lequel 3 chaînes (correspondant à un jour, un mois et une année) vont être conchaténéesconcaténées pour n'en former qu'une seule (une date) :

000001 IDENTIFIchatIONIDENTIFICATION DIVISION.

000002 PROGRAM-ID. conchatconcat.

000016 END PROGRAM conchatconcat.

000001 IDENTIFIchatIONIDENTIFICATION DIVISION.