NUMERIC_CHECK

文章

ABAP判断字串是不是为数字

通过abap函数NUMERIC_CHECK判断字符串是否为数字

判断字串是否为数字并输出补零
　　FM：NUMERIC_CHECK
　　两种输出结果：NUMC 、CHAR
　　L_SAKNR = I_FICHERO-LINEA+L_POS(10).
　　CALL FUNCTION 'NUMERIC_CHECK'
　　EXPORTING
　　STRING_IN = L_SAKNR
　　IMPORTING
　　HTYPE     = L_TIPO.
　　IF L_SAKNR > '0000000000' AND L_SAKNR <= '9999999999'
　　AND L_TIPO = 'NUMC'.
　　V_SAKNR = L_SAKNR.
　　补获系统异常方法：
　　REPORT  ZSDR014.
DATA:A TYPE I,
     B TYPE C LENGTH 20,
     ERROR TYPE REF TO CX_ROOT,
     MESSAGE TYPE STRING.
B = '8.050'.

TRY .
    A = B.
    MESSAGE '无异常情况' TYPE 'E'.
  CATCH CX_SY_CONVERSION_NO_NUMBER INTO ERROR.

MESSAGE = ERROR->GET_LONGTEXT( ).
MESSAGE MESSAGE TYPE 'E'.
ENDTRY.

判断字串是否为数字并输出补零

　　FM：NUMERIC_CHECK

　　两种输出结果：NUMC 、CHAR

　　L_SAKNR = I_FICHERO-LINEA+L_POS(10).

　　CALL FUNCTION 'NUMERIC_CHECK'

　　EXPORTING

　　STRING_IN = L_SAKNR

　　IMPORTING

　　HTYPE = L_TIPO.

　　IF L_SAKNR > '0000000000' AND L_SAKNR <= '9999999999'

　　AND L_TIPO = 'NUMC'.

　　V_SAKNR = L_SAKNR.

　　补获系统异常方法：

　　REPORT ZSDR014.

DATA:A TYPE I,

B TYPE C LENGTH 20,

ERROR TYPE REF TO CX_ROOT,

MESSAGE TYPE STRING.

B = '8.050'.

TRY .

A = B.

MESSAGE '无异常情况' TYPE 'E'.

CATCH CX_SY_CONVERSION_NO_NUMBER INTO ERROR.

MESSAGE = ERROR->GET_LONGTEXT( ).

MESSAGE MESSAGE TYPE 'E'.

ENDTRY.

2017.05.20

4.6K000