Les divisions en COBOL

Version imprimable

Pour le langage cobol IL EXISTE QUATRE DIVISIONS VOILA UN EXEMPLE :

Code:

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
46
IDENTIFICATION DIVISION.
PROGRAM-ID. xxxxxxxx.                                            *********************************************************  * PROGRAMME    PROCEDE A L' EDITION DE L'ETAT DES CHEQUES                
 *              POUR  LES COMPTABLE   98  -ETRANGER-    ****************************************************** ENVIRONMENT DIVISION.  
INPUT-OUTPUT SECTION.                                           
FILE-CONTROL.                                                 
              SELECT  CNRATRV ASSIGN TO   'AT_CNRACR_TRIE'
                   ORGANISATION RECORD SEQUENTIAL.
              SELECT  IMPR1   ASSIGN TO   PRINTER.

DATA DIVISION.
 FILE SECTION.                                                     
  FD  CNRATRV                                                       
      LABEL RECORDS STANDARD BLOCK 10 RECORDS.                                01  ENR-CREDIRENTIER.                                                    
     02 ENR-CRED.                                                         
        05 C-CAT                               PIC  X.                       
        05  C-RECORD-KEY-CREDIT.                                             
          10  C-DOS                          PIC  X(6).                    
          10  C-BENEFICIAIRE                 PIC  XX.                      
          10  C-CODE-ENR                     PIC  X.                       
*********** ICI C'EST LE TRAITEMENT
PROCEDURE DIVISION. 
     OUVERT.                                                           
               ACCEPT CARTE                                                         
                                                                          
               IF  JOUR-INT   NOT  EQUAL   01                                       
                    DISPLAY CARTE           '   JOUR DIF DE   01     '               
               DISPLAY '      PRIERE CORRIGER DATE ET SOUMETTRE'                
               GO   TO   CLOS-FICHIER.                                         
    DEBUT.                                                               
             OPEN   INPUT  CNRATRV                                                
             OUTPUT IMPR1.                                          
             INITIATE ETAT1.                                               
LECT-CREDIR.                                                               
           READ  CNRATRV  AT END GO TO 800-FIN.
TRAITEMENT

           PERFORM CALCUL
           PERFORM IGR
           PERFORM FIN.
CALCUL.
           COMPUTE MONTANT = SALAIRE + PRIME
IGR.
           COMPUTE PRE1   = MONANT * 12 / 5.
FIN.
            CLOSE CNRATRV IMPR1.
            STOP RUN.

27/03/2007, 08h26
Peut-êtreUneRéponse
Merci pour ce code source.

En complémet de cet exemple sur les divisions, vous trouverez la syntaxe et l'utilisation du DIVIDE dans ce cours sur les instructions arithmétiques.

Précision: pour le paragraphe CALCUL, il est préférable d'utiliser l'instruction ADD, en effet ADD est plus performant que COMPUTE ;)
Code:

1 2 3 CALCUL. ADD SALAIRE PRIME GIVING MONTANT.
.
16/08/2008, 17h44
tabitarh

Concernant le cour de M. Guillaume Ventre

Bonjour,

J'ai essayé de me connecter sur le cour cobol ainsi que le blog de M. Guillaume Ventre sans reussite.

J'attende que tous soit en place rapidement.
14/12/2008, 17h53
Périclès.429

Bonsoir
Juste une précision qui n'a rien à voir.
Dans l'exemple du"code" source", vous pouvez dorénavant mettre systématiquement un GOBACK.
Depuis le Cobol Enterprise et l'apparition du Language Environment, les programmes sont considérés comme des routines appelés par le L.E.

Le module appelant est , su je ne me trompe pas le CEESTART et donc il vaut mieux coder goback. Cela est plus réaliste.

Périclès