Discussion :

[alex2746]

Bonjour,
Pouvez vous me donner un exemple de comment parcourir un fichier relatif?
C'est à dire: l'ouvrir, le parcourir et le fermer.

Merci d'avance.

[Hédhili Jaïdane]

Bonjour.

Comme les autres types d'organisation :

1227 OPEN INPUT WDIRECTS.
....
1318 READ WDIRECTS AT END MOVE HIGH-VALUE TO WDIRECTS-RD.
.....
1647 CLOSE WDIRECTS.

[alex2746]

Merci et pouvez vous me dire comment déclarer ce fichier relatifs dans les différentes sections du programme COBOL?

Merci d'avance.

[Hédhili Jaïdane]

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
0029   INPUT-OUTPUT SECTION.
0030   FILE-CONTROL.
0051       SELECT WDIRECTS ASSIGN DATABASE-WDIRECTS
0052               ORGANIZATION RELATIVE
0053               ACCESS DYNAMIC
0054               RELATIVE KEY CLE-DIRECT.
0059   DATA DIVISION.
0060   FILE SECTION.
0089   FD  WDIRECTS LABEL RECORD STANDARD.
0090   01  WDIRECTS-RD.
0064   COPY ECRITSRD.
0101   WORKING-STORAGE SECTION.
0138   77  CLE-DIRECT    PIC 999.
0613   PROCEDURE DIVISION.
1227       OPEN I-O WDIRECTS.
1251       MOVE ECRITS-RD TO WDIRECTS-RD.
1252       MOVE WCLE-DIRECT TO CLE-DIRECT.
1253       REWRITE WDIRECTS-RD INVALID
1254             MOVE 1 TO IND-ERR
1255             MOVE MSG15 TO MSG OF LISTE-O.
1643       CLOSE WDIRECTS.