Re: Infinit loop in /free

["Jason F. Kleinemas" <JasonKleinemas@xxxxxxxxxxxxx>]

Then use a constant

DLoopForever      c                   *On  

/Free                   
  Do       LoopForever; 


11/22/2003 2:43:26 PM, "Wilbert van der Hoeven" <hoeveb@xxxxxxxxxxxxxxxx> wrote:

>
>> Okay, they don't let you do it the easy way.  So use a named indicator.
>>
>>    D ON              s               n   inz(*on)
>>
>> Now:
>>
>>    /free
>>     dow ON;
>>
>> Joe
>
>Then I would go searching for the place where ON is set *Off....
>
>At least with Do *Hival you know that this is not the statement that will
>make you leave the loop.
>
>Wilbert
>
>
>_______________________________________________
>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.
>
>


Jason Kleinemas
Programmer/Analyst
Solcom Inc.
The Solutions Company http://www.solcominc.com
2516 E. 52nd St. N.
Sioux Falls, SD 57104
Desk Phone: 605-367-1546
Office Phone: 605-357-8212
AIM: JasonSolCom
jasonkleinemas@xxxxxxxxxxxxx
Certified twice....... but still a couple PTFs away from Nirvana.