Digit Check calculation - for XD01/XD02 - Urgent requirment

Question

Hi Experts,
below is my requirment.
IF have like 5 digit number 12356 (Customer number)
(here 6 is units, 5 is ten, 3 is hundred, 2 is thousand and 1 is ten thousands).
My caliculation is i have multiply this number in  2 or 1 like 2 is unit, 1 is ten,
2 is hundreds and 1 is thousands 2 is ten thousands .... and so on....
1  2  3  5   6
2  1  2  1   2 by multiply
2  2   6  5  12
now i have to add : 2 + 2 + 6 + 5 + 12 = 27
after 27 next 10 multiply number is 30
here 30 -27 = 3 is my final result
if the final added value is 32 next 10 multiply number is 40  40-32 =8 final value
if the final added value is 85 next 10 multiply number is 90  90-85 = 5 final value.
I need this logic, pls can any one help in this regards
Thanks in advance
Rams
P.S: full points will be awarded
Message was edited by:
        ramesh
Message was edited by:
        ramesh
Message was edited by:
        ramesh
Message was edited by:
        ramesh

Answer 1

Hi,
Try this.
REPORT  ztest_digit_calc.
DATA: num1(10) TYPE c VALUE '1235678',
      num2(10) TYPE c,
      x TYPE i,
      y TYPE i,
      num3(10) TYPE c,
       num4(10) TYPE c.
DATA: BEGIN OF t_digit,
       num TYPE i,
       num1 TYPE i,
      END OF t_digit.
DATA:lt_digit LIKE TABLE OF t_digit,
     wa_digit LIKE LINE OF lt_digit.
x = STRLEN( num1 ).
y = x.
DO x TIMES.
  x = x - 1.
  num2 = num1+x(1).
  wa_digit-num = num2.
  APPEND wa_digit TO lt_digit.
ENDDO.
clear x.
LOOP AT lt_digit INTO wa_digit.
  y = sy-tabix MOD 2.
  IF y NE 0.
    num2 = wa_digit-num * 2.
  ELSE.
    num2 = wa_digit-num * 1.
  ENDIF.
  num3 = num3 + num2.
  ENDLOOP.
  num4 = num3.
  x = num3 mod 10.
  while x NE 0.
    num3 = num3 + 1.
    x = num3 mod 10.
  endwhile.
  num3 = num3 - num4.
  write : num3.
Reward points if useful.
Regards,
Vimal