Discussion :

[cobolons]

Bonjour, quelqu'un pourrait il m'aider ?

Code :

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

77 SOLDE PIC S9(12)V99 PACKED-DECIMAL.

On désire éditer cette zone en respectant toutes les contraintes suivantes :

• Les zéros non significatifs doivent être remplacés par des astérisques, tout en laissant afficher au moins un chiffre de la partie entière
• Si la valeur est négative et uniquement dans ce cas, le signe – (moins) sera édité à l’extrême droite, remplacé par un blanc autrement
• Le . (point) sera édité comme séparateur des parties entière et décimale
• La zone éditée a pour nom SOLDEEDT

Donnez la déclaration de SOLDEEDT et le code Cobol nécessaire pour l’affecter. Testez avec différentes valeurs.

3. Voici une déclaration de zone numérique :

Code :

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

77 TEMPERATURE PIC S9(2)V9 PACKED-DECIMAL.

On désire éditer cette zone en respectant toutes les contraintes suivantes :

• Les zéros non significatifs doivent être remplacés par des blancs, tout en laissant afficher au moins un chiffre de la partie entière
• Si la valeur est négative et uniquement dans ce cas, le signe – (moins) sera édité juste devant le 1er chiffre significatif, remplacé par un blanc autrement
• Le . (point) sera édité comme séparateur des parties entière et décimale
• La zone éditée a pour nom TEMPERATUREEDT

Donnez la déclaration de TEMPERATUREEDT et le code Cobol nécessaire pour l’affecter. Testez avec différentes valeurs.

"la clause usage indique s'il s'agit d'une variable de calcul ou d'édition ": je n'ai jamais utilisé cette clause ! A par pour "USAGE PACKED-DECIMAL", que fait elle ? PACKED-DECIMAL est pour les nombres en condensés, mais eux, qui sont ils ?
Un PACKED-DECIMAL ne peut pas être affiché ? Comment faire alors ? (pour l'afficher)
On ne peut pas mettre 999 dans 99 ?

Code :

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

PERFORM UNTIL I > 49 ?

Comment fonctionne un nom condition ?
D'avance merci pour votre aide !!!!!

[Hédhili Jaïdane]

Bonjour,...

Bonjour.

A vrai dire je n'aime pas faire les exercices à la place des autres. Cependant je pense que cet exemple peut être utile pour d'autres.

1er cas :

Code :

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

1
2
3
4
5
77 SOLDE PIC S9(12)V99 PACKED-DECIMAL.
77 SOLDEEDT PIC *(11)9.99-.
.../...
MOVE SOLDE TO SOLDEEDT.

2è cas :

Code :

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

1
2
3
4
5
77 TEMPERATURE PIC S9(2)V9 PACKED-DECIMAL.
77 TEMPERATUREEDT PIC -9.9.
.../...
MOVE TEMPERATURE TO TEMPERATUREEDT.

...
"la clause usage indique s'il s'agit d'une variable de calcul ou d'édition ": je n'ai jamais utilisé cette clause ! A par pour "USAGE PACKED-DECIMAL", que fait elle ? PACKED-DECIMAL est pour les nombres en condensés, mais eux, qui sont ils ?

Il y a plusieurs usages :
BINARY, COMP, COMP-1, COMP-2, COMP-3, COMP-4, DECIMAL-PACKED, DISPLAY, DISPLAY-1, INDEX, POINTER, et bien d'autres.

Un PACKED-DECIMAL ne peut pas être affiché ? Comment faire alors ? (pour l'afficher)
On ne peut pas mettre 999 dans 99 ?

On le met dans une zone à usage étendu (DISPLAY ou rien) et on l'affiche ou en faisant la même chose que tes exos : en le mettant dans du numeric-edited. Certains compilateurs peuvent le faire

PERFORM UNTIL I > 49 ?

Moi pas comprendre la question

Comment fonctionne un nom condition ?
D'avance merci pour votre aide !!!!!

Code :

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

1
2
3
4
5
6
7
8
9
01 CODE-RETOUR PIC X.
88 SANS-ERREUR VALUE "0".
.../...
IF SANS-ERREUR PERFORM TRAITEMENT 
ELSE PERFORM TRAIT-ERREUR.
* équivaut à : 
IF CODE-RETOUR = "0" PERFORM TRAITEMENT 
ELSE PERFORM TRAIT-ERREUR.

[cobolons]

ok, merci

[Luc Orient]

...
1er cas :

Code :

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

1
2
3
4
5
77 SOLDE PIC S9(12)V99 PACKED-DECIMAL.
77 SOLDEEDT PIC *(11)9.V99-.
.../...
MOVE SOLDE TO SOLDEEDT.

A mon humble avis, le caractère " V " dans la PICTURE d'édition de la variable SOLDEEDT est inutile. Le caractère " . " devrait suffire à cadrer la variable en décimal condensé dans la variable en numérique édité. Mais ce n'est que mon avis ...

[Hédhili Jaïdane]

A mon humble avis, le caractère " V " dans la PICTURE d'édition de la variable SOLDEEDT est inutile. Le caractère " . " devrait suffire à cadrer la variable en décimal condensé dans la variable en numérique édité. Mais ce n'est que mon avis ...

Autant pour moi, il n'y a pas de "V".

Code :

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

1
2
3
 77 SOLDE PIC S9(12)V99 PACKED-DECIMAL.
77 SOLDEEDT PIC *(11)9.V99-.
77 SOLDEEDT PIC *(11)9.99-.

Bien vu.