Tema: Ayuda a rellenar un Char con ceros Izq
Ver Mensaje Individual
  #7  
Viejo 15/09/09, 15:07:46
Tonnyman Tonnyman is offline
Member
  
Fecha de Ingreso: dic 2006
Mensajes: 53
data: a7_1 TYPE string,
val TYPE i,
val1 TYPE string.

a7_1 = '1-k'.
val1 = strlen( a7_1 ).

IF val1 < 20.
val = 20 - val1.
ENDIF.


DO val TIMES.
CONCATENATE '0' a7_1 INTO a7_1.
ENDDO.


WRITE a7_1.