通过abap函数NUMERIC_CHECK判断字符串是否为数字
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
判断字串是否为数字并输出补零 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. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/570.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。