使用CONDENSE text [NO-GAPS]. 删除字符串中的空格。
DATA sum TYPE i VALUE 400.
DATA : NUMS TYPE STRING VALUE '12345678.09'.
DATA : LEN TYPE I.
DATA : POS TYPE I.
DATA : RESULT TYPE STRING.
DATA bezei LIKE tvm1t-bezei.
bezei = '200Kg'.
LEN = STRLEN( bezei ).
POS = 0.
WHILE POS LT LEN.
IF bezei+POS(1) CA NUMS.
CONCATENATE RESULT bezei+POS(1) INTO RESULT.
ENDIF.
POS = POS + 1.
ENDWHILE.
CONDENSE RESULT NO-GAPS.
sum = sum / RESULT.
WRITE / sum.