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



I end up declared a variable and do below for clarity:

D ENDLESSLOOP     c                   const('1')

 /free                                          
    dow ENDLESSLOOP;                            
    enddo;                                      
                                                
    . . . 
 /end-free                                        

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Thursday, September 14, 2006 1:39 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: infinite loop

Not as intuitive but that would work.  That is what I used to do in fix
format until I found out that I can do (do *hival).  

Not sure why "do" is not supported in free format. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, September 14, 2006 1:33 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: infinite loop

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" <Lim.Hock-Chai@xxxxxxxxxxxxxxx> Sent by:
rpg400-l-bounces@xxxxxxxxxxxx
09/14/2006 02:26 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
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?

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.