RE: trimming non-numerics

I would think if you are removing characters, then you are changing the
length of the string.  As such, some form of checking it every iteration
would be required...

Just a thought,

Joel
http://www.rpgnext.com

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of joe
> Sent: Tuesday, June 01, 2004 10:22 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: trimming non-numerics
> 
> Hans,
> 
> I notice in your FOR loop you are evaluating the length, %len(source), each
> time through the loop.
> is it necassary to call the bif each time? ... I notice Cozzi is doing the
> same thing.
> 
> joe
> 
> ----- Original Message -----
> From: "Hans Boldt" <boldt@xxxxxxxxxx>
> To: <rpg400-l@xxxxxxxxxxxx>
> Sent: Tuesday, June 01, 2004 9:07 AM
> Subject: Re: trimming non-numerics
> 
> 
> > Bob Cozzi wrote:
> > > Jeffrey,
> > > The article I was talking about is at this link. It does the job and has
> the
> > > source that you can cut/paste into your editor of choice.
> > >
> > > http://www.mcpressonline.com/mc?1@xxxxxxxxxxxxxxxx@.6ae9a226
> > >
> > > -Bob
> > >
> >
> > Bob: That link doesn't seem to work. Either it's because mcpressonline
> > uses malformed URL's that get mangled by the mailing list software, or
> > it's because I'm too lazy to register for the site, but it shows blank
> > content for me. Could you post your code to the mailing list so we can
> > compare it to the code I posted earlier?
> >
> > In case you missed it, here's the code I posted earlier:
> >
> > ------------------------------------------------------------------
> > D i               s             10i 0
> > D source          s             50a   varying
> > D target          s             50a   varying
> >   /free
> >      source = 'jafgjh934hdfg94k3ghsd0jdfg0345jdfg';
> >      target = '';
> >
> >      // Extract digits out of source string
> >      for i = 1 to %len(source);
> >         if '0' <= %subst(source:i:1) and %subst(source:i:1) <= '9';
> >            target += %subst(source:i:1);
> >         endif;
> >      endfor;
> >
> >      // Display results
> >      dsply source;
> >      dsply target;
> >      *inlr = *on;
> >   /end-free
> > ------------------------------------------------------------------
> >
> > Cheers! Hans
> >
> > --
> > 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.