On Mon, 18 Feb 2013 09:23:52 -0600, John McKown wrote: >A friend of mine had something similar. He did a > >PERFORM UNTIL FILE-EOF > READ ... AT END SET FILE-EOF TO TRUE. > IF NOT FILE-EOF THEN ... > the rest of the program > END-IF >END-PERFORM > In any wisely designed language, READ is a function returning a boolean value indicating success or failure which can be tested in the loop control statement:
WHILE READ ... PERFORM the rest of the program END-PERFORM -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN