Discussion :

[pucelapin]

Bonjour,
Je dois mettre une variable en PIC X(08) (format x.xxxxxx ou xx.xxxxx) dans une variable en PIC S9(2)V9(5) USAGE COMP-3.
J'ai essayé de faire des move avec plein de variables intermédiaires :
PIC S9(007) COMP-3.
PIC S9(2)V9(5) .
PIC 9(007).

Mais à chaque fois le move de ma variable intermédiaire dans le S9(2)V9(5) USAGE COMP-3 me donne zéro.

Auriez-vous une idée?

Merci

[Hédhili Jaïdane]

Bonjour.

Il faudrait nous indiquer ton compilateur, sa version et ton OS.

1) Tu peux utiliser fonction NUMVAL si tu l'as et ça résout le problème des deux formats possibles de ton pic x(8). varnum peut être en comp-3, ça ne dérange pas.

Code :

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

1
2
            compute varnum = function numval(varalphanum).

Sinon, tu peux faire ceci, mais le format doit être adapté :

Code :

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

1
2
3
4
5
       01  X1    pic x(8) VALUE "12.34567".                                     
       01  X11 REDEFINES X1 PIC 99.9(5).                                        
       01  X2    pic 99V9(5) COMP-3.                                            
           MOVE X11 TO X2.

[pucelapin]

Merci beaucoup,
J'utilise le mainframe d'IBM mais je n'ai pas les infos que tu me demandes sous le nez, j'essaierai ta solution au boulot lundi, au moins ça me donne de l’espoir je me suis cassée les dents dessus pendant des heures !

[Hédhili Jaïdane]

La fonction NUMVAL existe dans z/OS Enterprise Cobol 4.1, voir ce post : http://www.developpez.net/forums/d64...s/#post3803611

[pucelapin]

Merci,
j'espère que j'ai la bonne version !

[Luc Orient]

Merci beaucoup,
J'utilise le mainframe d'IBM mais je n'ai pas les infos que tu me demandes sous le nez ...

La version du compilateur est donnée dans la ligne d'en-tête (la première ligne) de la liste de compilation ...

[pucelapin]

J'avais pris mon compte-rendu de compil, c'est ca?
1 J E S 2 J O B L O G -- S Y S T E M M U T 0 -- N O D E C A C G D U

Merci de votre aide.

[Luc Orient]

J'avais pris mon compte-rendu de compil, c'est ca?
1 J E S 2 J O B L O G -- S Y S T E M M U T 0 -- N O D E C A C G D U

Non ça c'est le compte-rendu JES2. De mémoire, la liste de compilation devrait se trouver dans le fichier SYSPRINT ou peut-être SYSOUT ...

[pucelapin]

Etant donné que ma variable finale est signée est-ce que je peux faire un REDEFINE X22 ?

Code :

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

1
2
3
4
5
6
7
8
01  X1    pic x(8) VALUE "12.34567".                                     
01  X11 REDEFINES X1 PIC 99.9(5).                                        
01  X2    pic 99V9(5) COMP-3.                                            
01  X22 REDEFINES X2 PIC S99V9(5) COMP-3.

MOVE X11 TO X2.
MOVE X22 TO ma variable finale.

Merci

[Hédhili Jaïdane]

Pas besoin. A la limite tu définis X2 en signé pic S99v9(5) et encore ce n'est pas nécessaire, la conversion se fera d'elle même. Tu peux envoyer le X11 ou le résultat de la fonction NUMVAL directement dans ta variable quelque soit son type numérique et son signe.

[pucelapin]

Merci beaucoup !

[Jean GVE]

...

Code :

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

1
2
3
4
5
6
7
8
01  X1    pic x(8) VALUE "12.34567".                                     
01  X11 REDEFINES X1 PIC 99.9(5).                                        
01  X2    pic 99V9(5) COMP-3.                                            
01  X22 REDEFINES X2 PIC S99V9(5) COMP-3.

MOVE X11 TO X2.
MOVE X22 TO ma variable finale.

Le contenu de la zone X1 est l'équivalent d'un "Picture d'édition" format qui ne peut servir qu'à l'édition (un cul de sac, quoi !)
Si tu as "1234567" dans un PIC x(7). par contre là le X11 en REDEFINES passe à la compilation sans erreur ce qui ne doit pas être le cas de l'exemple ci-dessus il doit au moins y avoir un Warning.
Dans ce cas un MOVE X11 TO X2 ou X22 doit fonctionner, en principe un COMP-3 ou PACKED DECIMAL à toujours un quartet supplémentaire en fin pour y loger le signe.
Pour information la virgule dans un format numérique DISPLAY ou PIC 9(n)V9(m) n'apparait pas dans la zone qui est de n+m octets. Seul le signe peut apparaitre sous forme de la transformation du dernier chiffre.
En codage EBCDIC le chiffres sont codés de "F0" à "F9" le "F" est remplacé par "C" pour un nombre positif et par "D" pour une valeur négative.
@+, j'espère que ça peut d'aider

[Hédhili Jaïdane]

Le contenu de la zone X1 est l'équivalent d'un "Picture d'édition" format qui ne peut servir qu'à l'édition (un cul de sac, quoi !)
...

Le MOVE d'un numérique édité dans tout autre catégorie de donnée, à l'exception de l'alphabétique, est autorisé sur toutes les plateformes IBM y compris les mainframes depuis le VS Cobol II. Le petit exemple que j'ai donné est vérifié sous ILE Cobol for AS/400 (et suivants) et s'applique au S/36

De-editing allows moving a numeric-edited data item into a numeric or
numeric-edited receiver. The compiler accomplishes this by first
establishing the unedited value of the numeric-edited item (this value
can be signed), then moving the unedited numeric value to the
receiving numeric or numeric-edited data item.

[Jean GVE]

Bonjour,
Tu as raison Jaïdane.
Personnellement, j'évite de parler des particularités propre à IBM cette possibilité n'étant pas dans la norme ANSI85.
Et quand on utilise (quand c'est vraiment plus pratique, quasiment indispensable) ces particularités ou possibilités apportés par normes récentes, il faut penser à mettre un commentaire pour attirer l'attention en cas d'un éventuel portable (ou pour une maintenance faite par un vieux grigou comme moi ).
Pour les débutants il est préférable d'utiliser une programmation qui fonctionne sur toutes les plates-formes. Pour convertir une chaine avec un "point décimal", mieux vaut utiliser la fonction NUMVAL comme signalé au dessus.
@+

[pucelapin]

Pour les débutants il est préférable d'utiliser une programmation qui fonctionne sur toutes les plates-formes.
@+

Je suis bien d'accord

Pour convertir une chaine avec un "point décimal", mieux vaut utiliser la fonction NUMVAL comme signalé au dessus.
@+

Je n'ai pas la bonne version pour l'utiliser

Merci de votre aide, j'ai l'habitude de développer en pl sql et on n'a pas tous ces problèmes ...