Re: infinite loop

that loop's been running for 20 years.

On 9/14/06, Mark Allen <scprideandms@xxxxxxxxx> wrote:

dou IBMgetsacluehowtomarketthe400iseriesi5

On 9/14/06, Albert York <albertyork@xxxxxxxxx> wrote:
>
> I use
>
> *on doweq *on
>
> or dow *on = *on
>
> Albert
>
> ----- Original Message -----
> From: "Ron Power"
> To: "RPG programming on the AS400 / iSeries"
> Subject: Re: infinite loop
> Date: Thu, 14 Sep 2006 16:11:45 -0230
>
>
> *hival as far as I knew has no end... isn't it an infinite number?
>
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
>
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of
> enthusiasm. -
> Sir Winston Churchill
>
>
>
>
> "rick baird"
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/09/14 04:07 PM
> Please respond to
> RPG programming on the AS400 / iSeries
>
>
> To
> "RPG programming on the AS400 / iSeries"
> cc
>
> Subject
> Re: infinite loop
>
>
>
>
>
>
> Rob, I like your way better anyway - no math.
>
> "do *hival" probably does an increment and compare.
> "dow 1=1" only compares.
>
> and, wouldn't "do *hival" eventually reach an end?
>
> how big a number is *hival?
>
> On 9/14/06, rob@xxxxxxxxx wrote:
> > dow 1=1; // perhaps?
> >
> > Rob Berendt
> > --
> > Group Dekko Services, LLC
> > Dept 01.073
> > PO Box 2000
> > Dock 108
> > 6928N 400E
> > Kendallville, IN 46755
> > http://www.dekko.com
> >
> >
> >
> >
> >
> > "Lim Hock-Chai"
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 09/14/2006 02:26 PM
> > Please respond to
> > RPG programming on the AS400 / iSeries
> >
> >
> > To
> > "RPG programming on the AS400 / iSeries"
> > cc
> >
> > Subject
> > infinite loop
> >
> >
> >
> >
> >
> >
> > In fix format, I use to do below for infinite loop
> > C do *hival
> >
> >
> > is there a way to do this similar syntax in free format with
> declare a
> > variable?
> > --
> > This is the RPG programming on the AS400 / iSeries (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 is the RPG programming on the AS400 / iSeries (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 is the RPG programming on the AS400 / iSeries (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 communication and accompanying documents is intended
> only for the individual or entity to which it is addressed and may
> contain information that is confidential, privileged or exempt from
> disclosure under applicable law. Any use of this information by
> individuals or entities other than the intended recipient is
> strictly prohibited. If you have received this in error, please
> notify the sender and delete all the copies (electronic or
> otherwise) immediately.
> --
> This is the RPG programming on the AS400 / iSeries (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 is the RPG programming on the AS400 / iSeries (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.
>
>


--
Franchise Baseball League (Mississippi River Rats)
http://www.zuknation.net/FBL/

The American Pastime (Cincinnati Reds)
http://www.legendsport.com/baseball/tap/

La Lega Mexicana (Monclova)
http://llm.ootp-online.com/

Forever Baseball Association (Mississippi River Rats)
http://www.mlbs.lunarpages.com/web/index.htm

United League (Louisville Colonels)
http://www.smithtj.com/unitedleague/

World league Baseball (Sao Paulo)
http://wlb-ootp-online.com/

brought to you by www.ootpdevelopments.com
--
This is the RPG programming on the AS400 / iSeries (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.