Verificar se um determinado valor é numerico ou uma cadeia de caracter

DATA: VALOR TYPE STRING,
TIPO TYPE C LENGTH 4.
VALOR = ‘126465’.

CALL FUNCTION ‘NUMERIC_CHECK’
EXPORTING
STRING_IN = VALOR
IMPORTING
STRING_OUT = VALOR
HTYPE = TIPO.

WRITE / TIPO.

VALOR = ‘tEXTO’.
CALL FUNCTION ‘NUMERIC_CHECK’
EXPORTING
STRING_IN = VALOR
IMPORTING
STRING_OUT = VALOR
HTYPE = TIPO.

WRITE / TIPO.