PARAMETERS:P_INPUT TYPE STRING .
"P_INPUT = '12345678912.12345'.
IF CL_ABAP_MATCHER=>MATCHES(
PATTERN = '^(([1-9]\d{0,10}|(0{1}))(\.\d{0,3}[1-9])?)'
TEXT = P_INPUT ) = ABAP_TRUE.
MESSAGE '你输入申报单价是数字' TYPE 'S' ." DISPLAY LIKE 'E' .
ELSE.
MESSAGE '你输入申报单价不是数字' TYPE 'S' DISPLAY LIKE 'E' .
ENDIF.