Discussion :

[dalma]

Bonjour,

J'aurais besoin de convertir une donnée 9(3) vers du X(4) avec le formalisme suivant :
- 2 devient '0002'
- 12 devient '0012'
- 312 devient '0312'

Est-ce que quelqu'un aurait une idée pour faire cela "proprement" ?

Merci d'avance.

[Hédhili Jaïdane]

Bonjour.

Il suffit de passer par une zone intermédiaire en 9(4) ou simplement par un redefines de la zone en X(4) en 9(4) aussi.

Code 1ère solution :

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

1
2
3
4
5
6
03 Z3    pic 9(3).
03 ZX4   pic X(4).
03 Z94   pic 9(4).
MOVE Z3 TO Z94.
MOVE Z94 TO ZX4.

ou plus simplement :

Code 2è solution :

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

1
2
3
4
5
6
03 Z3    pic 9(3).
03 ZX4   pic X(4).
03 Z94   redefines ZX4 pic 9(4).
MOVE Z3 TO Z94.
* et du coup dans ZX4 on va trouver la Z3 avec les 0 à gauche.