[Alfredosite]

Puede aplicar este algoritmo:

PARAMETERS: p_cadena TYPE string."Parametro y/o valor de campo a tratar(alfanumerico)

DATA: gv_out TYPE string,"Salida luego del tratamiento(quitar valores alpha)
gv_int TYPE i, "Captura los valores numéricos
gv_cont TYPE i, "Contador de recorrido de cadena
gv_char1 TYPE c.

RANGES: lr_num FOR gv_char1.

START-OF-SELECTION.

lr_num-sign = 'I'.
lr_num-option = 'BT'.
lr_num-low = '0'.
lr_num-high = '9'.
APPEND lr_num.

gv_cont = STRLEN( p_cadena ).

DO gv_cont TIMES.
IF p_cadena+gv_int(1) IN gr_num.
CONCATENATE gv_out p_cadena+gv_int(1) INTO gv_out .
ENDIF.
ADD 1 TO gv_int.
ENDDO.

WRITE: gv_out .