topic Re: FUNCTION TO CONVERT FROM CHARACTER TO PACKED DECIMAL in Application Development and Automation Discussions

FUNCTION TO CONVERT FROM CHARACTER TO PACKED DECIMAL

Former Member — Wed, 27 Aug 2008 09:31:08 GMT

HI GUYS,

IS THERE ANY INBUILT FUNCTION WHICH ONE CAN USE TO CONVERT CHARACTER DATATYPE TO PACKED DECIMAL.

THANKS.

Former Member — Wed, 27 Aug 2008 09:33:48 GMT

Hi,

Try this FM,

'CHAR_PACK_CONVERSION'

DATA:
  w_var1(6) TYPE c VALUE '12345',
  w_var2(9) TYPE p DECIMALS 2.
  
w_var2 = w_var1.

WRITE:
  w_var2.

Regards

Adil

Former Member — Wed, 27 Aug 2008 09:34:12 GMT

If you want to convert '12345' to value 12345, you can just assign the l_packed = l_character. FYI.

Former Member — Wed, 27 Aug 2008 09:34:52 GMT

Hi,

Try this Function module----

MOVE_CHAR_TO_NUM

Thanks,

Subhankar — Wed, 27 Aug 2008 09:45:12 GMT

Hi ..

You do it easily by writing a subroutine..

PERFORM sub_update_qty_wtdes

CHANGING wa_deal-aprv_net_price.

FORM sub_update_qty_wtdes CHANGING p_char.

DATA: l_sign TYPE char01, "Sign

l_char1 TYPE char10, "Character before decimals

l_len TYPE i, "Length

l_char2 TYPE char04. "Character after decimals

l_len = STRLEN( p_char ) - 1.

IF l_len > 1.

l_sign = p_char(1).

SPLIT p_char+1(l_len) AT '.' INTO l_char1 l_char2.

SHIFT l_char1 LEFT DELETING LEADING '0'.

IF l_char1 IS NOT INITIAL.

CONCATENATE l_char1 '.' l_char2 l_sign INTO p_char.

ELSEIF l_char1 IS INITIAL AND l_char2 <> '00'.

CONCATENATE '0' '.' l_char2 l_sign INTO p_char.

ELSE.

CLEAR: p_char.

ENDIF.

ENDFORM.