ABAP的随机数

 

看函数组：F052、QF05

 

例程1：

REPORT  z_barry_random.

 

DATA: m type i ,
      n(5) TYPE n.

DO 20 TIMES.
  CALL FUNCTION 'QF05_RANDOM_INTEGER'
    EXPORTING
      ran_int_max   = 99999
      ran_int_min   = 10000
    IMPORTING
      ran_int       = m
    EXCEPTIONS
      invalid_input = 1
      OTHERS        = 2.
  n = m.
  WRITE:/ n.
ENDDO.

 

----------------------------------

例程2：

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.