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