probier mal :
Code:
di                s              5s 0 inz(12)      
dc                s              5a                
                                                   
c                   eval      c = %editC( i : 'X' )
                                                   
c                   return
Gruß Rolf