Re: trimming non-numerics

   The first two bytes of the field contains the length, so I imagine the
   compiler can replace the call to the BIF with a reference to the address
   in memmory, just like if it was a numerical variable.

   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

  

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