Discussion :

[beegees]

Bonjour tout le monde,

Je révise ma matière de cobol pour l'examen qui se déroulera prochainement.

Il y'a quelque chose dans ce code que je ne comprends pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
       IDENTIFICATION DIVISION.
       PROGRAM-ID. 5-SNAMES.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
      * la lettre du symbole monétaire doit etre en majuscule
           CURRENCY IS "F".
       
       DATA DIVISION.
      * Definition des variables
       WORKING-STORAGE SECTION.
       77 RESULTAT PIC 99.
       77 NB1 PIC 9.
       77 NB2 PIC 9.
       77 NB1-ED PIC FB9.
       77 NB2-ED PIC FB9.
       77 RESUL-ED PIC FB99.
       

       PROCEDURE DIVISION.
       NOM-PAR.
      * entree des donnees
           DISPLAY "Entrez la 1ere valeur".
           ACCEPT NB1.
           MOVE NB1 TO NB1-ED.


           DISPLAY "Entrez la 2eme valeur".
           ACCEPT NB2.
           MOVE NB2 TO NB2-ED.

      * calcul : addition
           COMPUTE RESULTAT = NB1 + NB2.
           MOVE RESULTAT TO RESUL-ED.

      * affichage du resultat - SOLUTION 1
           DISPLAY NB1-ED " + " NB2-ED " = " RESUL-ED.

      * affichage du resultat - SOLUTION 2
           DISPLAY NB1 " F + " NB2 " F = " RESULTAT " F".


      * fin du programme
           STOP RUN.

Je ne comprends simplement pas pourquoi on a mis FB devant 9 ici :

77 NB1-ED PIC FB9.
77 NB2-ED PIC FB9.
77 RESUL-ED PIC FB99.

Quand une valeur est transféré dans NB1-ED, elle prend comme valeur :

F quelquechose

par exempe F 9 si je fais l'addition de 4 et 5.

Merci d'avance pour votre aide.

beegees

[beegees]

J'ai trouvé :

B pour espace Blanc

F pour la currency.

Voilou.

beegees

[holderheck]

Effectivement, les variables NB1-ED, NB2-ED et RESUL-ED sont utilisé dans ton source pour l'édition ( l'impression). La lettre B symbolise le caractère blanc ( l'espace). Par contre, concernant le "F", il est déclaré comme étant le caractère monétique (" currency is 'F' "), il est donc ajouté tel quel.