Cette instruction lit le prochain enregistrement du fichier. Si la fin est atteinte, la clause AT END est déclenchée.
OPEN , READ , WRITE , REWRITE , DELETE , CLOSE
Une fois un fichier déclaré via FILE-CONTROL et FD , vous pouvez le manipuler dans la PROCEDURE DIVISION avec les instructions de gestion de fichier. Chaque opération (lecture, écriture, modification, suppression) nécessite qu’un fichier soit ouvert avec OPEN , puis fermé avec CLOSE .
OPEN – Ouvrir un fichier
OPEN INPUT FICHIER-CLIENT.
OPEN OUTPUT FICHIER-NOUVEAU.
OPEN I-O FICHIER-MODIFIABLE.
INPUT : lecture seule OUTPUT : écriture (fichier vidé au préalable) I-O : lecture/écriture EXTEND : ajout à un fichier existant READ – Lire un enregistrement
READ FICHIER-CLIENT AT END
MOVE "OUI" TO FIN-FICHIER.
Cette instruction lit le prochain enregistrement du fichier. Si la fin est atteinte, la clause AT END est déclenchée.
WRITE – Écrire un enregistrement
WRITE ENREGISTREMENT-CLIENT.
Le contenu de ENREGISTREMENT-CLIENT (défini dans la section FD ) est ajouté au fichier ouvert en OUTPUT ou EXTEND .
REWRITE – Modifier un enregistrement
REWRITE ENREGISTREMENT-CLIENT.
Doit être utilisé après avoir fait un READ du même enregistrement en mode I-O . Il remplace la dernière ligne lue.
DELETE – Supprimer un enregistrement (indexé uniquement)
DELETE FICHIER-CLIENT RECORD.
Cette instruction est disponible uniquement pour les fichiers indexés ou relatifs.
CLOSE – Fermer un fichier
CLOSE FICHIER-CLIENT.
Libère la ressource. Obligatoire à la fin du traitement sur un fichier.
OPEN INPUT FICHIER-CLIENT.
PERFORM LIRE-LIGNE UNTIL FIN-FICHIER = "OUI".
CLOSE FICHIER-CLIENT.
LIRE-LIGNE.
READ FICHIER-CLIENT AT END
MOVE "OUI" TO FIN-FICHIER
NOT AT END
DISPLAY NOM-CLIENT.
Ces instructions de base permettent :
READ : lire un enregistrement WRITE : écrire un enregistrement REWRITE : modifier un enregistrement DELETE : supprimer (si fichier indexé) OPEN / CLOSE : encadrer toutes les opérations COBOL !