Converting char to decimal value format as defined in SU3(User profile)

Question

Hi Techies,
Is there any FM to convert CHAR value into Decimal fomat as defined in SU3.
If we use, WRITE statement for printing the value in decimal format , it shows the value in decimal format correctly
in SU3 transaction , there are three different decimal format notations which can be user specific
I would appreciate your valuable inputs ....
Thanks
Santhosh

Answer 1

This is my code in a generic method to transform a table into a csvrow
when 'P'.
        tmpstr = <p_field>.
        len = strlen( tmpstr ) - 1.
        tmpstr = tmpstr+0(len).
        if <p_field> < 0.
          sign = '-'.
        else.
          sign = ' '.
        endif.
        case decimalformat.
          when 'X' or 'E'.
            split tmpstr at '.' into int frac.
            ptmp = int.
            write ptmp to cp.
            shift cp left deleting leading space.
            replace all occurrences of '.' in cp with ','.
            concatenate
              s
              sign
              cp
              frac
              delimiter
            into s in character mode.
          when 'Y' or 'D'.
            split tmpstr at '.' into int frac.
            ptmp = int.
            write ptmp to cp.
            shift cp left deleting leading space.
            replace all occurrences of ',' in cp with '.'.
            concatenate
              s
              sign
              cp
              frac
              delimiter
            into s in character mode.
          when ' '.
            concatenate s sign tmpstr delimiter into s in character mode.
          when others.
            concatenate s '????????' delimiter into s in character mode.
        endcase.
where pfield is a fieldsymbol type P. (honestly ist from type any, but determined by RTTI). I needed this cause i want to format the value from "outside" without taking the user settings in consideration as write...to.. is doing.
What i'm doing is to use the write... to... clause modifying the result (change decimal point, thousand separator and sign) according to the demanded decimal notation.
Edited by: Rainer Hübenthal on Oct 7, 2009 4:47 PM