Funcion que chequea si el contenido de una variable es numerico o no.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
string_in = v_lisel+36(10)
IMPORTING
* string_out =
htype = v_tipo
EXCEPTIONS
OTHERS = 1.
IF v_tipo EQ 'NUMC'.
WRITE “Es numerico”.
ENDIF
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
string_in = v_lisel+36(10)
IMPORTING
* string_out =
htype = v_tipo
EXCEPTIONS
OTHERS = 1.
IF v_tipo EQ 'NUMC'.
WRITE “Es numerico”.
ENDIF