necesito una 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

[gcid]

existen estas funciones.
CONVERSION_EXIT_ALPHA_INPUT: llena con 0 la izq. '000000001'.
CONVERSION_EXIT_ALPHA_OUTPUT: borra 0 a la izq.
ojala te sirvan.
salu2.

[matiaspostay]

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

[conrad10ar]

La manera más fácil es haciendo un UNPACK nombredevariable, para que te agregue los 0, y un PACK para que los elimine.

Saludos

[jgeonas]

WRITE im_data_new-bednr TO l_kostl RIGHT-JUSTIFIED.
TRANSLATE l_kostl USING ' 0'.

[jflinaj]

si el problema para usar las funciones que te ha dicho gcid por que es un texto no tienes mas convertirlo a integer y luego aplicar la funcion.
MOVE STRCLAVE(char3) TO INTCLAVE(int).
lo de las parentesis no creo que es necesario ponerlo pero cada variable si que tiene del tipo correspondiente.
y luego aplicar la funcion con la variable integer.

[abapconsultoria]

Que tal con la funcion instruccion OVERLAY

OVERLAY text1 WITH text2 [ONLY pattern].


Saludos.

[zonanet]

Saludos a todo el foro:

Yo necesité hacer lo mismo (quitar los ceros) y la manera más sencilla y rápida fue con el PACK, gracias a conrad10ar por la información.

No he utilizado el unpack, pero les haré llegar mis resultados..