ABAP中怎样获取随机数

在ABAP程序中有两种方式可以获取随机数：

    方式一：

    使用  function QF05_RANDOM_INTEGER  来获得随机数, 第一次使用的时候只是获得种子. 所以在程序中使用的时候,要在最开始设置种子. 如, 我想获得一个1-10的随机数,应该在

 CALL FUNCTION 'QF05_RANDOM_INTEGER'

        EXPORTING

          ran_int_max = 10

          ran_int_min = 1

        IMPORTING

          ran_int     = my_value.

之前,用

 CALL FUNCTION 'QF05_RANDOM_INTEGER'

        EXPORTING

          ran_int_max = 2 "随便用什么

          ran_int_min = 1

        IMPORTING

          ran_int     = my_seed. "随便一个变量

 

这样 得到的 my_value 才会不一样.

方式二：

DATA: cl_random TYPE REF TO cl_random_number,

      m TYPE i.

START-OF-SELECTION.

CREATE OBJECT cl_random.

CALL METHOD cl_random->if_random_number~init .

CALL METHOD cl_random->if_random_number~get_random_int

    EXPORTING

      i_limit = 99999

    RECEIVING

      r_random = m.

WRITE m.