→IDENTIFICATION DIVISION.
→PROGRAM-ID. StringEspaces.
→DATA DIVISION.
→WORKING-STORAGE SECTION.
→01 TEXTE-1 PIC X(20) VALUE "PACTA".
→01 TEXTE-2 PIC X(20) VALUE "COBOL !".
→01 TEXTE-3 PIC X(40).
→PROCEDURE DIVISION.
→    STRING TEXTE-1 TEXTE-2 INTO TEXTE-3 END-STRING.
→    DISPLAY "Résultat : " TEXTE-3.
→    STOP RUN.
  

📘 Explication de l'instruction COBOL

STRING TEXTE-1 TEXTE-2 INTO TEXTE-3 END-STRING est une instruction qui permet de coller le contenu de TEXTE-1 suivi de celui de TEXTE-2 dans la variable TEXTE-3.

Mais attention : cette instruction prend toute la taille définie des variables source, y compris les espaces qui suivent le texte visible. Ainsi, « PACTA » sera suivi de 15 espaces, puis « COBOL ! » sera ajouté, suivi de ses propres espaces, ce qui peut produire un résultat inattendu avec de nombreux blancs entre les deux mots.

Il est donc essentiel de bien comprendre la taille des variables et le rôle de DELIMITED BY pour contrôler ce comportement.

Cliquez sur « Suivant » pour exécuter chaque ligne et comprendre pourquoi il y a des espaces entre les mots.

Valeur en mémoire

Nom	Valeur
TEXTE-1	PACTA
TEXTE-2	COBOL !
TEXTE-3	-