***检查字段类型

DESCRIBE FIELD l_str TYPE l_type.  "详细描述见F1帮助

**********************************************************************

***判断输入的值是不是数字
DATAl_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.
**********************************************************************

 

posted on 2013-08-23 16:02  风语/仝  阅读(255)  评论(0编辑  收藏  举报