Leerzeichen ersetzen?

[B.Hauser]

Hallo zusammen,

eine Frage:

Ich habe ein 5stelliges Char-Feld:

'AB 05'

Nach dem AB ist ein Leerzeichen, dann kommt 05.

Ich möchte dieses Leerzeichen per Programm rauslöschen das es dann so ausschaut:

'AB05 '

Hat jemand einen Tip wie ich das mache?

P.S. Das Feld ist in wirklichkeit 64 Stellen groß und das Leerzeichen innerhalb eines String ist variabel.

Vielen Dank

Eine Möglichkeit wäre:

D Text50          S             50A   inz('Dies   ist mein      Beispiel')
D MyString        S             50A   varying                             
 *--------------------------------------------------------
 /free                                                                 
                                                                       
    MyString = %Trim(Text50);                                          
    DoW  %Scan(' ': MyString) <> *Zeros;                               
         MyString = %Replace('' : MyString: %Scan(' ': MyString): 1);  
    EndDo;                                                             
                                                                       
    Dsply MyString;                                                    
    *InLR = *On;                                                       
 /End-Free 

Birgitta