NUMERIC_CHECK

• Editing and checking numeric fields
• 判斷某個字串的內容是否可轉為數字。
• 但此 Function 會將「1.00」，「-1」，「1-」視為字串。
• 可參考 ABAPString 的程式碼來判斷字串是否可轉為數字。

Code

  DATA: l_adrnr LIKE lfa1-adrnr,
        l_sort2 LIKE adrc-sort2,
        l_string TYPE string,
        l_htype LIKE dd01v-datatype.

  CLEAR: fo_vendor.

  CONDENSE fi_employee.

  CALL FUNCTION 'NUMERIC_CHECK'
    EXPORTING
      string_in  = fi_employee
    IMPORTING
      string_out = l_sort2
      htype      = l_htype.

  IF l_htype EQ 'NUMC'.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = fi_employee
      IMPORTING
        output = l_sort2.
  ENDIF.