负号提前，保留千位符

FORM sign_in_front USING value1 CHANGING value3.

 

*个人偷懒，参考网上，不知道是否有误，先提交使用

*备注value1定义为货币类型长度31，value3定义为char31 . alv输出为value3

  DATA : VALUE2 TYPE P DECIMALS 2.
  DATA : STRING1 TYPE CHAR31.
  VALUE2 = ABS( VALUE1 ).

  WRITE VALUE2 TO STRING1.

  CONDENSE STRING1.

  IF VALUE1 < 0.
*    WRITE:/ '处理后输出样式：', '-', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO  .
*    WRITE:/ '-', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO TO VALUE3.
    CONCATENATE  '-'  STRING1  INTO VALUE3 .
  ENDIF.

ENDFORM.                  " SIGN_IN_FRONT