DB2 / SQL / String auf gültige Zeichen prüfen

[rissling]

So sieht jetzt die Lösung aus:

       //-----------------------------------------------------------------------       // XML-String prüfen
       //-----------------------------------------------------------------------
       dcl-proc XMLConvert;
         dcl-pi *N;
            $string ucs2(5000);
         end-pi;


         dcl-s #i    int(10);
         dcl-s $ch   ucs2(1);
         dcl-s $temp varchar(5001) inz('');


         for #i = 1 to %len(%trim($string));
           $ch = %char(%subst($string:#i:1));
           if    $ch =  u'0009'
             or  $ch =  u'000A'
             or  $ch =  u'000D'
             or ($ch >= u'0020' and $ch <= u'D7FF')
             or ($ch >= u'E000' and $ch <= u'FFFD')
             or ($ch >= u'00010000' and $ch <= u'0010FFFF');
             $temp = $temp + $ch;
           else;
             $temp = $temp + ' ';
           endif;
         endfor;
         $string = $temp;
         return;
       end-proc;

So funktioniert es erst mal.

Vielen Dank für das auf den richtigen Weg bringen! :-)