Discussion :

[thomasaurelien]

Bonjour, je suis étudiant en DUT informatique et nous venons de commencer cobol depuis 2semaines. Après avoir vu Java, étudier Cobol est pour ma part est pas très facile.

Notre prof veux que l'on réalise un menu composer de plusieurs sous-menu (pas de difficulté particulière) mais le plus dur c'est de les faire communiquer entre eux.

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
       program-id. agence.
       working-storage section.
           1 choix pic 9.
           1 faux pic x value "F".
           1 vrai pic x value "V".
           1 fin pic x.

       screen section.
           1 ecran-couleur.
               2 blank screen background-color 1.
           1 a-plg-titre.
               2 line 2 col 37 'AGENCE'.
               2 line 4 col 35 'TempsLibre'.
           1 a-plg-menu.
               2 line 6 col 17 'Menu principal'.
               2 line 8 col 17 '1 : Gestion clients '.
               2 line 10 col 17 '2 : Gestion locations '.
               2 line 12 col 17 '3 : Disponibilites '.
               2 line 14 col 17 '4 : Facturation '.
               2 line 16 col 17 '5 : Recapitulatif '.
               2 line 18 col 17 '6 : Quitter '.
           1 s-plg-choix.
               2 line 22 col 3 'Votre choix : '.
               2 s-chp-choix pic 9 to choix required.
           1 a-plg-menuc.
               2 line 6 col 17 'Clients'.
               2 line 8 col 17 '1 : Fiche client '.
               2 line 10 col 17 '2 : Ajouter un client '.
               2 line 12 col 17 '3 : Supprimer client '.
               2 line 14 col 17 '4 : Modifier client '.
               2 line 16 col 17 '5 : Lister tous les clients '.
               2 line 18 col 17 '6 : Retour menu '.
           1 a-plg-menul.
              2 line 6 col 17 'Locations'.
              2 line 8 col 17 '1 : Fiche location '.
              2 line 10 col 17 '2 : Ajouter une location '.
              2 line 12 col 17 '3 : Supprimer une location '.
              2 line 14 col 17 '4 : Modifier une location '.
              2 line 16 col 17 '5 : Lister toutes les locations '.
              2 line 18 col 17 '6 : Retour menu '.

       procedure division.

       end program agence.

D'après ce que j'ai pu trouver sur internet cela marche grâce à un evaluate (selon que) mais les exemples trouvés sont un peu dur à comprendre pour un débutant.

merci pour votre aide

[Hédhili Jaïdane]

Bonjour.

- Pour afficher une image écran (map, format, menu, etc...), on utilise l'instruction DISPLAY
- pour lire cette image (en fait pour renseigner le buffer d'entrée), on utilise l'instruction ACCEPT
- Pour tester le contenu d'une variable, on utilise l'instruction IF...ELSE ou un EVALUATE

Exemple :

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

       procedure division.
       INIT.
           Display ecran-couleur.
           Display a-plg-titre.
           Display s-plg-choix.
       TRAIT.
           move 0 to choix.           
           perform AFF-PRINCIPAL until choix = 6. 
           stop run.
       AFF-PRINCIPAL.   
           Display a-plg-menu.
           Accept s-plg-choix.
           if CHOIX = 1 perform TRAIT-CLIENTS
           ELSE
           if CHOIX = 2 perform TRAIT-LOCATIONS
           else
           if CHOIX = 3 perform TRAIT-DISPOS
           else
           if CHOIX = 4 perform TRAIT-FACTURATION
           else
           if CHOIX = 5 perform TRAIT-RECAP.
       TRAIT-CLIENTS.
           Display a-plg-menuc.
           Accept s-plg-choix.
       TRAIT-LOCATIONS.
           Display a-plg-menul.
           Accept s-plg-choix.
       TRAIT-DISPOS.
       TRAIT-FACTURATION.
       TRAIT-RECAP.
       TRAIT-ERR-CHOIX.
       end program agence.

l'EVALUATE est fait pour remplacer les IF quand ça devient trop complexe à gérer. Dans l'exemple, on peut remplacer le pavé des IF...ELSE par un EVALUATE comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
       AFF-PRINCIPAL.   
           Display a-plg-menu.
           Accept s-plg-choix.
           evaluate choix
             When 1 perform TRAIT-CLIENTS
             When 2 perform TRAIT-LOCATIONS
             When 3 perform TRAIT-DISPOS
             When 4 perform TRAIT-FACTURATION
             When 5 perform TRAIT-RECAP.