Random / Rastgele Sayı Üretme

cl_abap_random_int clasının kullanımı aşağıdadır:

form f_rastgele_durum using       prm_oran type int4
                      changing    chn_basarili type c.

  data: lv_seed type ,
        lv_random type i,
        lc_rnd_class type ref to cl_abap_random_int.

  clear chn_basarili.
  lv_seed = cl_abap_random=>seed( ).
  lc_rnd_class = cl_abap_random_int=>create( seed = lv_seed min max 100 ).

  lv_random = lc_rnd_class->get_next( ).

  if lv_random <= prm_oran.
    chn_basarili = `X`.
  endif.

endform.                    "f_rastgele_durum