Steuerzeichen aus einem CHAR-Feld entfernen

[malzusrex]

Jetzt mal soauf die Schnell und ungetestet

**FREE

  ctl-opt  dftactgrp(*no) main(main);

  dcl-proc main;
     dcl-s Text   char(500) ;
       Text   = ClearString( Text   );
  end-proc;


  dcl-proc ClearString ;
    dcl-pi *N  char( 500 );
      $String char( 500 );
    end-pi;

    dcl-s Laenge  int(10);
    dcl-s Index   int(10);
    dcl-s Zeichen char(1);

    for Index = 1 to %len( $String );
      Zeichen = %SubSt( $String: Index: 1);
      If  Zeichen  < x'40';
        %SubSt( $String : Index: 1) = ' ';
      endif;
    endfor;

    return $String;
  end-proc; 

Sollte alles was keiner BLANK ist, eben durch ein Blank ersetzen.

Gruß
Ronald