RE: Unwanted loop with %SCAN and %REPLACE

Pete,
Because you changing the data in BITACL, therefore ITCLS is the same on each
iteration of the loop, so it will always find the data in ITCLS on the
scan--it never changes.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Peter Vidal
Sent: Friday, December 12, 2003 9:38 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Unwanted loop with %SCAN and %REPLACE

Hi list!

Why this is getting into a loop?  I pulled this from the archives for a
similar
situation I have but apparently I am doing something wrong...

D ITCLS           s              4a   Inz('G08')
D BITACL          s              3a

 /Free
     Dow (%scan('0': ITCLS) > 0);
       BITACL = %replace(''  : ITCLS: %scan('0': ITCLS): 1);
     Enddo;
     *InLR = *On;
 /End-Free

TIA!

Peter Vidal
Pall Aeropower Corp.
SR Programmer Analyst
WWW.Pall.com

"Have a very Merry Christmas and a more blessed new year 2004 and remember:
JESUS is the reason for the season."
Myself




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