O también podrias manejarlo de esta forma:
data: a7_1 TYPE string,
a7_2 TYPE char20,
val TYPE i,
val1 TYPE string.
a7_1 = '1-k'.
val1 = strlen( a7_1 ).
IF val1 < 20.
val = 20 - val1.
DO val TIMES.
CONCATENATE '0' a7_1 INTO a7_1.
ENDDO.
ENDIF.
a7_2 = a7_1.
WRITE a7_2.
Espero haber podido ayudar.
Saludos.
|