Recherche:

Au cas où ça t'aurait échappé :


MOVE CORR ZYE6-TEXTE1W TO ZYE6-TEXTE2W.
* CORR = CORRESPONDING et cela se traduit par le compilateur par :
MOVE JJ OF ZYE6-TEXTE1W...

Bonjour.

Si ta variable ZYE6-TEXTE1 est de type alphanum, tu peux faire par exemple si elle n'est pas déjà décomposée :


01 ZYE6-TEXTE1 PIC X(10).
01 ZYE6-TEXTE1W REDEFINES...