Discussion :

[vince29]

Bonjour,
voilà je suis novice en COBOL et je souhaiterais récupérer les décimales d'une variable de format numérique.
Je sais que l'on peut décomposer une variable alpha ... mais pour les valeurs numériques, est-ce qu'il existe une solution pour récupérer seulement les décimales ?

Merci pour votre aide.

[Hédhili Jaïdane]

Bonjour.

Pour ne pas faire compliqué :

Code :

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

1
2
3
4
5
6
7
8
9
10
WORKING-STORAGE SECTION.
 01   ZONE1 pic ..... (ta zone dans son format num d'origine)
 01   ZONE2 pic 9(12)v999.
 01   ZONE3 redefines ZONE2.
       03 PE   pic x(12).
       03 PD   pic xxx.
PROCEDURE DIVISION.
....
     MOVE ZONE1 to ZONE2.

et là tu as dans PE les chiffres avant la virgule avec des zéros à gauche éventuellement, et dans PD les chiffres après la virgule avec des zéros à droite. Bien sûr tu adaptes ZONE2 et ZONE3 pour avoir la même longueur que ZONE1.

[Hédhili Jaïdane]

Bonjour vince29.

Tu nous as pas dit si çà a marché et si c'est ce que tu voulais.
Un feedback est toujours appréciable pour et les posteurs et les visiteurs.

[vince29]

Bonjour,
Oui bien entendu et je comprends tout à fait, mais pour moi, le fait d'indiquer le problème est "RESOLU", indique que la solution fournie répondait à mes besoins.

Encore merci.