topic Re: Even number routine in Application Development and Automation Discussions

Even number routine

Former Member — Mon, 12 Jan 2009 14:30:56 GMT

I have to test if a value is even. The value can be from 0 - 560. What is the simpliest (and most efficient) way of writing this routine

thanks

Re: Even number routine

Former Member — Mon, 12 Jan 2009 14:34:15 GMT

hi,

The best and easiest method..

Do 560 times.

lval = sy-index mod 2.

if lval EQ '0'.

EVEN

ELSE.

*ODD

ENDIF.

Re: Even number routine

Mohamed_Mukhtar — Mon, 12 Jan 2009 14:46:30 GMT

hi,

DATA : num TYPE i,
       rem TYPE i.

DO 560 TIMES.
  rem = sy-index MOD 2.
  IF rem = 0.
    WRITE : / sy-index,  '-even'.
  ELSE.
    WRITE : / sy-index, '-odd'.
  ENDIF.
ENDDO.

Thanks & Regards

Re: Even number routine

Former Member — Mon, 12 Jan 2009 14:48:32 GMT

The mod function is what you need.

DATA: mod_value TYPE i.

mod_value = 21 MOD 2 .

IF mod_value EQ '0'.
  WRITE / 'even'.
ELSE.
  WRITE / 'odd'.
ENDIF.

Re: Even number routine

Former Member — Tue, 13 Jan 2009 07:29:06 GMT

Hi Dominic ,

the efficient way is :

parameter : number .

DATA: mod TYPE i.

mod = number MOD 2 .

IF mod EQ '0'.

WRITE / 'Number is even'.

ELSE.

WRITE / ''Number is odd'.

ENDIF.

It will work most efficiently .

Regards ,

Nilesh Jain .

Re: Even number routine

Former Member — Tue, 13 Jan 2009 08:04:51 GMT

Hi,

the most efficient way to do this is

data : n type i.

do 280 times.

n = 2 * sy-index.

write 😕 'even', n.

enddo.

this is the shortest code and will do fast.

hope this will help you.

regards,

anand

Re: Even number routine

Former Member — Fri, 31 May 2013 07:38:34 GMT

REPORT Z_N_EVEN_NO.

DATA: V_NO TYPE I,

RESULT TYPE I.

PARAMETERS: P_NO TYPE I.

IF RESULT = P_NO MOD 2.

RESULT = 0.

WRITE:/ ' THE NO IS EVEN NO'.

ELSE.

WRITE:/ ' THE NO IS AN ODD NO'.

ENDIF.