Lecture parallèle de fichier : COBOL

Bonjour tout le monde,

Je suis en première année en informatique et je dois faire un programme COBOL qui lis en parallèle deux fichiers. J'ai juste un petit problème au niveau d'une lecture. J'ai néanmoins réussi à cibler l'erreur, elle se situe au niveau de l'instruction suivanter :

READ JF032003 AT END DISPLAY "ERR FICH VIDE".

Elle se situe dans un perform qui doit en fait tester deux nombres et si ceux-ci sont les même écrire un nom. Le fichier a déjà été parcouru 2 fois dans le même programme pour des fins différentes, il est ouvert ainsi que le second, et je ne les ai pas fermer.

Quand j'en lève cette instruction, le programme écrit toujours les même nom (car il n'effectue pas la recherche vu qu'il reste toujours sur le même nom) et il ne me met pas d'erreur d'exécution. Et quand je la met, il y a une erreur d'exécution et il n'écrit qu'une seule ligne.

Je travaille sous IBM AS/400, donc os/400.

Si vous avez envie de m'aider et que je n'ai pas été assez claire sur la façon dont mon programme est réaliser, vous pouvez me contacter et je vous enverrai une copie de celui-ci.

Merci d'avance, ce serai sympatique si quelqu'un peut m'éclairer, même juste me donner une piste, je vous en serai très reconnaissante.

Et encore merci.