funcion para agregar ceros a izquierda a un char

[matiaspostay]

Hola, necesito una funcion para agregar ceros a izquierda a un char y otra para quitar ceros a izquierda a un char (MATNR). Espero me puedan ayudar, muchas gracias

[mysmb2]

hola usa CONVERSION_EXIT_ALPHA_INPUT y CONVERSION_EXIT_ALPHA_OUTPUT.


SALUDOS.

[matiaspostay]

hola usa CONVERSION_EXIT_ALPHA_INPUT y CONVERSION_EXIT_ALPHA_OUTPUT.


SALUDOS.

No me sirve ya que es un char y cuando pongo una letra no me quita/agrega los ceros. Ej: 00067U3064

[robert_milan]

dale un:

loop at it_File.
SHIFT it_file-matnr RIGHT DELETING TRAILING SPACE.
Do.
replace space with '0 ' into it_file-matnr.
if sy-subrc <> 0.
exit.
endif.
enddo.
endloop.

espero te sirva

[smontenegro]

Si por ejemplo tenes una variable de tipo C de longitud 10, haces lo siguiente:

OVERLAY variable WITH '0000000000'.

Esto reemplaza los espacios en blanco con ceros.

Saludos!

[larmadovr]

Que tal:

si deseas agregar 0 a la izq, pasa el char a una variable tipo N con la longitud deseada, y de esta manera tendras el matnr con el número relleno de ceros.

Si lo quieres quitar, usa REMPLACE '0' with space y despues el CONDENSE NO-GAPS

Espero te sirva, si quieres un ejemplo avisame para hacer uno.