Ayuda con do varying

[efranerv]

Hola buenas estoy modificando un codigo en unicode para una migracion y tengo que reescribir este codigo:

DO 15 TIMES VARYING up_ziffer FROM int_zahl+0 NEXT int_zahl+1.

up_feldnr = 16 - sy-index.
WRITE up_feldnr TO up_feld+9.
ASSIGN (up_feld) TO <feld>.
PERFORM t015z_lesen USING '0' up_ziffer.
TRANSLATE t015z-wort USING '; '.
IF t015z-wort+4 EQ space AND int_filler NE space.
SHIFT t015z-wort RIGHT.
ENDIF.
TRANSLATE t015z-wort USING int_filler.
<feld> = t015z-wort.

ENDDO.

cambiando el Do Varying por Assign Increment, si alguien me puede ayudar se los agradeceria.