[PC] [Visual Object Cobol] Lecture de fichier .txt

**vince3132** · 07/03/2008, 20h54

je travaille sur le cobol sur le logiciel Visual Object Cobol.
Le pb c'est que je n'arrive pas à lire correctement le fichier d'entree que je nomme en.txt
le pgme le lit mais les espaces sont pris en compte alorsd que je veux pas, help please!

**Hédhili Jaïdane** · 08/03/2008, 09h02

Bonjour.

Si j'ai bien compris, l'enregistrement lu contient, en plus des données, des espaces que tu ne veux pas voir ?

**vince3132** · 08/03/2008, 23h24

Je travaille en Cobol sur le logiciel Visual Object Cobol.
Le problème est que je n'arrive pas à lire correctement le fichier d'entrée que je nomme en.txt

Voilà le fichier d'entree que je mets sous c:/ :
la 1ère ligne : ab
la 2ème ligne cd

Voilà mon programme :

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
           IDENTIFICATION DIVISION.
               Program-id. exo1.
               ENVIRONMENT DIVISION.

               FILE-CONTROL.
                       SELECT VINCENT ASSIGN TO 'C:\A.txt'
                                   ORGANIZATION SEQUENTIAL
                                   FILE STATUS ETAT-EMPLOYE.
               DATA DIVISION.
               FILE SECTION.
               FD VINCENT.
               01 ART-EMPLOYE.
                   02 CODE-EMP PIC XX.

               working-storage section.
               01 ETAT-EMPLOYE PIC XX.

               procedure division.

                   OPEN INPUT VINCENT
                   READ VINCENT
                   PERFORM UNTIL ETAT-EMPLOYE = '10'
                   DISPLAY ETAT-EMPLOYE
		   DISPLAY CODE-EMP
                   READ VINCENT
                   END-PERFORM
                   CLOSE VINCENT
                   STOP RUN.

Voilà le résultat que j'obtiens : (00 sont les files status)

*¦
00
a
00
b
00
00

00
c
00
d
00

Que faire ? Merci d'avance.

**Hédhili Jaïdane** · 09/03/2008, 11h12

Bonjour.

Bien. Je ne connais pas VOB, mais je pense qu'il ne doit pas être différent pour l'essentiel. Pour les fichiers mode ligne je mettrais :
ORGANIZATION IS LINE SEQUENTIAL au lieu de SEQUENTIAL tout court. Sinon je ne vois pas pourquoi.

**vince3132** · 09/03/2008, 17h40

je travaille sur le cobol sur le logiciel Visual Object Cobol.
Le pb c'est que je n'arrive pas à lire correctement le fichier d'entree que je nomme en.txt

Voilà le fichier d'entree que je mets sous c:/ :

00225zizou zinedime marseille
00030ribery franck munich
00035valbuena matthieu michelet

Voici mon programme qui me sert juste à lire le fichier :

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. exo1.
               ENVIRONMENT DIVISION.

               FILE-CONTROL.
                       SELECT VINCENT ASSIGN TO 'C:\vince.txt'
                                   ORGANIZATION SEQUENTIAL
                                   FILE STATUS ETAT-EMPLOYE.
               DATA DIVISION.
               FILE SECTION.
               FD VINCENT.
               01 ART-EMPLOYE.
                   02 CODE-EMP PIC X(5).
                   02 NOM PIC X(20).
                   02 PREN PIC X(20).
                   02 ADRESSE PIC X(19).
                   02 FILLER PIC X.

               working-storage section.
               01 ETAT-EMPLOYE PIC XX.

               procedure division.
                   OPEN INPUT VINCENT
                   READ VINCENT
                   PERFORM UNTIL ETAT-EMPLOYE = '10'
                   DISPLAY CODE-EMP NOM PREN ADRESSE
                   DISPLAY ETAT-EMPLOYE
                   READ VINCENT
                   END-PERFORM
                   CLOSE VINCENT
                   STOP RUN.

Et voilà mon ficher de sortie qui n'est pas bon (grrr!)

00225zizou zinedime marseille
00

00030ribery franck munich
00

00035valbuena matthieu michelet
00

00035valbuena matthieu michelet
9↕

Ca ne trouve pas la fin de fichier, je pense que c'est un problème dans le fichier txt, mais je sais pas comment le configurer
help svp...

**Hédhili Jaïdane** · 10/03/2008, 09h26

Bonjour.

Ah, ce n'est plus un problème de lecture mais de fin de fichier. C'est le read perform qui n'est pas très bon. Je ne sais si c'est bien '10' comme status file qui indique la fin.

Perso je ferais :

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
IDENTIFICATION DIVISION.
               Program-id. exo1.
               ENVIRONMENT DIVISION.

               FILE-CONTROL.
                       SELECT VINCENT ASSIGN TO 'C:\vince.txt'
                                   ORGANIZATION SEQUENTIAL
                                   FILE STATUS ETAT-EMPLOYE.
               DATA DIVISION.
               FILE SECTION.
               FD VINCENT.
               01 ART-EMPLOYE.
                   02 CODE-EMP PIC X(5).
                   02 NOM PIC X(20).
                   02 PREN PIC X(20).
                   02 ADRESSE PIC X(19).
                   02 FILLER PIC X.

               working-storage section.
               01 ETAT-EMPLOYE PIC XX.
                  01 FIN-FICHIER     PIC X.
                  88 FDF VALUE '1'.

               procedure division.
                   OPEN INPUT VINCENT.
                   MOVE 0 TO FIN-FICHIER.
                   PERFORM UNTIL FDF
                        READ VINCENT
                                AT END MOVE 1 TO FIN-FICHIER
                                           CLOSE VINVENT
                                            STOP RUN
                                 NOT AT END
                                            DISPLAY CODE-EMP NOM PREN ADRESSE
                   END-PERFORM.

**libuma** · 12/03/2008, 15h38

Salut ,
Je n'utilise pas le file status, mais tu devrais essayer de cette manière :

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
IDENTIFICATION DIVISION.
               Program-id. exo1.
               ENVIRONMENT DIVISION.

               FILE-CONTROL.
                       SELECT VINCENT ASSIGN TO 'C:\vince.txt'
                                   ORGANIZATION SEQUENTIAL
                                   FILE STATUS ETAT-EMPLOYE.
               DATA DIVISION.
               FILE SECTION.
               FD VINCENT.
               01 ART-EMPLOYE.
                   02 CODE-EMP PIC X(5).
                   02 NOM PIC X(20).
                   02 PREN PIC X(20).
                   02 ADRESSE PIC X(19).
                   02 FILLER PIC X.

               working-storage section.
               01 ETAT-EMPLOYE PIC XX.
               01 FI-VINCENT pic 9.
                     88 EOF value 1.

               procedure division.
                   MOVE 0 to FI-VINCENT.
                   OPEN INPUT VINCENT.
                   READ VINCENT
                        AT END MOVE 1 TO FI-VINCENT
                   END-READ.

                   PERFORM UNTIL EOF
                   DISPLAY CODE-EMP NOM PREN ADRESSE
                   DISPLAY ETAT-EMPLOYE
                   READ VINCENT
                        AT END MOVE 1 TO FI-VINCENT
                   END-READ
                   END-PERFORM.

                   CLOSE VINCENT.
                   STOP RUN.

J'espère que ça t'aidera

**vince3132** · 14/03/2008, 13h43

JE VAIS ESSAYER et je vous tiens informés
merci pour vos collaborations

[PC] [Visual Object Cobol] Lecture de fichier .txt

Cobol

Discussions similaires

Partager

Partager