an initial READ before the processing loop, with additional READs at the bottom of the loop: > > ```cobol > PERFORM 1100-READ-FIRST-RECORD > PERFORM 2000-PROCESS UNTIL WS-END-OF-FILE > ... > > 2000-PROCESS. > PERFORM 2100-PROCESS-RECORD > READ TXN-INPUT-FILE > AT END SET WS-END-OF-FILE TO TRUE > NOT