DATA: LV_STR(20) TYPE C, LV_TYPE(4) TYPE C.
data : lv_dec type p LENGTH 10 DECIMALS 5.
lv_dec = '123.456'.
lv_str = lv_dec.
REPLACE '.' with space INTO lv_str.
CONDENSE lv_str NO-GAPS.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = LV_STR
IMPORTING
HTYPE = LV_TYPE.
if lv_type <> 'NUMC'.
*// Error
endif.
write : LV_TYPE.
data : lv_dec type p LENGTH 10 DECIMALS 5.
lv_dec = '123.456'.
lv_str = lv_dec.
REPLACE '.' with space INTO lv_str.
CONDENSE lv_str NO-GAPS.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = LV_STR
IMPORTING
HTYPE = LV_TYPE.
if lv_type <> 'NUMC'.
*// Error
endif.
write : LV_TYPE.
감사합니다~ 유용하게 잘 쓸께요~