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 [email protected] with the message: INFO IBM-MAIN
