× 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.



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.