RE: Do Forever (was: read on a do loop)

dow 1 = 1;
 
does the same thing

________________________________

From: rpg400-l-bounces@xxxxxxxxxxxx on behalf of Paul Morgan
Sent: Mon 8/22/2005 3:05 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Do Forever (was: read on a do loop)



I don't know why they didn't allow the DO opcode in free format so we could
code DO FOREVER as:

Do
EndDo;

It would also be nice to be able to code a DO WHILE as:

Do TestSomething();
EndDo;

and a DO UNTIL as:

Do;
EndDo TestSomething();

You could also combine them with:

Do TestSomething();
EndDo TestSomethingElse();

Paul

--
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

Raul wrote

> I think the DO FOREVER is a great option, as a mather of fact, a very
> good programming languaje used in the AS/400 has it (REXX).  It is
> better than DOU '0'.



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