Untitled

CALL FUNCTION 'QF05_RANDOM_INTEGER'
  EXPORTING
    ran_int_max = 1
    ran_int_min = 100
  IMPORTING
    ran_int = data(lv_random)
  EXCEPTIONS
    invalid_input = 1
    OTHERS = 2.

write : 'Rastgele üretilen sayı : ' ,lv_random.