IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-MOVE-17.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-PRENOM PIC X(15) VALUE SPACES.
01 WS-COPIE PIC X(15) VALUE SPACES.
PROCEDURE DIVISION.
DISPLAY "Entrez un prenom : "
ACCEPT WS-PRENOM
MOVE WS-PRENOM TO WS-COPIE
DISPLAY "Saisie : " WS-PRENOM
DISPLAY "Copie : " WS-COPIE
STOP RUN.
Lecture simple
MOVE WS-PRENOM TO WS-COPIE signifie : “prendre la valeur de WS-PRENOM (source) et la mettre dans WS-COPIE (destination)”. La source ne change pas : on copie, on ne “déplace” pas au sens physique.
Votre micro-exercice
Faites ces 3 modifications :
- Ajoutez une variable WS-NOM et demandez-la aussi à l’utilisateur.
- Construisez une copie complète dans une nouvelle variable WS-NOM-COMPLET (ex : “NOM PRENOM”).
- Affichez la version complète avec un libellé clair.
Erreur fréquente à éviter
Inverser source et destination. Si vous écrivez MOVE WS-COPIE TO WS-PRENOM, vous écrasez la saisie avec une valeur vide, et vous pensez que ACCEPT “n’a pas marché”.
Autre piège : les tailles différentes. Si vous copiez un champ plus long vers un champ plus court, vous coupez des caractères. Pour débuter, gardez des tailles identiques.