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---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
