Re: trimming non-numerics

[Hans Boldt <boldt@xxxxxxxxxx>]

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