ALV负号向前

FUNCTION CONVERSION_EXIT_Z0002_OUTPUT.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(INPUT) OPTIONAL
*"  EXPORTING
*"     REFERENCE(OUTPUT)
*"----------------------------------------------------------------------

  DATA: output1(20),
        output2(20),
        outnum(16) TYPE p DECIMALS 2.
  IF input IS NOT INITIAL .
    outnum = input.
    IF  input >= 0.
      WRITE outnum TO output1.
    ELSE.
      outnum = -1 * outnum.
      WRITE outnum TO output1.
      CONCATENATE '-' output1 INTO output1.
    ENDIF.
  ELSE.
    CLEAR output1.
  ENDIF.
  CONDENSE  output1 NO-GAPS.
  WRITE output1 TO output2 RIGHT-JUSTIFIED.
  output = output2.
  CLEAR :output2.

 

ENDFUNCTION.