ABAP生成随机数

  DATA: cl_random TYPE REF TO cl_random_number,
      m TYPE i.
  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  = 9999999
    RECEIVING
      r_random = m.
  WRITE m.
  write:'/'.