topic Re: characters before decimal point in Application Development and Automation Discussions

characters before decimal point

Former Member — Fri, 10 Apr 2009 06:36:41 GMT

Hi,

i want to read the characters before decimal point i.e if i have number as 11111111.011

i want to read the all 1's before decimal point and write an condition as

if the number of characters before point exceeds 11 char than display some mesage.

please help.

Gayatri

Re: characters before decimal point

Mohamed_Mukhtar — Fri, 10 Apr 2009 06:43:19 GMT

hi,

DATA : wa_dec TYPE p DECIMALS 3 VALUE '11111111.011',
       wa_p1 TYPE string,
       wa_p2 TYPE string,
       wa_dec1(20),
       len TYPE i.

wa_dec1 = wa_dec.


SPLIT wa_dec1 AT '.' INTO wa_p1
                         wa_p2.
CONDENSE wa_p1.
len = STRLEN( wa_p1 ).
" len = number of characters before decimal
if len > 11.
" do ur work here
endif.
BREAK-POINT.

Thanks & Regards

Re: characters before decimal point

anuj_srivastava — Fri, 10 Apr 2009 06:47:52 GMT

Hi gayatri ,

u can draft ur logic as below..

var1 = 1111111.101

Split var1 at '.' into var2 var3.

var4 = strlen ( var2).

if var4 > 11.

do something..

else.

do something.

endif.

Hope this solves ur problem

Regards,

Anuj

Re: characters before decimal point

Former Member — Fri, 10 Apr 2009 07:26:17 GMT

hi,

how can i find out that the user entered value has point in it.

Re: characters before decimal point

anuj_srivastava — Fri, 10 Apr 2009 07:32:06 GMT

Hi ,

can u be more precise on ur requirement .??

Re: characters before decimal point

Former Member — Fri, 10 Apr 2009 07:33:44 GMT

data: lv_dec type p decimals 2.

first split the number into two

split <number> at '.' into lv_char1 lv_char2.

Re: characters before decimal point

former_member222860 — Fri, 10 Apr 2009 07:33:56 GMT

Simple

data: v_str type string value '111.11'.

if v_str CA '.'.
  write:/ 'Dot at', sy-fdpos.
endif.

Re: characters before decimal point

Former Member — Fri, 10 Apr 2009 07:34:52 GMT

hi,

i meant if user can enter any value for example 1111111111 or 1

Re: characters before decimal point

anuj_srivastava — Fri, 10 Apr 2009 07:40:41 GMT

in that case also the above code samples will work.

but in that case u will not get anything in var3 ( i.e the part after decimal).

Re: characters before decimal point

Former Member — Fri, 10 Apr 2009 08:03:49 GMT

Hi,

If the input is a packed decimal number, then you can move the contents into a numeric field variable. then you can use a if statement saying ' > 99999999999'.

Re: characters before decimal point

murat_kaya — Fri, 10 Apr 2009 08:04:47 GMT

Hi Gayatri,

you can use as below;

l_integer = TRUNC( l_decimal ).

l_integer gets the value before decimal point.

regards,

Murat Kaya

Re: characters before decimal point

Former Member — Fri, 10 Apr 2009 08:25:14 GMT

Hi Gayatri,

Try below code for your requirement.

Data: v_data type c.

If value entered by user = p_value.

V_data = p_value.

Data: v_data1 type c,

V_data2 typec,

Len type i.

If v_data CA u2018.u2019.

Split v_data at u2018.u2019 Into v_data1

V_data2.

Else.

V_data1 = v_data.

Endif.

Condense v_data1.

Len = strlen (v_data1).

If len> 11.

Message.

Endif.

Hope this will help you.

Regards,

Deepa Kulkarni

Re: characters before decimal point

Former Member — Fri, 10 Apr 2009 08:39:00 GMT

Hi Gayatri,

Use the following code:

DATA: v_num TYPE p DECIMALS 3 VALUE '11111111.011',

v_len TYPE i,

v_var(15) TYPE c,

v_var1(15) TYPE c,

v_var2(15) TYPE c.

v_var = v_num.

IF v_var CA '.'.

SPLIT v_var AT '.' INTO v_var1 v_var2.

SHIFT v_var1 LEFT DELETING LEADING ' '.

v_len = STRLEN( v_var1 ).

IF v_len > 11.

MESSAGE 'error message' TYPE 'E'.

ENDIF.

ELSE.

SHIFT v_var LEFT DELETING LEADING ' '.

v_len = STRLEN( v_var ).

IF v_len > 11.

MESSAGE 'error message' TYPE 'E'.

ENDIF.

Revert back in case of any doubt.

Regards,

Nitin.