***检查字段类型
DESCRIBE FIELD l_str TYPE l_type. "详细描述见Ｆ１帮助
**********************************************************************
***判断输入的值是不是数字
DATA: l_tipo LIKE dd01v-datatype.
DATA:l_saknr TYPE string.
l_saknr = '123aaa'.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
string_in = l_saknr
IMPORTING
htype = l_tipo.
IF l_tipo EQ 'NUMC'.
WRITE:'数字'.
ELSE.
WRITE: '非数字'.
ENDIF.
**********************************************************************