× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Great, just like the cycle does it... :-)

Christen, Duane J. wrote:

Your both wrong. :-)

Read file;

DoW Not %Eof(file);
// process data
Read file;
EndDo;




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Crosby
Sent: Friday, January 09, 2009 12:39 PM
To: 'RPG programming on the IBM i / System i'
Subject: RE: Good places to use "The Cycle" in today's RPG
was->Re: FW: Niftiest thing(s) you have done in RPG ILE or /FREE

I do it the way you don't.

dow '1';
read file;
if eof;
leave;
endif;
processdata;
enddo;

That's MY opinion and I'm sticking to it. <g>

--
Jeff Crosby
UniPro FoodService/Dilgard
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531
www.dilgardfoods.com

The opinions expressed are my own and not necessarily the
opinion of my company. Unless I say so.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]

On

Behalf Of GUY_HENZA@xxxxxxxxxxxxxx
Sent: Friday, January 09, 2009 1:07 PM
To: RPG programming on the IBM i / System i
Subject: Re: Good places to use "The Cycle" in today's RPG

was->Re: FW:

Niftiest thing(s) you have done in RPG ILE or /FREE

Wow, just back from lunch and so many posts. I consider ITER and
LEAVE

to

be backwards from the way I think. I condition on what I

want to do

not

on

what I don't want to do.

dou eof;
read file;
if not eof;
processdata;
endif;
enddo;

This makes more sense to me than;

dou eof;
read file;
if eof;
leave;
endif;
processdata;
enddo;

That's my opinion and I'm sticking with it.

Regards,

Guy

Inactive hide details for "James Perkins"

<jrperkinsjr@xxxxxxxxx>"James

Perkins" <jrperkinsjr@xxxxxxxxx>

"James Perkins" To "RPG

programming on
the

<jrperkinsjr@xxxxxxxxx> IBM i /

System i"

Sent by:

<rpg400-l@xxxxxxxxxxxx>

rpg400-l-bounces@xxxxxxxxxxxx cc
Subject Re:

Good places to use

01/09/2009 11:36 AM "The

Cycle" in today's

RPG was->Re: FW:

Niftiest

+---------------------------+

thing(s) you have done
in

| Please respond to | RPG ILE or /FREE
| RPG programming on the |
| IBM i / System i |
| <rpg400-l@xxxxxxxxxxxx> |
+---------------------------+

If you don't use ITER or LEAVE do you just have a giant IF
statement,

with

loads of nested IF's? I really can't see how you could

right a program

that
uses logic any other way, but then again just because I

can't think if

doesn't mean there is not a way.

James R. Perkins
--



--------------------------------------------------------------
------------

-----
The information contained in and transmitted with this

e-mail may be

privileged, proprietary, confidential and protected from

disclosure. No

privilege is hereby intended to be waived. This e-mail

is intended only

for the person to whom it is addressed. If you are not

the intended

recipient/addressee, any use of the e-mail and/or its contents,

including,

but not limited to, dissemination, distribution or

copying is strictly

prohibited and may be unlawful, and you must not take

any action in

reliance on it. If you receive this e-mail in error,

please immediately

notify the sender and delete the original message and

any copies of it

from your computer system. We deny any liability for

damages resulting

from the use of this e-mail by the unintended recipient,

including the

recipient in error.

--
This is the RPG programming on the IBM i / System i
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change
list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit
http://www.messagelabs.com/email
______________________________________________________________________



NOTICE: This electronic mail transmission may contain confidential information and is intended only for the person(s) named. Any use, copying, or disclosure by any other person is strictly prohibited. If you have received this transmission in error, please notify the sender via e-mail.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.