Discussion :

[libuma]

Bonjour à tous !
Je suis novice en Cobol, j'ai besoin de vos lumières pour trouver mes erreurs...
Voici les lignes qui devraient vous intéresser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    14 select personnes assign to "pers.dat"
    15 organization line sequential.
    21 select personnes-triees assign to "personnes-tri.dat".
    22 select pers-temp assign to "pers-temp.dat".

    89     open output liste.
    90     write enreg-lst from moi-titre.
    91     write enreg-lst from titre.
    92     sort pers-temp
    93     on ascending key pe-nomtr in enreg-perstemp
    94     using personnes
    95     giving personnes-triees.
    96     close liste.

Lorsque je l'exécute en mode pas à pas avec animate, il bloque sur la ligne numéro 92.
Merci d'avance !

[Hédhili Jaïdane]

Bonjour.

1° - Assure toi que :
- le fichier personnes n'est pas ouvert.
- le fichier personnes-triees n'est pas ouvert non plus
- le fichier "personnes-tri.dat" n'existe pas sur disque.
- le fichier "pers-temp.dat" n'existe pas sur disque.
2° - As tu bien un SD dans la Data Division pour le fichier pers-temp ?

En fait que dit ce RTO13 ?

[libuma]

Bonjour.

1° - Assure toi que :
- le fichier personnes n'est pas ouvert.
- le fichier personnes-triees n'est pas ouvert non plus
- le fichier "personnes-tri.dat" n'existe pas sur disque.
- le fichier "pers-temp.dat" n'existe pas sur disque.
2° - As tu bien un SD dans la Data Division pour le fichier pers-temp ?

En fait que dit ce RTO13 ?

Bonjour,
Pour le 1° j'ai tout vérifié , tout est ok..
Pour le 2° j'ai effectivement une SD.

sd pers-temp.
01 enreg-perstemp.
05 pe-ntrav pic 9(3).
05 pe-nsoc pic 9(2).
05 pe-grade pic 9.
05 pe-nomtr pic x(20).
05 pe-nbhn pic 9(2).
05 pe-nbhs pic 9(2).

Je n'ai ni erreur de compliation , ni erreur au link.
Lorsque j'exécute le programme , il me dit gentillement : Run time error number: 013.

Merci d'avoir répondu !

[Hédhili Jaïdane]

Bonjour.

Ca c'est du MF je pense.
Alors ! si mes souvenirs d'il y a quelques bonnes années sont bons le RT 013 du MF 4.5 : fichier inexistant. Donc un des fichiers qui doit exister sur disque ne l'est pas. Tu as peut être un problème de répertoire, de path par défaut (variable %path%), tu n'est pas dans le répertoire où ton pgm s'exécute, etc.

[Hédhili Jaïdane]

Re,
Addendum :

C'est bien ce que je pensais :

013 File not found (Recoverable) : The operating system has been unable to find a file which you have tried to access in your program.

Tu trouveras beaucoup de choses ici :
http://h50.isi.u-psud.fr/docmiage/cobol/html/

[libuma]

ayaaaaa la connerie !

Merci beaucoup..
J'ai tout simplement oublié un fichier.. forcément ça ne peut fonctionner

Encore merci en tout cas!