File I/O - READ Loops

$ OPEN/READ INFLE MYFILE.DAT

$READ_LOOP:

$ READ/END=EOF_INFLE INFLE P9

$ statement(s)

$ GOTO READ_LOOP

$EOF_INFLE:

Previous slide

Next slide

Back to first slide

View graphic version

Here’s an example of a loop to read a file and process its records.

The /END_OF_FILE qualifier is used to direct control to the “EOF_INFLE” label at end of file.