Die geht naturlich auch
Code:
d TimeNum         s              4p 0 inz(0708)              
d TimeChar        s              5a                          
 /free                                                       
  TimeChar = %trim(%editw(TimeNum: '0  :  '));