      * https://medium.com/@eugenio.andrieu_63440/declaratives-in-cobol-a-hidden-but-powerful-tool-dd366be70789
        IDENTIFICATION DIVISION.
        PROGRAM-ID. DECLARATIVE-DEMO.

        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
        SELECT StudentFile ASSIGN TO "students.dat"
        ORGANIZATION IS SEQUENTIAL
        ACCESS MODE IS SEQUENTIAL
        FILE STATUS IS WS-STATUS.

        DATA DIVISION.
        FILE SECTION.
        FD StudentFile.
        01 StudentRecord.
        05 StudentID   PIC 9(3).
        05 StudentName PIC X(20).

        WORKING-STORAGE SECTION.
        01 WS-STATUS PIC XX.

        PROCEDURE DIVISION.
        DECLARATIVES.
        FILE-ERROR-HANDLING SECTION.
        USE AFTER STANDARD ERROR PROCEDURE ON StudentFile.
        FILE-ERROR-PARA.
        DISPLAY "File error occurred. Status = " WS-STATUS
        STOP RUN.
        END DECLARATIVES.

        MAIN-LOGIC SECTION.
        DISPLAY "Opening file..."
        OPEN INPUT StudentFile
        READ StudentFile AT END DISPLAY "No records found." END-READ
        CLOSE StudentFile
        STOP RUN.
