move pic X dans S9(x)V9(y) COMP-3

[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 :

1
2
            compute varnum = function numval(varalphanum).

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

Code :

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]

Envoyé par pucelapin

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]

Envoyé par 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

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 :

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]

Envoyé par pucelapin

...

Code :

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]

Envoyé par Jean GVE

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

Envoyé par VS Cobol II Application Programming Langage Reference

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]

Envoyé par Jean GVE

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

Envoyé par Jean GVE

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 ...