Discussion :

[Sumoner]

Bonjour,
Je doit étudier un programme en COBOL et je ne comprend même pas ce que veulent dire les déclarations de variable.

Code :

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

1
2
3
4
5
05 FIELD-1 PIC Z(5)9.
05 FIELD-2 PIC £(5)9.99.
05 FIELD-3 PIC £**,***.99.
05 FIELD-4 PIC £££,££9.99DB.
05 FIELD-5 PIC ZZZZ9+.

Merci d'avance, car le COBOL n'est pas une partie de plaisir.

Sumoner

[Hédhili Jaïdane]

Bonjour.

Un exemple pour te donner une idée, si tu as besoin d'autres explications, n'hésite pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
FIELD-POS PIC S9(6)V99    = [00012345+] (2 décimales)
FIELD-1 PIC Z(5)9        = [   123]  Z : Suppression des 0 à gauche
FIELD-2 PIC $(5)9.99     = [  $123.45]  $ : insertion du symbole monétaire $
FIELD-3 PIC $**,***.99   = [$***123.45]  insertion du symbole monétaire et remplacement des 0 à gauche par des * 
FIELD-4 PIC $$$,$$9.99DB = [   $123.45  ]  DB : insertion de BD si négatif 
FIELD-5 PIC ZZZZ9+       = [  123+]  + : insertion à droite de + si positif et - si négatif 
---------------------------------------
FIELD-NEG PIC S9(6)V99    = [00012345-] (2 décimales)
FIELD-1 PIC Z(5)9        = [   123]
FIELD-2 PIC $(5)9.99     = [  $123.45]
FIELD-3 PIC $**,***.99   = [$***123.45]
FIELD-4 PIC $$$,$$9.99DB = [   $123.45DB]
FIELD-5 PIC ZZZZ9+       = [  123-]

[Sumoner]

Meci pour votre réponse,
mais j'ai besoin de complément d'information.
Comment sont tronqué les chiffres?
Si il n'y a pas de Z, il y a des zéros partout?

Prenons trois variable ayant pour valeur: 87654321, 0.756, -253
et si on utilise "move to" comment sont formaté les variables.

Code :

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

1
2
3
4
5
6
7
8
9
10
FIELD-1 PIC Z(5)9.
54321		0	253
FIELD-2 PIC £(5)9.99.
£76543.21	£0.75	£2.53
FIELD-3 PIC £**,***.99.
£76,543.21	£**,***.75	£**,**2.53
FIELD-4 PIC £££,££9.99DB.
£76,543.21	£0.75	£2.53DB
FIELD-5 PIC ZZZZ9+.
54321+		0+	253-

Merci d'avance.

[Hédhili Jaïdane]

Bonjour.

Au vu de certaines erreurs (virgule et longueur), tu veux bien nous indiquer la description des variables d'origine qui contiennent les trois valeurs 87654321, 0.756 et -253

[Sumoner]

Bonjour,
V1 PIC 9(8). = [87654321]
V2 PIC 9ES999. = [0.756]
V3 PIC S9(3). = [253-]

[Hédhili Jaïdane]

Bonjour,
V1 PIC 9(8). = [87654321]
V2 PIC 9ES999. = [0.756]
V3 PIC S9(3). = [253-]

1er Cas : V1 PIC 9(8). = [87654321]
Donc si je comprends bien : long 8 et sans virgule (point décimal) :

- FIELD-1 PIC Z(5)9 : supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0
===> = 654321 et non 54321.

- FIELD-2 PIC £(5)9.99 : insérer un £, supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0, 2 chif. après la virgule
===> = £54321.00 et non £76543.21.

- FIELD-3 PIC £**,***.99 : insérer un £, remplacer les 5 premiers 0 de gauche (non significatifs) par *, insérer une virgule entre le 2è et le 3è chif, 2 chif. après la virgule
===> = £54,321.00 et non £76,543.21.

- FIELD-4 PIC £££,££9.99DB : insérer un £, supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0, insérer une virgule entre le 2è et le 3è chif, 2 chif. après la virgule, insérer DB si négatif
===> = £54,321.00 et non £76,543.21.

- FIELD-5 PIC ZZZZ9+ : supprimer les 4 0 de gauche (non significatifs), garder le 5è 0, insérer à droite un + si positif et un - si négatif
===> = 54321+ Là on d'accord.


2è Cas : V2 PIC 9ES999. = [0.756]
Je ne connais pas cette notation, à la limite 9E+99 ou 9VE-99, et ce n'est valable que pour les "External Edited Numeric" en virgule flottante. Pour l'usage interne on indique juste comp-1 ou comp-2.
En se basant sur la valeur donnée : long 4 dont 3 décimales :

- FIELD-1 PIC Z(5)9 : supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0
===> = 0 D'accord.

- FIELD-2 PIC £(5)9.99 : insérer un £, supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0, 2 chif. après la virgule
===> = £0.75 D'accord.

- FIELD-3 PIC £**,***.99 : insérer un £, remplacer les 5 premiers 0 de gauche (non significatifs) par *, insérer une virgule entre le 2è et le 3è chif, 2 chif. après la virgule
===> = £**,***.75 D'accord (£******.75 pour certains compilos).

- FIELD-4 PIC £££,££9.99DB : insérer un £, supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0, insérer une virgule entre le 2è et le 3è chif, 2 chif. après la virgule, insérer DB si négatif
===> = £0.75 et non £76,543.21.

- FIELD-5 PIC ZZZZ9+ : supprimer les 4 0 de gauche (non significatifs), garder le 5è 0, insérer à droite un + si positif et un - si négatif
===> = 0+ D'accord.


3è Cas : V3 PIC S9(3). = [253-]
long 3 signé sans virgule :

- FIELD-1 PIC Z(5)9 : supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0
===> = 253 D'accord.

- FIELD-2 PIC £(5)9.99 : insérer un £, supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0, 2 chif. après la virgule
===> = £253.00 et non £2.53.

- FIELD-3 PIC £**,***.99 : insérer un £, remplacer les 5 premiers 0 de gauche (non significatifs) par *, insérer une virgule entre le 2è et le 3è chif, 2 chif. après la virgule
===> = £**,253.00 (£***253.00 pour certains compilos) au lieu de £**,**2.53.

- FIELD-4 PIC £££,££9.99DB : insérer un £, supprimer les 5 premiers 0 de gauche (non significatifs), garder le 6è 0, insérer une virgule entre le 2è et le 3è chif, 2 chif. après la virgule, insérer DB si négatif
===> = £253.00DB et non £2.53DB.

- FIELD-5 PIC ZZZZ9+ : supprimer les 4 0 de gauche (non significatifs), garder le 5è 0, insérer à droite un + si positif et un - si négatif
===> = 253- D'accord.

Tout ceci si tu n'as pas la clause DECIMAL-POINT is COMMA dans SPECIAL-NAMES.

La première règle du MOVE de numérique à numérique (édité ou non) est la conversion et l'alignement sur le point décimal, puis viennent les troncatures à droite ou à gauche et la complétion à droite ou à gauche.

PS : Tu peux nous indiquer, s'il te plaît, dans le titre de la discussion (premier post) le système d'exploitation et le compilateur comme indiquée dans cette discussion : Règle Tag [SystèmeExploitation-VersionCompilateur]