Cobol fichiers indexes

bon voila, j'ai un programme en cobol qui crée un fichier sequentiel et je veux le transformer en fichier sequentiel indexé pour 2-3 cas mais le garder en sequentiel pour d'autres...

j'ai ecris ça :

move 0 to bfin brempli nb
open input enregistrement
open i-o seq-enregistrement
read enregistrement at end move 1 to bfin end-read
perform until bfin=1
read enregistrement at end move 1 to bfin end-read
write seq-enregistremen invalid key end-write
end-perform
close enregistrement
close seq-enregistrement

enregistrement = fichier sequentiel
seq-enregistrement = fichier sequentiel indexé.
ça ne marche pas... il doit y avoir un pb au niveau de la boucle ou de la clé... je nai pas tres bien compris la maniere dont elle est utilisée :)
est ce que quelqun pourrait m'aider pour transformer le sequentiel en sequentiel indexé merci ^^