Discussion :

[toasty666]

FILE-CONTROL.
SELECT FICHIER-ENTREE ASSIGN TO "DONNEE.TXT"
ORGANIZATION IS LINE SEQUENTIAL.
SELECT RAPPORT-IMPRIME ASSIGN TO "SORTIE.doc"
ORGANIZATION IS LINE SEQUENTIAL.
SELECT FICHIER-IDX ASSIGN TO "EMPLOYES.DAT"
ORGANIZATION IS INDEXED
ACCESS MODE IS SEQUENTIAL
RECORD KEY IS W-CODE
ALTERNATE RECORD KEY IS W-NOM-COMPLET WITH
DUPLICATES
ALTERNATE RECORD KEY IS W-DATE-ENGAGEMENT WITH
DUPLICATES.
DATA DIVISION.
FILE SECTION.
FD FICHIER-IDX.
01 FICHE-IDX PIC X(59).

01 W-FICHE-IDX.
05 W-CODE PIC X(6).
05 W-REGION PIC 99.
05 W-SEXE PIC X.
05 W-NOM-COMPLET.
10 W-NOM PIC X(20).
10 W-PRENOM PIC X(15).
05 W-DATE-ENGAGEMENT PIC 9(8).
05 W-TAUX PIC 99V99.
05 W-NB-HEURES PIC 9(3).

Je dois créer un fichier indexé mais la je suis coincé avec 3 erreurs. 3 fois la meme en fait il me donne l'erreur Key missing or illegal. Dans mon 01 W-FICHE-IDX aux clef primaire et alternative. QUelqu'un a une idée?

[toasty666]

Je devais mettre la description du fichier à l'intérieur du FD et non plus bas

[Hédhili Jaïdane]

Bonjour.

En effet, les clés primaires et secondaires doivent être définies dans la description du fichier (FD) faite dans le premier niveau 01 du FD. Les autres niveaux 01 du FD du même fichier sont des redéfinitions du premier niveau 01.

En outre, je pense que tu vas avoir des problèmes d'exécution si les enregistrements écrits dans le fichier FICHIER-IDX ne sont pas écrits dans l'ordre croissant de la clé primaire W-CODE à cause du mode d'accès SEQUENTIAL que tu as déclaré dans le SELECT du fichier. Il faudrait déclarer un accès RANDOM ou DYNAMIC.

PS / Tu devrais mettre ton code entre balises code et l'indenter pour plus de lisibilité.