RE: trimming non-numerics

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I think the optimizer will figure that out so we don't have to bother with
it.
-Bob


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