topic Re: Removing Zeros in Application Development and Automation Discussions

Removing Zeros

Former Member — Sun, 15 Apr 2007 08:48:05 GMT

I have the following numbers say for eg.

66.66666667

68.72000000

80.00000000

75.19055000

I want to output them like

66.66666667

68.72

75.19055

Is there a way to achieve this.

Kind help is much appreciated.

Thanks & regards

Re: Removing Zeros

Former Member — Sun, 15 Apr 2007 09:26:32 GMT

Hello ,

Try the following funtion modules provided by SAP

BKK_DELETE_LEADING_ZERO

FTR_CORR_SWIFT_DELETE_ENDZERO

Or make use of the following code :

SHIFT <Variable name> RIGHT DELETING TRAILING '00'.

Regards,

Sowmya.

Re: Removing Zeros

Former Member — Mon, 16 Apr 2007 05:44:09 GMT

There is a number of ways to do this.

report zrich_0001.

data: matnr type mara-matnr value '000000000000001111'.

This is one way

shift matnr left deleting leading '0'.

Here is another

matnr = '000000000000001111'.

call function 'CONVERSION_EXIT_MATN1_OUTPUT'

exporting

input = matnr

importing

output = matnr.

check sy-subrc = 0.

Re: Removing Zeros

Former Member — Mon, 16 Apr 2007 05:45:21 GMT

Hi Sam,

To remove leading zeros and leading blanks

Please use FM

CONVERSION_EXIT_ALPHA_INPUT Conversion exit ALPHA, external->internal

CONVERSION_EXIT_ALPHA_OUTPUT Conversion exit ALPHA, internal->external

For ex :

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = wf_version

IMPORTING

output = wf_version.

Example:

input = 123

output = 0000000000000...000000000000123

Hope this resolves your query.

Reward all the helpful answers.

Regards

Re: Removing Zeros

Former Member — Mon, 16 Apr 2007 06:05:42 GMT

<b>WRITE <variable having value with zeros> DECIMALS 0.</b>

hope this will solve ur problem

regards

ravish

<b>plz reward points if helpful</b>

Re: Removing Zeros

Former Member — Mon, 16 Apr 2007 06:12:34 GMT

first take the no to a char field..here i am taking text as an example.

data : bef(7),

aft(7),

text(14) type c value '66.66666667'.

split text at '.' into bef aft.

shift aft right deleting trailing '0'.

shift aft left deleting leading space.

clear text.

concatenate bef aft into text separated by '.'.

regards

shiba dutta

Re: Removing Zeros

Former Member — Mon, 16 Apr 2007 07:03:18 GMT

Thanks all for your support.

I want to share my experience.

there are two ways to achieve the above.

data mipcnt1(12).

mipcnt1 = 75.19055000

CONDENSE mipcnt1.

CALL FUNCTION 'FTR_CORR_SWIFT_DELETE_ENDZERO'

CHANGING

c_value = mipcnt1.

CLEAR: f1, f2.

SPLIT mipcnt1 AT '.' INTO f1 f2.

IF f2 IS INITIAL.

mipcnt1 = f1.

ENDIF.

mipcnt1 = 75.19055000

mipcnt1 = abs( mipcnt1 ).

hope it helps others.