Code: Alles auswählen.
data: feld(1000) type c value '1,2,3,4,5,6,7,9,10,11,23,63'.
data: zaehler(3) type c.
do 100 times.
move sy-index to zaehler.
if sy-index < 10.
shift zaehler.
endif.
if feld ns zaehler.
write: / zaehler.
endif.
enddo.