Rule Definition
When reading data from files, it is important to manage all the situations that can occur and especially when there is no data to read. If the "end of file" is not managed, then invalid data can be read and abnormal behavior can occur.

Remediation
Insert a AT END clause to READ statements in order to manage errors and end of file situations.

Violation Code Sample

1000-READ-DATA.                                              
        READ CARDIN INTO PEMPNO.
        PERFORM PROCESS-DATA.

Fixed Code Sample

1000-READ-DATA.                                              
        READ CARDIN INTO PEMPNO
                   AT END MOVE 'N' TO INPUT-SWITCH.

        IF  NOMORE-INPUT                                        
            DISPLAY '++ COBDTL1C EMPTY FILE ++'
            CLOSE CARDIN                                        
        ELSE
            PERFORM PROCESS-DATA.