숫자 값인 지 구분

  FORM CHECK_NUMBER  USING    P_VALUE
                   CHANGING P_SUBRC.



  DATA: LV_INPUT(15) TYPE C,
        LV_RETURN LIKE CATS_ITS_FIELDS-NUM_VALUE.


  LV_INPUT = P_VALUE.


  CALL FUNCTION 'CATS_ITS_MAKE_STRING_NUMERICAL'
    EXPORTING
      INPUT_STRING   = LV_INPUT
    IMPORTING
      VALUE          = LV_RETURN
    EXCEPTIONS
      NOT_NUMERICAL       = 1
      OTHERS              = 2
      .

  P_SUBRC = SY-SUBRC.

ENDFORM.                    " CHECK_NUMBER