ABAP 金额字段加千分位

DATA: p TYPE p DECIMALS 2 ,
          str(16) TYPE c .

p = '-123123123.20'.

IF p < 0 .
  p = - p.
  WRITE p TO str.
  CONDENSE str.
  CONCATENATE '-' str INTO str.
  p = - p.
ELSE.
  WRITE p TO str.
ENDIF.
WRITE str.

PERFORM frm_conversion USING ls_info-debt.

FORM frm_conversion  USING  p_value.
  DATA: p TYPE p DECIMALS 2 ,
        str(30) TYPE c .
  CONDENSE p_value NO-GAPS.
  p = p_value.
  IF p < 0 .
    p = - p.
    WRITE p TO str.
    CONDENSE str.
    CONCATENATE '-' str INTO str.
    p = - p.
  ELSE.
    WRITE p TO str.
  ENDIF.
  p_value = str.
  CONDENSE p_value NO-GAPS.
ENDFORM.                    " FRM_ADD100