检查输入的内容是否位数字，以及获取字段的类型

  ***检查字段类型

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.
**********************************************************************