Discussion :

[pif_dz]

Bonjour à Tous,

je découvre le cobol en ce moment.

J'aurais souhaité ranger faire des MOVEs en utilisant la fonction de concaténation .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
...
       EVALUATE CURRENT-ELEMENT
       WHEN 'Valeur1'
       MOVE STRING VAR1 TXT to VAR1

       WHEN 'Valeur2'
       MOVE STRING VAR2 TXT to VAR2

...

2 questions :
- Peut-on utiliser faire un STRING VAR1 "BLabla" VAR1 ?
- Peut-on concaténer même si VAR1 est vide et non initialisée ?

Je vous remercie pour votre aide et disponibilité.

PIF

[Darkzinus]

Bonjour,

Pour ton exemple tu peux faire (dans mon cas je présume que VAR1 ne contient qu'un seul mot dans le cas contraire elle sera tronquée sur le premier mot auquel cas on peut envisage un DELMITED BY DOUBLE SPACE par exemple) :

STRING VAR1 "BLABLA" VAR1 DELIMITED BY SPACE INTO ZONE-RECEPTRICE

Si VAR1 est vide, tu auras seulement "BLABLA"

Sinon quel que soit son contenu tu le retrouveras en sortie.

Tu trouveras un complément (car les possibilités pour cette instruction sont multiples) dans la documentation IBM.