Bonjour à tous,
je suis en train d 'analyser un code source d'un gros programme de gestion de paie en cobol, je tombe souvent sur l'instruction de lecture d'un fichier ; pour info je n'ai pas d'accès à la DATA DIVISION (verrouillée ) donc je n'ai aucune visibilité sur la structure du fichier à lire , mais j'ai l'instruction :
je dispose d'un outil de couverture du code , qui permet de voir quelles instructions ont été exécutée (affichées en vert) et celles non exécutées (affichées en rouge) , et justement sur ce bloc , ce qui vient derrière le NOT AT END qui reste en rouge , on m’explique que la raison est que le fichier ME EST VIDE ;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 READ ME-FICHIER AT END MOVE HIGH-VALUE TO ME00 ME99 MOVE '1' TO ME-CFIN NOT AT END ADD 1 TO ME-CTRELU END-READ.
Je ne comprends pas le fonctionnement du" read at end ....... not at end " , est il possible de m'expliquer? si on arrive pas à la fin du fichier voudrait il dire que le fichier est impérativement vide?
Merci beaucoup
Partager