ABAP 常规检查

1.检查数字

1.如果返回X则是  否则不是
cl_abap_matcher=>matches(
   pattern = '^(-?[1-9]\d*(\.\d*[1-9])?)|(-?0\.\d*[1-9])$'
   text = 'XXX' )

2.定义数字变量进行赋值，如果不是则会异常
  DATA l_num TYPE p LENGTH 15 DECIMALS 2.

  CATCH SYSTEM-EXCEPTIONS convt_no_number = 8.
    l_num = pu_num.
  ENDCATCH.

  IF sy-subrc = 8.
    
  ENDIF.

2.检查中文

1.如果flag = 1 则是英文，否则是中文
CALL FUNCTION 'NLS_VISUAL_CHARLEN'
  EXPORTING
     str = c1
  IMPORTING
     len_visual = flag.