Discussion :

[jef1910]

Bonjour,

J'ai un programme en Cobol avec ajout de fichiers, "Noms", et "Salaire" ... on l'apprends en cours !!!!
Seulement, pouvez-vous m'expliquer comment créer les 2 fichiers et les "ouvrir" dans le programme, et le terminer, "section environnement" ???
Merci +++++

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
 IDENTIFICATION DIVISION.
  PROGRAM-ID. PAIE.
*
 DATA DIVISION.
  WORKING-STORAGE SECTION.
  01  N  PIC X(20).
  01  S  PIC 9999.
  01  REPONSE PIC X.
  01  ENCORE  PIC X(35) VALUE "Voulez-vous recommencer ?". 
*
 PROCEDURE DIVISION.
       OPEN INPUT NOMS.
       OPEN INPUT SALAIRE.
  DIX SECTION
       READ NOMS AT END GO TO CENT.
       READ SALAIRE AT END GO TO CENT.
       DISPLAY N WITHOUT ADVANCING.
            IF S < 2000 THEN DISPLAY S * 0,15
            ELSE DISPLAY S S * 0,20.
       GO TO DIX.   
  CENT SECTION.
       CLOSE NOMS.
       CLOSE SALAIRE.
       DISPLAY ENCORE.
       ACCEPT REPONSE.
            IF REPONSE = "o"
            THEN GO TO DIX.
       DISPLAY "AU REVOIR".
*
        EXIT PROGRAM.
   END PROGRAM SUITE1.

[valmi32]

Voici comment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 ENVIRONMENT DIVISION.
 FILE CONTROL.
     SELECT PAIE ASSIGN ... (REGARDE DANS TON COURS)
     SELECT NOM    "                            "
 DATA DIVISION.
 FILE SECTION.
 FD   PAIE LABEL RECORD STANDARD.
 01   APAIE.
   03   .... ta description ...
 FD   NOM LABEL RECORD STANDARD.
 01   ANOM.
   03   ... ta description ...

Salut :

valmi32