topic Re: Statement WHILE in Application Development and Automation Discussions

Statement WHILE

d4xtian — Thu, 09 Jun 2022 22:34:25 GMT

Can somebody lead me tot the solution please..

I want to test if a number is a multiple of 10, if yes it display a sentence that say yes, if not i want it to add 1 to that number until it become a multiple of 10 and i want to count how manu time it add.

how to say « if P_VPI is not MOD 10 » in abap to put this condition in my While statement ?

thanks

P_VPI = P_VOLUME MOD 10.

WRITE 'Le volume est divisible par 10'.
w
WHILE ??? .
P_VOLUME = P_VOLUME + 1.WRITE SY-INDEX.
ENDWHILE.

Re: Statement WHILE

d4xtian — Thu, 09 Jun 2022 22:38:48 GMT

by the way in my programme i have already declare P_VOLUME

is it right if i put like this :

P_VPI = P_VOLUME MOD 10.

WRITE 'Le volume est divisible par 10'.

WHILE P_VPI <> 0.
P_VOLUME = P_VOLUME + 1.WRITE SY-INDEX.
ENDWHILE.

Re: Statement WHILE

former_member808116 — Fri, 10 Jun 2022 03:55:30 GMT

This may be of help to you.

PARAMETERS: P_VPI TYPE I.
DATA: LV_MOD TYPE P LENGTH 8 DECIMALS 2,
      LV_INT TYPE INT8.

LV_INT = P_VPI.
LV_MOD = P_VPI MOD 10.
IF LV_MOD = 0.
  WRITE: 'Number: ', P_VPI , 'divisible par 10'.
ELSE.
  WHILE LV_MOD <> 0.
    P_VPI = LV_INT + SY-INDEX.
    LV_MOD = P_VPI MOD 10.
    IF LV_MOD = 0.
      WRITE: 'SY-INDEX:',  SY-INDEX.
      CONTINUE.
    ENDIF.
  ENDWHILE.
ENDIF.

Re: Statement WHILE

Sandra_Rossi — Fri, 10 Jun 2022 07:06:01 GMT

For fun, assuming SY-INDEX can be used in the logical expression of WHILE (the ABAP documentation says it can be used only in the statement block of WHILE, not in the logical expression), the code can be simplified to:

PARAMETERS: P_VPI TYPE I.
IF P_VPI MOD 10 = 0.<br>  WRITE: 'Number: ', P_VPI , 'divisible par 10'.
ELSE.
  WHILE ( P_VPI + sy-index - 1 ) MOD 10 <> 0.
    WRITE: 'SY-INDEX:',  SY-INDEX.
  ENDWHILE.
ENDIF.

Re: Statement WHILE

matt — Fri, 10 Jun 2022 10:10:23 GMT

Isn't this just ordinary maths, not requiring a loop.

IF p_vpi MOD 10 = 0.
  WRITE 'YES!!!'.
ELSE.
  DATA(iterations) = 10 - p_vpi MOD 10.
  WRITE 'I need to add 1 to p_vpi', iterations, 'times to get to divisible by ten'.
ENDIF.

Re: Statement WHILE

d4xtian — Fri, 10 Jun 2022 12:29:12 GMT

No it is an training project, it is what was asking to do...

just to learn how to loop is working.

Re: Statement WHILE

venkateswaran_k — Fri, 10 Jun 2022 12:45:57 GMT

Please try as below

if (n MOD 10) NE 0.
    lv_count = (10 - n MOD 10).

Re: Statement WHILE

matt — Sat, 11 Jun 2022 20:57:21 GMT

Ah, OK. Training exercise.