ABAP 去除金额中除去数字的其他符号

PARAMETERS p_c TYPE char10.
*PARAMETERS p_c TYPE netwr_ak.
DATA l_n TYPE char10 VALUE '0123456789'.
DATA: l_curr TYPE netwr_ak,
      l_tmp TYPE string,
      l_tmp1 TYPE c,
      l_count TYPE i,
      len TYPE i.

len = strlen( p_c ).
DO .
  MOVE p_c+l_count(1) TO l_tmp1.
  IF l_tmp1 CO l_n.
    CONCATENATE l_tmp l_tmp1 INTO l_tmp.
  ENDIF.
  l_count = l_count + 1.
  IF l_count EQ len.
    EXIT.
  ENDIF.
ENDDO.
l_curr = l_tmp.
WRITE l_curr.