Re: infinite loop

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.