ABAP-CL_RANDOM_NUMBER（生成随机数）

*--------------------------------------------------------------------
*类CL_RANDOM_NUMBER（生成随机数）
*--------------------------------------------------------------------
DATA: LO_RANDOM TYPE REF TO CL_RANDOM_NUMBER.
DATA: M TYPE I.
CREATE OBJECT LO_RANDOM.
CALL METHOD LO_RANDOM->IF_RANDOM_NUMBER~INIT  ."初始化

CALL METHOD LO_RANDOM->IF_RANDOM_NUMBER~GET_RANDOM_INT"生成INT类型的随机数
  EXPORTING
    I_LIMIT  = 9999 "随机数峰值
  RECEIVING
    R_RANDOM = M.
WRITE M.
WRITE:'/'.