Code: Alles auswählen.
...
DATA FELD2(35).
I = 35 - STRLEN( FELD2 ).
I = I - 5.
* MOVE FELD2(35) TO FELD2B.
* FELD2B = FELD2(35).
DATA: ANZ TYPE I.
ANZ = 1.
DO I TIMES.
IF ANZ = 1.
CONCATENATE FELD2B ' ' INTO FELD2NEU.
ELSE.
CONCATENATE FELD2NEU ' ' INTO FELD2NEU.
ENDIF.
ANZ = ANZ + 1.
ENDDO.
CONCATENATE FELD2NEU '\2000' INTO FELD2NEU.