Discussion :

[lah.123]

Bonjour,

J'ai une variable en entré VAR-IN de PIC 9(16)V9(2) et un variable en sortie : VAR-OUT PIC S9(16)V9(2) BINARY.

exemple de problème :

Code :

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

1
2
3
4
5
01 VAR-IN de PIC 9(16)V9(2).
01 VAR-OUT  PIC S9(16)V9(2) BINARY.

MOVE 100000000000002070 TO  VAR-IN.
MOVE  VAR-IN                    TO VAR-OUT

quand j'affiche display :

Code :

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

1
2
VAR-IN    :  000000000000207000
VAR-OUT :  0000000000000207000

mais pourquoi j'ai 000000000000207000 et non 10000000000000207000
car le 1er chiffre est disparu.
Merci

[el_slapper]

parceque ton 1 est hors format.

Ton format, c'est 16 chiffres avant la virgule, et 2 chiffres après.

Ton '1', il est 18 chiffres avant la virgule. sur des S9(18), tu l'aurais gardé. Là, tu perds les 2 premiers caractères.
Tu as en mémoire +0000000000207000,00 après ton MOVE.

d'ailleurs, mettre des virgules sur du Binary, et surtout un non-multiple de 4, c'est pas franchement un usage correct du binary.

[lah.123]

Merci pour l'information.

alors c'est impossible de garder le 1er chifre?
Merci

[el_slapper]

Avec ce format de données, c'est impossible. Binary ou pas.

D'une manière générale, les numériques en COBOL sont limités à 18 chiffres. Si tu veux 2 chiffres après la virgule, alors tu seras limité à 16 chiffres devant.

[lah.123]

Alors même si je fait par exemple :

Code :

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

1
2
3
4
5
01 VAR-IN de PIC 9(16)V9(2).
01 VAR-OUT  PIC S9(16)V9(2) BINARY.

MOVE 1000000002070 TO  VAR-IN.
MOVE  VAR-IN                    TO VAR-OUT

alors je veux avoire 0100000000207000 et no 0000207000000000000

ou c'est impossible d'avoire 0100000000207000

[el_slapper]

Ton jeu-test n'est pas excellent. Essaye donc un

Code :

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

1
2
3
4
5
MOVE 1234567812345678.99 TO  VAR-IN
DISPLAY VAR-IN
MOVE  VAR-IN                    TO VAR-OUT
DISPLAY VAR-OUT
.

en remplaçant 1234567812345678.99 par 1234567812345678,99 si DECIMAL-POINT IS COMMA


Et comme ça, on saura précisément ou sont les décalages, si il y en a. Avec tous ces zéros, on ne voit rien. Parceque là, je ne vois pas ou tu veux en venir, ni quel est exactement ton problème. Et essaye avec des non-binary en cible, juste pour voir la différence.

[lah.123]

ALors moi j'ai besoin de saisir en entré : 123456781234567899 et je veux en sortie 1234567812345678,99

mais en entré j'ai :

VAR-IN :123456781234567899

Avec un move direct j'ai : 610106595025276171O

quand je passe avec une variable intermidiére :

WS-ZONE PIC 9(16)V9(2).

j'ai en sortie : VAR-OUT : 0345678123456789900

ce code me donne un message d'erreur de compilation car VAR-IN et de PIC X(18).

Code :

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

1
2
3
4
5
MOVE 1234567812345678.99 TO  VAR-IN
DISPLAY VAR-IN
MOVE  VAR-IN                    TO VAR-OUT
DISPLAY VAR-OUT
.

mais le probléme j'ai en entré PIX X(18) et en sortie S9(16)V9(2) BINARY

comment jouer avec les variable working pour avoir le bonne résultat

Merci Bcp

[bernard59139]

Bonjour

Avec MOVE, tu n'y arrivera pas (à vérifier, pas fait de cobol depuis..... longtemps)

Pourquoi ne pas faire une division par 100?

[Luc Orient]

Quel OS ?

Quel COBOL ?

" ed_slapper " a raison. Pourquoi passer par du BINARY ?

A mon sens, BINARY sert plutôt à stocker des valeurs entières signées. L'équivalent d'INTEGER dans d'autres langages.

[lah.123]

Meerci pour les information.