Record should be repated with remaining value

Question

Hi,
Can anyone tell me the logic ASAP, if the value is greater than 99, it should repeat the record with the remaining value.
ex: result is 250, it should be split in 3 records, like the following:
1: 99
2: 99
3: 52
Thanks,
Madhu

Answer 1

Hi madhu,
check this...
DATA : BEGIN OF itab OCCURS 0,
        num(2) TYPE p DECIMALS 0,
       END OF itab.
DATA: values TYPE i,
      remain TYPE i.
itab-num = 250.
APPEND itab.
LOOP AT itab.
  IF itab-num > 99.
    PERFORM split USING itab-num.
  ENDIF.
ENDLOOP.
LOOP AT itab.
write :/ itab-num.
ENDLOOP.
*&      Form  split
FORM split USING result.
  values = result / 99.
  remain = result MOD 99.
  itab-num = remain.
  MODIFY itab INDEX sy-tabix.
  values = values - 1.
  DO values TIMES.
    itab-num = 99.
    APPEND itab.
  ENDDO.
ENDFORM.                    "split
Edited by: Perez C on Jan 2, 2008 2:11 PM