How to show negative(-) as parentheses

Question

Hi,
Does anybody know how to display negative sign as parentheses in ABAP report (simple list or ALV).
For eg. Standard SAP shows -100.00 as 100.00-, but user wants to display it as (100.00).
Thanks
Anil

Answer 1

A slightly different method. This will right justify the amount and print dashes vor zero. I would probably now right justify by SHIFTing RIGHT:
*&      Form  DR_CR
*       Format numeric field into character field with "()" for -ve
*      -->P_NUM  Numeric field                                         *
*      <--P_CHAR  Formated character field                             *
FORM dr_cr USING value(p_num)
           CHANGING p_char.
  DATA: BEGIN OF string,
          f1(1),
          f2(20),
          f3(1),
        END OF string.
  DATA: off(2)  TYPE p.
  DATA: len(2)  TYPE p.
  CLEAR string.
  CLEAR p_char.
  IF p_num <> 0.
    IF p_num < 0.
      p_num = - p_num.
      string-f1 = '('.
      string-f3 = ')'.
    ENDIF.
    WRITE p_num TO string-f2.
    CONDENSE string NO-GAPS.
    IF string CA '('.
      off = 15 - STRLEN( string ).
      len = strlen( string ).
    ELSE.
      off = 14 - STRLEN( string ).
      len = strlen( string ).
    ENDIF.
    p_char+off(len) = string.
  ELSE.
    MOVE '---' TO p_char+7.
  ENDIF.
ENDFORM.                               " DR_CR
Rob
I understand from your comment that this isn't what you are looking for; however, for completeness sake, I want to add that SHIFT RIGHT won't work because you want the decimals to line up not the right character of the number.
Message was edited by: Rob Burbank