Coding standards here are ancient. There is the "all out-of-line PERFORMs must be of the form PERFORM name THRU name-EXIT ... END-PERFORM and all paragraphs must be followed by be followed by a "name-EXIT." paragraph with the single EXIT verb in it. Or at least, that is how every out-of-line PERFORM verbs are coded. Ancient, like most of our code. If code is updated, it is not modernized.
John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * [email protected] * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Kirk Talman > Sent: Monday, April 16, 2012 3:33 PM > To: [email protected] > Subject: Re: GO TO "cobol" > > 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 > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
