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

Just have to chime in here.

One of my professors "dinged" us for primary reads. His reason? If you
have a do loop check it then. His style was

Dow 1= 1
Read
If %EOf
Leave
Endif
Process
Enddo

I still remember the ruler on my hands.

Sharon Wintermute

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Christen, Duane J.
Sent: Friday, January 09, 2009 12:59 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

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.