A ver si te vale esto:
DATA: lv_digitos TYPE char10 VALUE '0123456789',
lv_comprobar TYPE char128 VALUE '556'.
DATA: lv_error TYPE char1.
CALL FUNCTION 'CHECK_AND_CONVERT_NUMERICS'
EXPORTING
dmzei = '.'
dtype = 'DEC'
efeld = lv_comprobar
imp_decimals = '0'
IMPORTING
error = lv_error.
IF lv_error = 'X'.
"error, la variable tiene letras
ELSE.
"ok, la variable sólo tiene números
ENDIF.
|