Discussion :

[Fynezy]

Bonjour,
Je cherche à mettre un champ (champ1) déclaré comme ceci :

VAR1 PIC S9(4) COMP-4

Et le mettre dans une variable(champ2) alphanumeric en gardant les virgules.

VAR2 PIC X(10)

Je ne sait pas du tout comme m'y prendre.

merci d'avance.

[Hédhili Jaïdane]

Bonjour,
Je cherche à mettre un champ (champ1) déclaré comme ceci :

VAR1 PIC S9(4) COMP-4

Et le mettre dans une variable(champ2) alphanumeric en gardant les virgules.

VAR2 PIC X(10)

Je ne sait pas du tout comme m'y prendre.

merci d'avance.

Bonjour.
Je ne vois pas de virgule, peut être le signe - ou + à la limite.
Le principe est de mettre dans un premier temps la variable S9(4) comp-4 dans une variable numérique étendue pour la convertir avec suppression des zéros à gauche ou non et dans un deuxième temps de mettre cette dernière dans un champ alpha ou simplement la redéfinir par un champ alpha.
Propose une solution et on en discutera.

[Fynezy]

Bonjour.
Je ne vois pas de virgule, peut être le signe - ou + à la limite.
Le principe est de mettre dans un premier temps la variable S9(4) comp-4 dans une variable numérique étendue pour la convertir avec suppression des zéros à gauche ou non et dans un deuxième temps de mettre cette dernière dans un champ alpha ou simplement la redéfinir par un champ alpha.
Propose une solution et on en discutera.

Je débute en cobol et le problème vien justement de là, je n'e sait pas comment implanter une variable S9 dans une variable numeric pour ensuite la redéfinir en alpha

[Hédhili Jaïdane]

ok,

Code :

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

1
2
3
4
5
6
01   VAR1 pic S9(4).   [là tu n'as pas de virgule juste le signe]
01   VAR9 pic -(9)9.   [9 zéros à gauche remplacés par un "-" si négatif et un chiffre, le + n'est pas mis si positif,  ex : 0 ou -1 ou 1] 
01   VAR2 redefines VAR9 pic x(10).
.../...
     move VAR1 to VAR9   [conversion du nombre numérique avec cadrage à droite et suppression des zéros à gauche avec insertion d'un - si négatif]

Là ton VAR2 est bien rempli.
PS : Ce qu'il y a entre [] sont des commentaires non supportés par les compilateurs dans cette forme

[Fynezy]

ok,

Code :

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

1
2
3
4
5
6
01   VAR1 pic S9(4).   [là tu n'as pas de virgule juste le signe]
01   VAR9 pic -(9)9.   [9 zéros à gauche remplacés par un "-" et un chiffre, le + n'est pas mis si positif,  ex : 0 ou -1 ou 1] 
01   VAR2 redefines VAR9 pic x(10).
.../...
     move VAR1 to VAR9   [conversion du nombre numérique avec cadrage à droite et suppression des zéros à gauche avec insertion d'un - si négatif]

Ce qu'il y a entre [] sont des commentaires non supportés par les compilateurs dans cette forme

Merci beaucoup!

[Hédhili Jaïdane]

Attention une petite màj sans importance a été faite sur mon message