Comment gérer les erreurs exceptionnelles sur les fichiers en Cobol ?

Déclaration du file status

FILE-CONTROL.

SELECT ....  ASSIGN 
   FILE STATUS IS FS.                        

WORKING-STORAGE SECTION.       
77  FS                 PIC XX. 

PROCEDURE DIVISION

                         DECLARATIVES.                                                   
ERREUR SECTION.  USE AFTER ERROR PROCEDURE ON I-O.              
    ERREUR.                                                         
               DISPLAY  FS                                           
 
             .                                                       
END DECLARATIVES.   

Cette routine sera appelée en cas de non traitement de l'erreur dans le code.

Par exemple, en cas d'erreur on affiche le file status.