IBM Cobol provides the structure format:
I-P.
READ FILE
AT END
* the at end stuff
NOT AT END
* the not at end stuff
END-READ
IBM Mainframe Discussion List <[email protected]> wrote on 04/16/2012
08:28:10 AM:
> From: "McKown, John" <[email protected]>
>
> PERFORM I-P THRU I-P-EXIT UNTIL CONDITION.
>
> I-P.
> READ FILE AT END
> SET CONDITION TO TRUE
> GO TO I-P-EXIT
> END-READ
> ...
> I-P-EXIT.
> EXIT.
-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom
it is addressed. If the reader of this message is not the intended
recipient or an agent responsible for delivering it to the intended
recipient, you are hereby notified that you have received this
communication in error and that any review, dissemination, copying,
or unauthorized use of this information, or the taking of any
action in reliance on the contents of this information is strictly
prohibited. If you have received this communication in error,
please notify us immediately by e-mail, and delete the original
message. Thank you
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
