Re: infinite loop

["rick baird" <rick.baird@xxxxxxxxx>]

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.