Hi,
Pls try this
DATA : MYAMOUNT LIKE BBSEG-WRBTR.
DO 5 TIMES.
PERFORM GENERATE_RND.
ENDDO.
FORM GENERATE_RND.
CALL FUNCTION 'RANDOM_AMOUNT'
EXPORTING
RND_MIN = '1'
RND_MAX = '100'
VALCURR = 'DEM'
IMPORTING
RND_AMOUNT = MYAMOUNT
EXCEPTIONS
OTHERS = 1.