RE: trimming non-numerics

On Tue, 2004-06-01 at 13:54, Joel Cochran wrote:
> 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
> 

Ignore this, I misread the code...

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