|
[Marvin Radding:] I have been using iter for a few years now. [Marvin Radding:] Here is my code: /free Setll myfile; Dou %eof(myfile); Read myfile; If %eof(myfile); Iter; Endif; // other processing Enddo; /end-free One thing I like about this paradigm, when I decide I want to skip this record a simple 'iter' will get me the next record. Simple and easy to understand code. Marvin -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx Sent: Friday, August 19, 2005 8:41 AM To: rpg400-l@xxxxxxxxxxxx Subject: read on a do loop Since I've developed a fondness for iter I'd like to do something like ... setll(e) MyFile Mykey; dou %status(reade(e) MyFile MyKey)<>0; // process ... iter; else; ... EndDo; I take it the way to do this is to make a one statement subprocedure that does the reade and make the code look like setll(e) MyFile Mykey; dou ReadLoopProc<>0; // process ... iter; else; ... EndDo; P ReadLoopProc b D ReadLoopProc PI like(returnvar) D returnvar s 5i 0 /free reade(e) MyFile MyKey; returnvar=%status(MyFile); return returnvar; /end-free P ReadLoopProc E Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.com --
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.